Перевод кода PascalABC.NET в код С# - C#

Узнай цену своей работы

Формулировка задачи:

Program z1;
const
Nmax=50;
type
massiv=array[1..Nmax] of integer;
var
K, A, B, i, min, max:integer;
mas:massiv;
begin
//Ввод размера массива и отрезка для случайных чисел
Writeln('Введите размер массива');
Readln(K);
Writeln('Введите начало отрезка');
Readln(A);
Writeln('Введите конец отрезка');
Readln(B);
//Заполнение массива случайными числами
for i:=1 to K do
begin
mas[i]:=Random(b-a+1)+a;
end;
//Вывод исходного массива по строкам
Writeln('Содержимое исходного массива в строку: ');
for i:=1 to K do
begin
Write(mas[i]:6);//:6 - интервал между цифрами 6
end;
Writeln;
//Вывод исходного массива в столбец
Writeln('Содержимое исходного массива в столбец: ');
for i:=1 to K do
begin
Writeln(mas[i]:6);
end;
min:=mas[1];
max:=mas[1];
for i:=2 to K do
begin
if mas[i]>max
then
max:=mas[i];
if mas[i]<min
then
min:=mas[i];
end;
for i:=1 to K do
begin
if mas[i] mod 2=0
then
mas[i]:=min
else
mas[i]:=max;
end;
Writeln('Содержимое исходного массива в столбец: ');
for i:=1 to K do
begin
Writeln(mas[i]:6);
end;
end.

Решение задачи: «Перевод кода PascalABC.NET в код С#»

textual
Листинг программы
static void PascalTranslation1(string[] args)
{
    Random r = new Random();
 
    //Ввод размера массива и отрезка для случайных чисел
    Console.Write("Введите размер массива: ");
    int len = Int32.Parse(Console.ReadLine());
    int[] mas = new int[len];
 
    Console.Write("Введите начало отрезка: ");
    int a = Int32.Parse(Console.ReadLine());
    Console.Write("Введите конец отрезка: ");
    int b = Int32.Parse(Console.ReadLine());
 
    //Заполнение массива случайными числами
    for (int i = 0; i < len; i++)
        mas[i] = r.Next(b - a + 1) + a;
 
    //Вывод исходного массива по строкам
    Console.WriteLine("Содержимое исходного массива в строку: ");
    foreach (var x in mas)
        Console.Write("{0}, ", x);
    Console.WriteLine();
 
    //Вывод исходного массива в столбец
    Console.WriteLine("Содержимое исходного массива в столбец: ");
    foreach (var x in mas)
        Console.WriteLine(x);
 
 
    int min = mas[0];
    int max = mas[0];
    for (int i = 1; i < len; i++)
        if (mas[i] > max)
            max = mas[i];
        else if (mas[i] < min)
            min = mas[i];
 
    for (int i = 0; i < len; i++)
        if (mas[i] % 2 == 0)
            mas[i] = min;
        else
            mas[i] = max;
 
    Console.WriteLine("Содержимое исходного массива в столбец: ");
    foreach(var x in mas)
        Console.WriteLine(x);
}

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.75 из 5
Похожие ответы