Перевести код с Паскаля на C#

@kolas1173 · Регистрация: 21.12.2014

Author24 — интернет-сервис помощи студентам

Pascal

program lm;
uses crt;
Type
P= array [1..20] of integer;
M= array [1..40] of integer;
Var
a:p;
b:m;
i,k,n,x:integer;
begin
clrscr;
write ('vvedite razmern massiva ');
readln(n);
writeln('vvedite massive  ');
for I:= 1 to N do
readln(A[i]);
K:=0;
for i:=1 to N do
begin
if a[i]<0 then
begin
K:=K+1;
write ('vvedite chislo pered otric cislom ');
read(x);
b[K]:=x;
end;
K:=K+1;
B[k]:=a[i];
end;
write ('Vivod massiva  ');
for i:= 1 to k do
write(B[i],'  ');
readln;
readln;
end.

@babaevkamil · 10.10.2015, 17:52

C#

using System;
 
namespace FromPascal
{
    class Program
    {
        static void Main(string[] args)
        {
            int[] a = new int[20];
            int[] b = new int[40];
 
            Console.Write("Введите размерность массива ");
            int N = Console.Read();
            Console.Write("Введите массив ");
            for (int i = 0; i < N; i++)
            {
                a[i] = int.Parse(Console.ReadLine());
                b[i] = 0;
            }
            int k = 0, x;
            for (int i = 0; i < N; i++)
            {
                if (a[i] < 0)
                {
                    k++;
                    Console.Write("Введите число перед отрицательным числом");
                    x = Console.Read();
                    b[k] = x;
                }
                k++;
                b[k] = a[i];
            }
            Console.Write("Вывод массива ");
            for (int i = 0; i < k; i++)
            {
                Console.Write(b[i] + " ");
            }
 
        }
    }
}

@kolas1173 · 10.10.2015, 18:15 **[ТС]**

Что то ругается на строку a[i] = int.Parse(Console.ReadLine());

@babaevkamil · 10.10.2015, 18:31

kolas1173, исправил

C#

using System;
 
namespace FromPascal
{
    class Program
    {
        static void Main(string[] args)
        {
            int[] a = new int[20];
            int[] b = new int[40];
 
            Console.Write("Введите размерность массива ");
            int N = Convert.ToInt32(Console.ReadLine());
            Console.WriteLine(N);
            Console.WriteLine("Введите массив (ENTER после каждого числа)");
            for (int i = 0; i < N; i++)
            {
                a[i] = Convert.ToInt32(Console.ReadLine());
                b[i] = 0;
            }
            int k = 0, x;
            for (int i = 0; i < N; i++)
            {
                if (a[i] < 0)
                {
                    k++;
                    Console.Write("Введите число перед отрицательным числом");
                    x = Convert.ToInt32(Console.ReadLine());
                    b[k] = x;
                }
                k++;
                b[k] = a[i];
            }
            Console.Write("Вывод массива ");
            for (int i = 0; i < k; i++)
            {
                Console.Write(b[i] + " ");
            }
            Console.ReadLine();
        }
    }
}

@kolas1173 · 10.10.2015, 18:37 **[ТС]**

Вы меня извините за настойчивость, можно тут сделать так чтобы числа в массив я не вписывал а они уже вводились, и когда спрашивается заменить на какое число, можно было один раз написать и оно уже перед каждым отрицательным заменило именно это число. Если вам не сложно. Спасибо.

@letronas · 10.10.2015, 20:47

Вы имеете ввиду рандомом числа вводились?Уточняйте,пожалуйста)

@kolas1173 · 13.10.2015, 18:49 **[ТС]**

Да, числа рандомом, а то число которое нужно заменить, один раз вписать и всё.(а не как там, сколько отрицательных столько раз и вводит это число)

@babaevkamil · 14.10.2015, 16:49

Вот это

C#

            Console.WriteLine("Введите массив (ENTER после каждого числа)");
            for (int i = 0; i < N; i++)
            {
                a[i] = int.Parse(Console.ReadLine());
                b[i] = 0;
            }

Заменить на это

C#

            Random r = new Random();
            for (int i = 0; i < N; i++)
            {
                a[i] = r.Next(50) - 100;
                b[i] = 0;
            }

Сообщение от kolas1173

а не как там, сколько отрицательных столько раз и вводит это число

Вы меня извините, но вы просили только перевести код, я и перевел. В изначальной программе замена была в цикле. А если нужно единоразово, так уберите цикл.

@kolas1173 · 14.10.2015, 18:58 **[ТС]**

Спасибо, этого достаточно)

@kolas1173 5 / 5 / 4 Регистрация: 21.12.2014 Сообщений: 113
	10.10.2015, 18:15 [ТС]	3
	Что то ругается на строку a[i] = int.Parse(Console.ReadLine()); 0

@kolas1173 5 / 5 / 4 Регистрация: 21.12.2014 Сообщений: 113
	10.10.2015, 18:37 [ТС]	5
	Вы меня извините за настойчивость, можно тут сделать так чтобы числа в массив я не вписывал а они уже вводились, и когда спрашивается заменить на какое число, можно было один раз написать и оно уже перед каждым отрицательным заменило именно это число. Если вам не сложно. Спасибо. 0

@letronas 36 / 36 / 29 Регистрация: 12.10.2014 Сообщений: 351
	10.10.2015, 20:47	6
	Вы имеете ввиду рандомом числа вводились?Уточняйте,пожалуйста) 1

@kolas1173 5 / 5 / 4 Регистрация: 21.12.2014 Сообщений: 113
	13.10.2015, 18:49 [ТС]	7
	Да, числа рандомом, а то число которое нужно заменить, один раз вписать и всё.(а не как там, сколько отрицательных столько раз и вводит это число) 0

@kolas1173 5 / 5 / 4 Регистрация: 21.12.2014 Сообщений: 113
	14.10.2015, 18:58 [ТС]	9
	Спасибо, этого достаточно) 0

Перевести код с Паскаля на C#

Решение