Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Составить блок-схему арифметической и геометрической прогрессий.
Любую сделайте.Помогите

Ответ оставил Гость

Определить является ли вводимая с клавиатуры последовательность арифметической или геометрической прогрессией. Хранить элементы последовательности в памяти нет необходимости. 
uses crt; 
var a,b,c,u:real; 
begin 
u:=8; 
readln(a); 
readln(b); 
repeat 
begin 
readln(c); 
if (c/b)=(b/a) then u:=1; 
if (c-b)=(b-a) then u:=2; 
a:=b; 
b:=c; 
end; 
until b=0; 
if u=1 then writeln (геометрическая прогрессия); 
if u=2 then writeln (арифметическая прогрессия); 
if not ((u=1) or (u=2)) then writeln (ошибка); 
end.