Program – Delphi – Fórum – Programujte.com

Dobrý den. Začínam v Delphi a ve škole jsme dostali program k vyřešení a nevim jak na to. Pokud můžete pomoci budu velice rád.
Děkui předem. Jirka

Program: (musí to být jednoduchými proměnnými-nesmi to být polem, jen pomocí cyklu)

Program načte přirozené číslo N (N>2) a dále posloupnost N přirozených čísel a zjistí, zda je tato posloupnost aritmetická.

Je to napsane v Pascalu a to jen kvuli tomu, ze se mi nechce hrat si slozite se vstupem.

function JeToPosloupnost(N: Integer):Boolean;

var d,num, prev: Real;

    i: Integer;

begin

    JeToPosloupnost := false;

    for i:=1 to N do begin

      write('Zadej ',i,'. cislo posloupnosti: '); readln(num);

      if(i = 2) then  d := prev - num;;

      if(i >= 2)and((prev - num) <> d) then exit;

      prev := num;

    end;

    JeToPosloupnost := true;

end;



var N: Integer;



begin

   writeln('Zadej pocet prvku posloupnosti: '); readln(N);

   if(JeToPosloupnost(N)) then writeln('Je to posloupnost.')

   else writeln('Neni to posloupnost');

   readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.