Mavzu: Shart bo’yicha takrorlash operatorlari
Download 361.53 Kb.
|
Shart bo'yich takrorlash operatori
Mavzu: Shart bo’yicha takrorlash operatorlari@informatika_AKT I.Ismoilova Shart bo’yicha takrorlash operatorlari quyidagilar:While Repeat 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. Download 361.53 Kb. Do'stlaringiz bilan baham: |
Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling
ma'muriyatiga murojaat qiling