Дана последовательность состоящая из 10 вещественных чисел.

@Олег2323 · Регистрация: 08.06.2011

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

Дана последовательность состоящая из 10 вещественных чисел. Определить является ли она возрастающей или убывающей. Я НА ЭКЗАМЕНЕ ПОМОГИТЕ

@Puporev · 15.06.2011, 09:37

Pascal

uses crt;
const n=10;
var a,b,c:real;
    i,k1,k2:integer;
begin
writeln('Введите ',n,' вещественных чисел:');
k1:=0;
k2:=0;
read(a);
read(b);
for i:=3 to n do
 begin
  read(c);
  if (b>a)and(c>b) then k1:=k1+1
  else if (b<a)and(c<b) then k2:=k2+1;
  a:=b;
  b:=c;
 end;
if k1=n-2 then write('Последовательность возрастающая')
else if k2=n-2 then write('Последовательность убывающая')
else write('Последовательность не упорядочена');
end.

@Олег2323 · 15.06.2011, 09:48 **[ТС]**

А блок схему плиз прошу...!

@Puporev · 15.06.2011, 09:57

Держи.....

@Олег2323 1 / 1 / 0 Регистрация: 08.06.2011 Сообщений: 38
		1
	Дана последовательность состоящая из 10 вещественных чисел. 15.06.2011, 09:25. Показов 2364. Ответов 3 Метки нет (Все метки) Дана последовательность состоящая из 10 вещественных чисел. Определить является ли она возрастающей или убывающей. Я НА ЭКЗАМЕНЕ ПОМОГИТЕ 0

@Олег2323 1 / 1 / 0 Регистрация: 08.06.2011 Сообщений: 38
	15.06.2011, 09:48 [ТС]	3
	А блок схему плиз прошу...! 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.06.2011, 09:57	4
	Держи..... Миниатюры 0