profile
Размещено 5 лет назад по предмету Информатика от Nesh1999

Перевод кода из 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.

  1. Ответ на вопрос
    Ответ на вопрос дан MaxLevs
    Кодяра ниже
    \\\\\\\\\\\
    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]);
        }
    }
    \\\\\\\\\\\
    Кодяра выше
    1. Ответ на вопрос
      Ответ на вопрос дан Nesh1999
      Я не писал это на паскале, я это в инете откопал, а потом сидел и некоторое я не доумевал, как это
    2. Ответ на вопрос
      Ответ на вопрос дан Nesh1999
      язык с ток 2-3 пары
    3. Ответ на вопрос
      Ответ на вопрос дан Nesh1999
      я нечколько задач перевел с паскаля или дэлфи на с#
    4. Ответ на вопрос
      Ответ на вопрос дан MaxLevs
      Ты вопросы сделай. Понравится - помогу. Нет - помогут другие.
    5. Ответ на вопрос
      Ответ на вопрос дан Nesh1999
      ok
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.