"Datormācība. Skaitlisko aprēķinu realizācijas metodes ...

Jāņem vērā, ka cikla mainīgajam pirms cikla jāpiešķir
kāda konkrēta vērtība, un vienam no cikla
operatoriem šī vērtība ir jāizmaina, pretējā gadījumā
cikls turpināsies bezgalīgi.
Piemērs. Sastādīsim programmu, kura izvada uz
ekrāna visus veselos skaitļus, kuri nepārsniedz 100
un dalās ar 9.
program dal_ar_9;
uses crt;
var x:integer;
begin ClrScr;
x:=0;
repeat
x:=x+9;
write(x:5);
until x>=100;
writeln('Programma darbu pabeidza.');
readln;
end.
{cikla sākums};
{ x vērtība tiek palielināta par 9}
{tiek izvadīta mainīgā x vērtība}
{cikla beigas un nosacījuma pārbaude}
{paziņojuma izvadīšana}
Monitora ekrānā tiek izvadīti skaitļi:
9 18 27 36 45 54 63 72 81 90 99
Piemēri. Izmantojot operatoru repeat: 1) nodrukāt n naturālus skaitļus, 2) . noteikt to
naturālo skaitli k, pie kura izteiksmes x k /k vērtība kļūst lielāka par uzdotu skaitli A
(x>1, A>1).
program Nr_1r;
const n=10;
var m:integer;
begin
m:=0;
repeat
m:=m+1;
write(m:4)
until m>n
end.
program Nr_2r;
var x, A, p:real;
k:integer;
begin
read(x,A); k:=0; p:=1;
repeat
k:=k+1;
p:=p*x
until p/k>=A;
write(‘ k= ‘, k) end.
Paškontroles uzdevumi 3
Pk3-1. Kas tiks izdrukāts monitora ekrānā pēc doto programmas fragmentu izpildes
a) for i:=3 to 8 do write(2*i,‘ ‘);
b) for i:=1 to 5 do write(i:4, ' ;', (100-i):5);
c) Skaitlis:= 2;
for i:= (5*2-4) to 5*Skaitlis do write ('**', i:5);
30