Dastur kodini umumiy ko`rinishga keltiramiz:
program mat;
var
Time: integer; {so`zlashuv uzunligi}
Day: integer; {hafta kuni}
Summa: real; {suzlashuv qiymati}
begin
writeln ('Telefonda suzlashuv qiymatini hisoblash.');
writeln ('Boshlangich qiymatlami kiriting:');
write ('Suzlashuv uzunligi');
write ('(minutlarning butun miqdori)->');
readln (Time);
write ('Hafta kuni');
write ('(l-dushanba.....7-yakshanba)->');
readln (Day);
Summa:= 20.3 * Time; {1 minut bahosi 20.3 so`m.}
if (Day = 6) or (Day =7) then begin
writeLn ('20 % li imtiyoz beriladi.');
Summa:=Summa * 0.8;
end;
writeln ('Suzlashuv qiymati:', Summa: 8:2, 'sum.');
readln; end.
10-masala. Foydalanuvchining oplimal vaznini hisoblovchi. uni real vazn bilan taqqoslovchi va foydalanuvchiga semirish yoki ozish zaruriyati to'g'risida tavsiyalar beruvchi dastur tuzing. Optimal vazn bo'y uzunligidan (sm) 100 ni ayirish natijasiga teng. Quyida dastur ishlash vaqtida tavsiya qilinadigan ekran ko'rinishi berilgan.
Yechish: Bitta satrdan bo'shliq (probel) orqali bo'y (sm) va vazn (kg) qiymatlarini kiriting va >ni bosing -> 170 68
Siz 2 kg semirishingiz kerak.
|