Перевести с паскаля на с# - C# (195352)
Формулировка задачи:
Помогите перевести
program array35; uses crt; var a:array[1..100] of integer; i,k,k1,k2,n:integer; procedure mas; begin for i:=1 to n do write(a[i]:5); end; begin clrscr; writeln('введите количество элементов массива:'); read(n); for i:=1 to n do begin writeln('введите a[',i,'] элемент массива:'); read(a[i]); end; clrscr; writeln('Исходный массив a :'); mas; k:=a[1]; k1:=a[2]; k2:=a[3]; for i:=1 to n-3 do a[i]:=a[i+3]; a[n]:=k2; a[n-1]:=k1; a[n-2]:=k; writeln; writeln('Полученный массив a :'); mas; end.
Решение задачи: «Перевести с паскаля на с#»
textual
Листинг программы
using System; namespace Trash { class Program { static void Main(string[] args) { Console.Clear(); Console.WriteLine("Введите количество элементов массива"); int[] a = new int[int.Parse(Console.ReadLine())];//объявляем массив введенного с клавиатуры размера for (int i=0; i<a.Length; i++) //заполняем его { Console.WriteLine("Введите a[" + i.ToString() + "] элемент массива"); a[i] = int.Parse(Console.ReadLine()); } Console.Clear(); Console.WriteLine("Исходный массив а:"); mas(a); //вызов метода вывода int k = a[0], k1 = a[1], k2 = a[2]; //буферы для выполнения сдвига на 3 for (int i = 0; i < a.Length - 3; i++) //цикл сдвига a[i] = a[i + 3]; a[a.Length - 1] = k2; //дописываем значения из буферов a[a.Length - 2] = k1; a[a.Length - 3] = k; Console.WriteLine("Полученный массив"); mas(a); //вызов метода вывода Console.ReadLine(); } static void mas(int[] a) //метод вывода массива, параметр - массив который выводится { for (int i = 0; i < a.Length; i++) //цикл по количеству элементов в массиве Console.Write("{0,5}", a[i]); //вывод поэлементо по 5 позиций на элемент Console.WriteLine(); //перевод строки } } }
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д