Mm ivaat nosirov doc

program n2(input, output); var s: real; n: integer;
www.qmii.uz/e-lib

S=s+1/n

47
begin
s:=0; for n:=1 to 50 do
s:=s+1/n; writeln(‘йигинди киймати s=’,s); end.
йигиндини киймати s=4.499…
FOR ва WHILE операторларидан ташкари REPAET оператори ёрдамида хам такрорланиш жараёнини ташкил этиш мумкин. REPAET операторининг умумий куриниши куйидагича:
repaet a until b; Бу ерда а-операторлар цикл танаси, b-мантикий ифода.
Агар b шарт бажарилса бошкариш В дан кейинги операторга утади, В ба-жарилмаса цикл давом этиши тухтайди.
4. Ичма–ич жойлашган циклларни дастурлаш
Битта цикл ичига бир ёки бир нечта бошка цикллар кирса, каррали цикл структурали дастурлар хосил булади, яъни ичма-ич цикллар хосил булади.
Бунда ички циклнинг таъсир доираси уни уз ичига олувчи циклда жойла-шади.
Мисол А(10,15) матрицанинг мусбат элементларининг ёзувга чикариш дас-турини тузамиз.
Хар бир каторда матрицанинг берилган каторига мансуб элементларни ёзувга чикарсин. Агар каторда мусбат элементлар булмаса, у буш булиши ке-рак.
Дастур куйидаги куринишда булади:
program matr (input, output); const imax=10;ymax=15; var y,i:integer;
a: array [1..imax,1..ymax] of real; begin
for i=1 to imax do begin
for y:=1 to ymax do begin
read (a[i,y]);
if (a[i,y])>0 then write (a[i,y]:2:2) end; writeln
www.qmii.uz/e-lib
48
end; end.