Question

Turbo Pascal: Czy mógłby ktoś mi pomóc w zamianie pętly while...do, na pętlę repeat..until?

program suma_liczb;
var i, liczba, suma: integer;
begin
liczba:=0;
suma:=0;
while suma<4000 do
begin
i:=i+1; suma:=suma+i;
end;
writeln('aby suma nie przekroczya 4000 trzeba użyć ',i,' liczb');
end.

Answer 1

Prosze bardzo:

 

program suma_liczb;
var i, liczba, suma: integer;
begin
liczba:=0;
suma:=0;
REPEAT
i:=i+1;

suma:=suma+i;
UNTIL suma<4000;

writeln('aby suma nie przekroczya 4000 trzeba użyć ',i,' liczb');
end

aczkolwiek ten program jest bezsenu albo ja czegoś nie rozumiem - dodajesz do sumy za kazdym razem "i" które przecież powinno tylko określać liczbę iteracji. Nie powinieneś czasem napisać: suma:=suma+liczba; ?