Перевести код с 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]);
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д