Вопрос Помогите с кодом, язык С или Pascal

45335 · 15 Окт 2019

Пропущен какой-то оператор. Скажите какой???

Вот код:

Для С:

//А - целочисленный массив с индексами от 0 до 5

// переменные flag, i - целые

flag = 1;

for (i = 0; i < 5; i++){

if (A <= A[i + 1]) {

flag = 0;

;

}

else flag = 1;

}

if (flag == 0)

printf("Не убывает строго");

else

printf("Убывает строго");

Для Pascal:

//А - целочисленный массив с индексами от 0 до 5

// переменные flag, i - целые

flag := 1;

for i := 0 to 4 do

begin

if (A <= A[i + 1]) then

begin

flag := 0;

;

end

else flag := 1;

end;

if flag = 0 then

writeln('Не убывает строго')

else

writeln('Убывает строго');

Заранее всем ОГРОМНОЕ спасибо. Я в этих языках не шарю, но очень надо.

ван · 15 Окт 2019

Вот, написал на C# Можешь сравнить или просто скопировать using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Threading.Tasks; namespace posledovatelnost { class Program { static void Main(string[] args) { int[] a = new int[6]; bool istrue = true; for (int i = 0; i <= 5; i++) { Console.Write("Введите элемент № " + (i+1).ToString() + " >>> "); a = int.Parse(Console.ReadLine()); } Console.WriteLine("=================================="); for (int i = 1; i <= 5; i++) { if (a[i-1]<a) { istrue = false; break; } } if (istrue) { Console.WriteLine("Последовательность строго убывающая!"); } else { Console.WriteLine("Последовательность не убывающая!"); } Console.ReadLine(); } } }

ArteMQa · 15 Окт 2019

break И else лишний, он тут не нужен

Тим12345 · 16 Окт 2019

на паскальное не смотрел а Сишное --- int flag = 0; for (int i = 0; i < 5 && (!flag); i++){ if (A <= A[i + 1]) flag = 1; } --- 0-строго у тебя получается мигалка 0-1 в зависимости от последнего сравнения

прас · 16 Окт 2019

А что, собственно, вы сделать хотите?

Святослав · 16 Окт 2019

После flag := 0; стоит лишняя ";"

Вопрос Помогите с кодом, язык С или Pascal

45335

ван

ArteMQa

Тим12345

прас

Святослав

Похожие темы