then begin
d:=opt-w;
writeln ('Sizga', d:5:2, 'kg.ga semirish kerak');
end
else
begin
d:=w-opt;
writeln ('Siz', d:5:2, 'kg.ga ozishingiz kerak'); end; readln;
end.
11-masala. Foydalanuvchidan oy raqamini so'rovchi va bu oy yilning qaysi mavsumiga tegishli ekanligi to`g'risida javob beruvchi dastur tuzing. Agar foydalanuvchi mumkin bo'lmagan son kiritsa, dastur xato son berilganligi to'g'risida axborot chiqarsin.
Yechish: Quyida dastur ishlash vaqtida tavsiya qilinadigan ekran ko'rinishi berilgan.
Oy raqamini kiriting (1 dan 12 gacha) va ni bosing -» 11 Qish.
Program mat;
var
oy: integer; {oy raqami}
begin
writeln ('Oy raqamini kiriting (1 dan 12 gacha bulgan sonlar)va ni bosing');
write ('->');
readln (oy); case oy of
1,2,12: writeln ('Qish');
3.. 5: writeln ('Bahor');
6.. 8: writeln ('Yoz');
9.. 11: writeln ('Kuz');
else writeln ('Son 1 dan 12 gacha bulishi kerak');
end; readln;
end.
12- masala. Shaharlararo telefon orqali so'zlashuv qiymatini hisoblovchi dastur tuzing (u minut bahosi — abonentning shahargacha bo'lgan masofasi — uzunligi bilan aniqlanadi). Dastur uchun shahar kodi va so'zlashuv vaqti boshlang'ich qiymatlar bo'lib xizmat qiladi.
Yechish: Quyida dastur ishlash vaqtida tavsiya qilinadigan ekran ko'rinishi berilgan. Telefon orqali so'zlashuvni hisoblash.
Boshlang'ich qiymatlarni kiriting: Shahar kodi -> 371
So'zlashuv vaqti (butun son minut) -> 3
Shahar Toshkent. Minut bahosi: 150 so'm. So'zlashuv bahosi: 450 so'm.
