Tasdiqlayman” Qo`shtepa ixtisoslashtirilgan maktabi mmibdo`: S. Egamov


IV. Mustahkamlash uchun savol va topshiriqlar



Yüklə 2,73 Mb.
səhifə132/174
tarix07.01.2024
ölçüsü2,73 Mb.
#205597
1   ...   128   129   130   131   132   133   134   135   ...   174
Tasdiqlayman” Qo`shtepa ixtisoslashtirilgan maktabi mmibdo` S.

IV. Mustahkamlash uchun savol va topshiriqlar

  1. Chiziqli dastur deganda nimani tushunasiz?

  2. Qanday operatorlardan foydalanib muloqat dasturlari tuzish mumkin?

  3. Nima uchun dasturda  soniga qiymat berish shart emas?

  4. Chiqarish formati haqida so‘zlab bering.

  5. Ekrandagi natijani ko‘rish uchun qaysi klavishlar juftligi bosiladi?

Mashqlar
1. Quyidagi chiziqli dasturlarni ishini izohlang va natijasini aniqlang.

a)

Var a,b:String;
Begin
a:= ‘O`zbekiston ‘;
b:= ‘Davlat‘;
WriteLn(a, ‘Mustaqil ‘, b);
End.

b)

var a,b:Integer; s:Real;
Begin a:=4;
a:=sqr(a); b:=b–a;
s:=2*a+3*b;
WriteLn(‘S= ‘,s);
End.




Natija:
O`zbekiston Mustaqil Davlat




Natija:
S=-1.6000000000E+01

2. Quyida trapetsiya yuzini hisoblash dasturi tartibsiz yozilgan. Operatorlarni mantiqan to‘g‘ri ketma-ketlikda joylashtiring.
Program trapesiya_yuzi;
Var a,b,h:Integer; p,s:Real;
Begin Write(‘A,B,H qiymatlarni kiriting: ‘);ReadLn(a,b,h);
p := (a+b) /2; s := p * h; WriteLn(‘S =’, s,‘kvadrat birlik‘);
End.
3. Uchburchakning a, b tomonlari va ular orasidagi  burchak berilgan. Uchburchakning yuzini hisoblash dasturini tuzing.
Program uchburchak_yuzi;
Var a,b, alfa: real;
Begin
Write(‘a tomon uzunligini kiriting: ’); readln(a);
Write(‘b tomon uzunligini kiriting: ’); readln(b);
Write(‘alfa burchak kattaligini kiriting: ’); readln(alfa);
S:=a*b*sin(alfa)/2;
Writeln(‘S=’,s:5:2,’ kvadrat birlik.’);
Readln; end.

Yüklə 2,73 Mb.

Dostları ilə paylaş:
1   ...   128   129   130   131   132   133   134   135   ...   174




Verilənlər bazası müəlliflik hüququ ilə müdafiə olunur ©azkurs.org 2024
rəhbərliyinə müraciət

gir | qeydiyyatdan keç
    Ana səhifə


yükləyin