Mavzu: Shart bo’yicha takrorlash operatorlari

Mavzu: Shart bo’yicha takrorlash operatorlari

@informatika_AKT

I.Ismoilova

Shart bo’yicha takrorlash operatorlari quyidagilar:

While do

Repeat Until

S=5,4+7,7+10+12,3+••• +51,4

Boshlanish

S:=0

I:=5,4

I<=51,4

S:=S+I

I:=I+2,3

S ning qiymati chiqarilsin

Tamom

Boshlanish

S:=0

I:=5,4

I<=51,4

S:=S+I

I:=I+2,3

S chiqarilsin

Tamom

While

var S,I:real;

Begin S:=0; I:=5.4; while I<=51.4 do begin S:=S+I; I:=I+2.3; end;

Writeln(S);

End.

var S,I:real;

Begin S:=0; I:=5.4; Repeat S:=S+I; I:=I+2.3; Until I>51.4;

Writeln(S);

End.

Repeat

Random; [0;1) oraliqdagi tasodifiy son

Random(x) [0;x) oraliqdagi tasodifiy son

Uses Crt;

var rang:integer;

Begin Repeat rang:=random(15); textcolor(rang); writeln(‘Informatika’); Until rang=4;

End.

Mustaqil ishlash uchun topshiriqlar

1. S=3,4+4,6+5,8+•••+63,6 yig’indini hisoblash daturini tuzing.

2. [0;24] oraliqdagi tasodifiy 3 ta son chiqarish dasturini tuzing.

3. [-13;13] oraliqdagi ixtiyoring 3 ta sonning yig’indisini topish dasturini tuzing.