Напишите программу, плиз, очень нужно и, если можете, то и блок-схему к ней

Dima$ · 15.11.2009, 15:14

Дано 10 вещественных чисел. Определить, образуют ли они возрастаю-щую последовательность.

никаких ограничений на код не накладывается!!!!

Vladimir_S · 15.11.2009, 16:18

Цитата:

Сообщение от Dima$

Дано 10 вещественных чисел. Определить, образуют ли они возрастаю-щую последовательность.

никаких ограничений на код не накладывается!!!!

Как-то так:

Код:

VAR
 A:ARRAY[1..10] of REAL;
 i:INTEGER;
 b:BOOLEAN;

BEGIN
 b:=TRUE;
 Randomize;
 FOR i:=1 TO 10 DO
   BEGIN
    A[i]:=RANDOM*10-5;
    WriteLn(A[i]:7:5);
   END;
  WriteLn;
 {Ввод можно организовать иначе, напр. с консоли}
 FOR i:=2 TO 10 DO
   IF A[i-1]>A[i] THEN b:=FALSE;
 IF b THEN WriteLn('Yes') ELSE WriteLn('No');
 ReadLn;
END.

15.11.2009, 15:14	#1 (permalink)
Dima$ Новичок Регистрация: 12.11.2009 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Напишите программу, плиз, очень нужно и, если можете, то и блок-схему к ней Дано 10 вещественных чисел. Определить, образуют ли они возрастаю-щую последовательность. никаких ограничений на код не накладывается!!!!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070