Перевести код с Pascal - C# (194845)

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

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

const
  nmax=50;
var
  b:array[1..nmax*2] of integer;
  a,c:array[1..nmax] of integer;
  i,n:integer;
begin
  repeat
    write('n, ne bolee ',nmax,'=');
    readln(n);
  until n in [1..nmax];
  randomize;
  writeln('Massiv B:');
  for i:=1 to n*2 do
    begin
      b[i]:=random(10)+1;
      write(b[i]:3);
      if i mod 2<>0 then
        c[i-i div 2]:=b[i]
      else
        a[i div 2]:=b[i];
    end;
  writeln;
  writeln('Massiv C:');
  for i:=1 to n do
    write(c[i]:3);
  writeln;
  writeln('Massiv A:');
  for i:=1 to n do
    write(a[i]:3);
end.

Решение задачи: «Перевести код с Pascal»

textual
Листинг программы
const int nmax = 50;
int[] a = new int[nmax], b = new int[nmax*2], c = new int[nmax];
int n;
 
do
{
    Console.Write("n, ne bolee {0} =", nmax);
    n = int.Parse(Console.ReadLine());
}
while(n>0&&n<nmax);
//randomize; //Не знаю даже, что это за оператор и как работает
 
Random r = new Random();
Console.WriteLne("Massiv B:");
for(int i = 0; i<n*2; i++)
{
    b[i] = r.Next(10)+1;
    Console.Write(b[i]:3);
    
    if(i%2!=0) c[i-i/2] = b[i];
    else a[i/2] = b[i];
}
Console.WriteLine("\nMassiv C:");
for(int i = 0; i<n; i++)
    Console.Write("{0,3}", c[i]);
    
Console.WriteLine("\nMassiv A:");
for(int i = 0; i<n; i++)
    Console.Write("{0,3}", a[i]);

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


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

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

13   голосов , оценка 4 из 5