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

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

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

Листинг программы
  1. const
  2. nmax=50;
  3. var
  4. b:array[1..nmax*2] of integer;
  5. a,c:array[1..nmax] of integer;
  6. i,n:integer;
  7. begin
  8. repeat
  9. write('n, ne bolee ',nmax,'=');
  10. readln(n);
  11. until n in [1..nmax];
  12. randomize;
  13. writeln('Massiv B:');
  14. for i:=1 to n*2 do
  15. begin
  16. b[i]:=random(10)+1;
  17. write(b[i]:3);
  18. if i mod 2<>0 then
  19. c[i-i div 2]:=b[i]
  20. else
  21. a[i div 2]:=b[i];
  22. end;
  23. writeln;
  24. writeln('Massiv C:');
  25. for i:=1 to n do
  26. write(c[i]:3);
  27. writeln;
  28. writeln('Massiv A:');
  29. for i:=1 to n do
  30. write(a[i]:3);
  31. end.

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

textual
Листинг программы
  1. const int nmax = 50;
  2. int[] a = new int[nmax], b = new int[nmax*2], c = new int[nmax];
  3. int n;
  4.  
  5. do
  6. {
  7.     Console.Write("n, ne bolee {0} =", nmax);
  8.     n = int.Parse(Console.ReadLine());
  9. }
  10. while(n>0&&n<nmax);
  11. //randomize; //Не знаю даже, что это за оператор и как работает
  12.  
  13. Random r = new Random();
  14. Console.WriteLne("Massiv B:");
  15. for(int i = 0; i<n*2; i++)
  16. {
  17.     b[i] = r.Next(10)+1;
  18.     Console.Write(b[i]:3);
  19.    
  20.     if(i%2!=0) c[i-i/2] = b[i];
  21.     else a[i/2] = b[i];
  22. }
  23. Console.WriteLine("\nMassiv C:");
  24. for(int i = 0; i<n; i++)
  25.     Console.Write("{0,3}", c[i]);
  26.    
  27. Console.WriteLine("\nMassiv A:");
  28. for(int i = 0; i<n; i++)
  29.     Console.Write("{0,3}", a[i]);

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


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

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут