Question

Przedstaw algorytm za pomocą języka Pascal, który wyświetla na ekranie monitora ciąg n liczb całkowitych w którym każda liczba jest większa od poprzedniej o określoną wartość. Wartość pierwszego elementu ciągu m, ilość elementów ciągu n i różnica między elementami ciągu r jest podawana przez użytkownika podczas działania algorytmu.

Answer 1

program ciag;
uses crt;
var m,r,n,i:integer;
begin
clrscr;
writeln('Podaj Długość ciągu(ile tego ma byc?)');
readln(n);
writeln('Podaj liczbę którra będzie początkiem ciągu');
readln(m);
writeln('Podaj jaka ma być różnica w ciągu?');
readln(r);
clrscr;
for i:=1 to n do
if i=1 then writeln(m) else begin m:=m+r; writeln(m); end;
readln;
end.

 

 

Proszę bardzo, sprawdziłem wszystko działa.

Pozdro ;D