Перевести с паскаля на с# - C# (195374)

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

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

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;
class AA
{
   public void outt(int[] n)
    {         
        for (int i = 0; i < n.Length; i++)
            Console.Write(n[i] + " ");
    }
}
class PascalCode
{
    static void Main()
    {
        AA t = new AA();      
        int n = 0, d = 0;
        Console.WriteLine("Введите количество элементов массива: ");
        n = Convert.ToInt32(Console.ReadLine());
        int[] a = new int[n];
        for (int i = 0; i < n; i++)
        {
            Console.WriteLine("Введите " + i + " елемент: ");
            a[i] = Convert.ToInt32(Console.ReadLine());
        }
        Console.WriteLine("Введите число d: ");
        d = Convert.ToInt32(Console.ReadLine());
        Console.WriteLine("Исходный массив: ");
        t.outt(a);
        for (int i = 0; i < n; i++)
        {
            if (a[i] == d)
                a[i] = a[i] + i;
        }
        Console.WriteLine("\nПолученный массив");
        t.outt(a);
            Console.ReadKey();
    }
    
}

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


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

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

8   голосов , оценка 3.875 из 5