3–misol. Tomonlari R bo‘lgan teng tomonli uchburchak, kvadrat va radiusi R ga teng doiraning yuzini hisoblash dasturini tuzing va R= 4 da hisoblang.
Dasturi
|
Ekrandagi natija
|
Program Yuzalar_hisoblash;
var r: Integer; s1,s2,s3:Real;
begin
Write(‘R ning qiymatini kiriting :‘); ReadLn(r);
s1:=sqr(r)*sqrt(3)/4; s2:=sqr(r); s3:=pi*sqr(r);
WriteLn(‘Uchburchak yuzi = ‘,s1);
WriteLn(‘Kvadrat yuzi = ‘,s2);
WriteLn(‘Doira yuzi = ‘,s3); readln;
end.
|
R ning qiymati kiritilsin 4
Uchburchak yuzi = 6.9282032303E+00
Kvadrat yuzi = 1.6000000000E+01
Doira yuzi = 5.0265482457E+01
|
Ushbu dasturni o‘zlashtirish operatori yordamida o‘zgartirib natija olishni mustaqil ish sifatida qoldiramiz.
IV. Mustahkamlash uchun savol va topshiriqlar
Chiziqli dastur deganda nimani tushunasiz?
Qanday operatorlardan foydalanib muloqat dasturlari tuzish mumkin?
Nima uchun dasturda soniga qiymat berish shart emas?
Chiqarish formati haqida so‘zlab bering.
Ekrandagi natijani ko‘rish uchun qaysi klavishlar juftligi bosiladi?
Do'stlaringiz bilan baham: |
