Kód: Vybrať všetko

uses crt; 
var p: array [1..100] of char; 
    i,a,n,d,,x: integer; 
    b: char; 
begin 
 repeat 
 clrscr; 
 writeln ('stlacenim klavesy X sa zobrazia informacie o programe. Stlacenim lubovolnej klavesy sa spusti program pre vypocet aritmetickej postupnosti.'); 
 readln (p); 
 if p[i]='x' then begin 
                clrscr; 
                writeln ('email adress: [email protected]'); 
                writeln ('Ferdinand'); 
                readln; 
                end 
           else begin 
                clrscr; 
                writeln ('program pre vypocet aritmetickej postupnosti'); 
                writeln ('zadajte a1 (hodnota prveho clena)'); 
                readln (a); 
                writeln ('zadajte n (pocet cisel)'); 
                readln (n); 
                writeln ('zadajte d (diferencia/rozdiel'); 
                readln (d); 
                writeln(a+(n-1)*d);
                readln; 
                end; 
 readln; 
 repeat 
 writeln ('chcete pokracovat? (a/n)'); 
 b:=readkey; 
 until (b='a') or (b='n'); 
 until b='n'; 
end. 

Kód: Vybrať všetko

uses crt; 
var p,r: char; 
    i,a,n,d,,x: integer; 
    b: char; 
begin 
repeat 
clrscr; 
writeln ('stlacenim klavesy X sa zobrazia informacie o programe,stlacenim klavesy r sa spusti program RRR Stlacenim lubovolnej klavesy sa spusti program pre vypocet aritmetickej postupnosti.'); 
readln (p); 
if p='x' then begin 
                clrscr; 
                writeln ('email adress: [email protected]'); 
                writeln ('Ferdinand'); 
                readln; 
                end 
if p='r' then begin
                clrscr;
                program RRR
                end
           else begin 
                clrscr; 
                writeln ('program pre vypocet aritmetickej postupnosti'); 
                writeln ('zadajte a1 (hodnota prveho clena)'); 
                readln (a); 
                writeln ('zadajte n (pocet cisel)'); 
                readln (n); 
                writeln ('zadajte d (diferencia/rozdiel'); 
                readln (d); 
                writeln(a+(n-1)*d);
                readln; 
                end; 
readln; 
repeat 
writeln ('chcete pokracovat? (a/n)'); 
b:=readkey; 
until (b='a') or (b='n'); 
until b='n'; 
end. 

Kód: Vybrať všetko

                      n
vzorec: Nx=N0(1+p/100) 

Kód: Vybrať všetko

 d: real;
 pocitadlo,i,p,n,N0: integer;

 pocitadlo:=1; 
 d:=1+p/100; 
 for i:=1 to n do 
  d:=pocitadlo*d; 
 d:=pocitadlo*N0; 

Kód: Vybrať všetko

pocitadlo:=1+p/100;
d:=1;
for i:=1 to n do
  d:=pocitadlo*d;
d:=d*N0; 

Kód: Vybrať všetko

d:= p/100;
d:= (d:0:2);

Kód: Vybrať všetko

d := p/100;
d := (d+0.005)*100;
d := trunc(d);
d := d/100;