UCHEES.RU - помощь студентам и школьникам

Перевод кода из Pascal в C# (Консольное приложение) Задача:Проверить, образуют ли...


В 4:27 поступил вопрос в раздел Информатика, который вызвал затруднения у обучающегося.

Вопрос вызвавший трудности

Перевод кода из Pascal в C# (Консольное приложение)
Задача:Проверить, образуют ли элементы целочисленного массива размера N арифметическую прогрессию. Если да, то вывести разность прогрессии, если нет - вывести 0.

код:
const max=100;
var a:array[1..max] of integer;
n,i,k:byte;
begin
clrscr;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Введите ',n,' целых чисел:');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
k:=0;
for i:=2 to n-1 do
if (a[i]-a[i-1])<>(a[i+1]-a[i])then
begin
k:=1;
break;
end;
if k=1 then write('Это не арифметическая прогрессия!')
else write('Это арифметичевкая прогрессия, ее разность=',a[2]-a[1]);
readln
end.

Ответ подготовленный экспертами Учись.Ru

Для того чтобы дать полноценный ответ, был привлечен специалист, который хорошо разбирается требуемой тематике "Информатика". Ваш вопрос звучал следующим образом:

Перевод кода из Pascal в C# (Консольное приложение)
Задача:Проверить, образуют ли элементы целочисленного массива размера N арифметическую прогрессию. Если да, то вывести разность прогрессии, если нет - вывести 0.

код:
const max=100;
var a:array[1..max] of integer;
n,i,k:byte;
begin
clrscr;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Введите ',n,' целых чисел:');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
k:=0;
for i:=2 to n-1 do
if (a[i]-a[i-1])<>(a[i+1]-a[i])then
begin
k:=1;
break;
end;
if k=1 then write('Это не арифметическая прогрессия!')
else write('Это арифметичевкая прогрессия, ее разность=',a[2]-a[1]);
readln
end.

После проведенного совещания с другими специалистами нашего сервиса, мы склонны полагать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:

Кодяра ниже
\\\\\\\\\\\\\\\\\\\\\\
using System;
public class Test{
    public static void Main(){
        const int max = 100;
        int[] a = new int[max];
        for(int i = 0; i < max; ++i){
            Console.Write("a[{0}] = ", i);
            a[i] = Convert.ToInt32(Console.ReadLine(), 10);
        }
        Console.Clear();
        Console.WriteLine("Исходный массив:");
        for(int i = 0; i < max; ++i)
            Console.Write("{0} ", a[i]);
        Console.WriteLine();Console.WriteLine();
        bool k = false;
        for(int i = 2; i < max; ++i)
        if((a[i] - a[i-1]) != (a[i-1] - a[i-2])){
            k = true;
            break;
        }
        if(k) Console.WriteLine("Это НЕ арифметическая прогрессия");
        else Console.WriteLine("Это арифметическая прогрессия c разностью {0}", a[1]-a[0]);
    }
}
\\\\\\\\\\\\\\\\\\\\\\
Кодяра выше


-------------------



НЕСКОЛЬКО СЛОВ ОБ АВТОРЕ ЭТОГО ОТВЕТА:

Работы, которые я готовлю для студентов, преподаватели всегда оценивают на отлично. Я занимаюсь написанием студенческих работ уже более 4-х лет. За это время, мне еще ни разу не возвращали выполненную работу на доработку! Если вы желаете заказать у меня помощь оставьте заявку на этом сайте. Ознакомиться с отзывами моих клиентов можно на этой странице.

Самойлова Элеонора Владимировна - автор студенческих работ, заработанная сумма за  прошлый месяц 56 414 рублей. Её работа началась с того, что она просто откликнулась на эту вакансию

ПОМОГАЕМ УЧИТЬСЯ НА ОТЛИЧНО!

Выполняем ученические работы любой сложности на заказ. Гарантируем низкие цены и высокое качество.

Деятельность компании в цифрах:

Зачтено оказывает услуги помощи студентам с 1999 года. За все время деятельности мы выполнили более 400 тысяч работ. Написанные нами работы все были успешно защищены и сданы. К настоящему моменту наши офисы работают в 40 городах.

РАЗДЕЛЫ САЙТА

Ответы на вопросы - в этот раздел попадают вопросы, которые задают нам посетители нашего сайта. Рубрику ведут эксперты различных научных отраслей.

Полезные статьи - раздел наполняется студенческой информацией, которая может помочь в сдаче экзаменов и сессий, а так же при написании различных учебных работ.

Красивые высказывания - цитаты, афоризмы, статусы для социальных сетей. Мы собрали полный сборник высказываний всех народов мира и отсортировали его по соответствующим рубрикам. Вы можете свободно поделиться любой цитатой с нашего сайта в социальных сетях без предварительного уведомления администрации.

ЗАДАТЬ ВОПРОС

НОВЫЕ ОТВЕТЫ

ПОХОЖИЕ ВОПРОСЫ