1-лаборатория иши

5 – Лаборатория иши.


Мавзу: Циклик дастурлар тузиш.
5.1. Тармоқ операторидан фойдаланиб циклли дастурлар тузинг


5.2. While операторидан фойдаланиб цилклли дастурлар тузинг


5.3. Repeat-Until операторидан фойдаланиб цилклли дастурлар тузинг


5.3. Параметрли цикл оператори (for) дан фойдаланиб цилклли дастурлар тузинг


Ишнинг мақсади: Турбо Паскал алгоритмик тилининг қўшма операциялар, операторларини ўрганиш ва талабаларда циклик операторлардан фойдаланиб, Турбо Паскал тилида дастурларни тузиш кўникмасини ҳосил қилдириш.


Масаланинг қўйилиши:
a) Ҳисоблаш жараёнининг блок схемасини тузинг.
б) шартли оператордан фойдаланиб, берилган жараёнга дастур тузинг.
в) циклик операторлардан фойдаланиб, берилган жараёнга дастур тузинг.


Вазифани бажариш усули:


Вазифа. Берилган йиғиндини ҳисоблаш дастури ва блок-схемасини тузинг.


Бажариш. Аввало берилган ҳисоблаш жараёнига мос келадиган блок-схемани чизайлик (4-чизма).
Энди шартли оператордан фойдаланиб, вазифада берилган мисолга мос дастурни ёзайлик:
program L51;
label 1,2;
var a, b, c, s:real;
i:integer;
begin
write (' a,b,c ni kiriting'); readln(a,b,c);
i:=1; s:=0;
1: if i>35 then goto 2;
s:=s+(sqr(i)*i+a*i+c)/(b+sqrt(i));
i:=i+1; goto 1;
2: write ('s=', s);
readln;
end.

Э нди циклик оператордан фойдаланиб, берилган мос дастурни ёзайлик:

program L53;

var
a, b, c, s:real;
i:integer;
begin
write (' a,b,c ni kiriting');
readln(a,b,c);
s:=0;
for i:=1 to 35 do
s:=s+(sqr(i)*i+a*i+c)/
(b+sqrt(i));
write ('s=', s);
readln;
end.


4-чизма.