Форум программистов, компьютерный форум, киберфорум
C# для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 11.03.2015
Сообщений: 21

Перевод из pascal

24.12.2015, 10:24. Показов 1309. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var s:string;
    n,i,k,mx:byte;
begin
writeln('Введите предложение');
readln(s);
n:=length(s);
k:=0;
mx:=0;
for i:=1 to n do
if s[i]=' ' then k:=k+1
else
 begin
  if k>mx then mx:=k;
  k:=0;
 end;
write('Максимальное количество пробелов подряд=',mx)
end.
Перевидите в c# пожалуйста , на winform с текстбоксом и кнопкой , вывод в лабел

Добавлено через 24 минуты
C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
string s = textBox1.Text;
            int k = 0;
            int mx = 0;
            for ( int i = 0; i < s.Length; ++i )
            {
                if ((s[i] == ' '))
                    k = k + 1;
                else
                {
                    if (k > mx)
                    mx = k;
                    k = 0;
                }              
                }
            label1.Text = ("Максимальное колво пробелов = " + Convert.ToString(mx));
Уже ненадо , все сделал)
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
24.12.2015, 10:24
Ответы с готовыми решениями:

Перевод программы с Turbo Pascal на Pascal ABC.NET
написала программу в паскаль турбо на рабочем компьютере. перенесла в паскаль авсNet так как дома стоит эта версия /перестала работать что...

Перевод программы с turbo pascal на Pascal ABC
Есть программа, которая строит треугольник Серпинского методом хаоса, но она конфликтует с графикой ABC. Важен именно этот метод. ...

Перевод с Pascal на c#
Здравствуйте , возникли сложности в переводе из языка Паскаль на c# кто может помогите перевести буду очень благодарен вот код ...

1
Эксперт PHP
 Аватар для Kerry_Jr
3106 / 2591 / 1219
Регистрация: 14.05.2014
Сообщений: 7,236
Записей в блоге: 1
24.12.2015, 11:00
ZhecaO,
C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
using System;
using System.ComponentModel;
using System.Drawing;
using System.Windows.Forms;
 
class MainForm : Form
{
    private IComponent components = null;
    private Button button;
    private Label label;
    private TextBox textbox;
 
    public MainForm()
    {
        InitializeComponents();
        textbox.Focus();
    }
 
    protected override void Dispose(bool disposing)
    {
        if (disposing && components != null)
            components.Dispose();
        base.Dispose(disposing);
    }
 
    private void InitializeComponents()
    {
        button = new Button();
        button.Click += new EventHandler(click);
        button.Location = new Point(110, 120);
        button.Name = "button";
        button.Size = new Size(100, 25);
        button.Text = "Посчитать";
        
        label = new Label();
        label.Location = new Point(40, 160);
        label.Name = "label";
        label.Size = new Size(290, 25);
        
        textbox = new TextBox();
        textbox.Location = new Point(10, 10);
        textbox.Multiline = true;
        textbox.Name = "textbox";
        textbox.Size = new Size(300, 100);
 
        this.SuspendLayout();
        this.ClientSize = new Size(320, 190);
        this.Controls.Add(textbox);
        this.Controls.Add(button);
        this.Controls.Add(label);
        this.FormBorderStyle = FormBorderStyle.FixedDialog;
        this.MaximizeBox = false;
        this.Name = "MainForm";
        this.Text = "Количество пробелов";
        this.ResumeLayout(false);
    }
 
    private void click(object sender, EventArgs e)
    {
        string text = textbox.Text;
        int max = 0, k = 0;
        for (int i = 0; i < text.Length; ++i)
        {
            if (text[i] == ' ') ++k;
            else
            {
                if (k > max) max = k;
                k = 0;
            }
        }
        label.Text = string.Format("Максимальное количество пробелов подряд: {0}", max);
    }
    
    [STAThread]
    static void Main(string[] args)
    {
        Application.EnableVisualStyles();
        Application.SetCompatibleTextRenderingDefault(false);
        Application.Run(new MainForm());
    }
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
24.12.2015, 11:00
Помогаю со студенческими работами здесь

Перевод из Pascal на C#
Помогите пожалуйста перевести данное выражение с Pascal на C#: then write (chr(ord('a') + i - 1), j, ' ');

Перевод pascal в c#
Помогите перевести Pascal в C# очень надо, сам переводил но не получилось)) var p, x, px: real; n, i: integer; begin write...

Перевод из c++ на pascal
Помогите перевести с c++ на Паскаль. #include &quot;stdafx.h&quot; #include&lt;iostream&gt; #include&lt;math.h&gt; using namespace std; int main() ...

Перевод из Pascal в JS
program GoodWar; var a,b,c,mb,hc,s,p:real; begin writeln('введите a'); readln(a); writeln('введите b'); readln(b); ...

перевод в C++ из Pascal
Кому не сложно переведите пожалуйста программу в С++. Она готова и полностью рабочая. вот на всякий случай сама задача: Таблица...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru