Dastur kodini umumiy ko`rinishga keltiramiz:
program mat;
var
kod: integer; {shahar kodi}
baho: real; {minui bahosi}
uzun: integer; {so'zlashuv uzunligi}
summ: real; {so'zlashuv qiymati}
begin
writeln ('Telefonda suzlashuv qiymatini hisoblash.');
writeln ('Boshlangich qiymatlarni kiriting:');
write ('Shahar kodi ->');
readln (kod);
write ('Suzlashuv uzunligi (minutning butun miqdori) - >');
readln (uzun);
write ('Shahar');
case kod of
371: begin
writeln ('Toshkent');
baho:= 150; end;
366: begin
writeln ('Samarqand'); baho:=120; end;
315: begin
writeln ('Qarshi'); baho:=100; end;
365: begin
writeln ('Buxoro'); baho:=130; end;
end;
summ := baho * uzun;
writeln ('Minut bahosi:', baho: 6:2,'sum.');
writeln ('Suzlashuv qiymati:', summ: 6:2,'sum.');
readln;
end .
Do'stlaringiz bilan baham: |