Перевести код с Pascal на C#

@Vera34567 · Регистрация: 12.06.2018

Студворк — интернет-сервис помощи студентам

Ребят помогите пожалуйта, как будет выглядеть код на C#. Учитывая этот код который взятый из Pascal

Pascal
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
uses GraphABC;
 
var s:String;// Строка хронящая числа.
 
begin
SetWindowTitle('GraphABC');
SetWindowSize(540,480);
MainForm.TopMost:= false;
 
for var i:= 0 to 49 do s+= ',' + random(-5,45);
 
writeln(string.Format('Циыры для записи:[{0}]',s));
WriteAllText('цифры.txt',s);// записываем цифры в файл.
s:= ''; // Обнуляем строку.
 
s:= ReadAllText('цифры.txt'); // Читаем циыры из файла в строку s;
 
writeln();
write('Цифры в диапазоне от 0..25:[');
 
// Если цифра из строки под индексом i находится в диапазоне от 0 до 25 то показать на экран эту цифру.
for var i:= 1 to s.Split(',').Length -1 do
  if integer.Parse(s.Split(',')[i]) in [0..25] then write(integer.Parse(s.Split(',')[i])+',');
write(']');
end.

@HectorPrima · 29.06.2018, 08:15

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
using System;
using System.IO;
 
namespace ConsoleApp3
{
    class Program
    {
        static void Main(string[] args)
        {
            string s = ""; // Строка хранящая числа.
            int num;
            Random rnd = new Random();
            for (int i = 0; i < 50; i++)
            {
                s = string.Concat(s, ',' + rnd.Next(-5, 45).ToString());
            }
            Console.WriteLine(string.Format("Цифры для записи:[{0}]", s));
            StreamWriter sw = new StreamWriter("C:\\Sample.txt");
            sw.WriteLine(s); // записываем цифры в файл.
            sw.Close();
            s = ""; // Обнуляем строку.
            StreamReader sr = new StreamReader("C:\\Sample.txt");
            s = sr.ReadLine(); // Читаем цифры из файла в строку s;
            sr.Close();
            Console.WriteLine();
            Console.Write("Цифры в диапазоне от 0..25:[");
            // Если цифра из строки под индексом i находится в диапазоне от 0 до 25 то показать на экран эту цифру.
            foreach (string item in s.Split(','))
            {
                if (Int32.TryParse(item, out num) && num >= 0 && num <= 25)
                    Console.Write(num.ToString() + ',');
            }
            Console.WriteLine("]");
            Console.ReadKey();
        }
    }
}

@amr-now · 29.06.2018, 11:23

Расчеты одинаковые:

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
using System;
using System.Linq;
using static System.IO.File;
using static System.Console;
 
namespace Test_Files
{
    class Program
    {
        static void Main(string[] args)
        {
            string s = "";
            Random random = new Random();
            for (int i = 0; i <= 49; i++) s += "," + random.Next(-5, 45);
 
            WriteLine($"Цифры для записи [{s}]");
            WriteAllText("цифры.txt", s);// записываем цифры в файл.
            s = ""; // Обнуляем строку.
 
            s = ReadAllText("цифры.txt"); // Читаем циaры из файла в строку s;
 
            WriteLine();
            Write("Цифры в диапазоне от 0..25:[");
 
            // Если цифра из строки под индексом i находится в диапазоне от 0 до 25 то показать на экран эту цифру.
            for (int i = 1; i < s.Split(',').Length - 1; ++i)
            {
                if (Enumerable.Range(0, 26).Contains(int.Parse(s.Split(',')[i])))
                    Write(int.Parse(s.Split(',')[i]) + ",");
            }
            Write("]");
 
            ReadLine();
        }
    }
}

В принципе для пущей достоверности можно и графический эмулятор консоли GraphABC сделать. Только его кодить заметно дольше. Хотя можно и using опять же из PascalABC, если в наличии

Добавлено через 42 минуты
Исправление:

Pascal
1
for var i:= 1 to s.Split(',').Length -1 do

соответствует

C#
1
for (int i = 1; i < s.Split(',').Length; ++i)

Подправил правую границу.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

Перевести код с Pascal на C#

Решение