27 февраля, 21:55

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

Любую сделайте. Помогите

+3
Ответы (1)
  1. 27 февраля, 23:47
    0
    Определить является ли вводимая с клавиатуры последовательность арифметической или геометрической прогрессией. Хранить элементы последовательности в памяти нет необходимости.

    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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Составить блок-схему арифметической и геометрической прогрессий. Любую сделайте. Помогите ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы