Вычислить стоимость междугороднего телефонного разговора

@Аленёнок · Регистрация: 19.03.2009

Студворк — интернет-сервис помощи студентам

Написать программу, вычисляющую стоимость междугороднего телефонного разговора (цена одной минуты определяется расстоянием до города, в котором находится абонент). Исходными данными для программы являются код города и продолжительность разговора. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, и коды некоторых городов выделены полужирным шрифтом).

Вычисление стоимости разговора по телефону. Введите исходные данные: Код города -> 812
Город Код Цена минуты, руб.
Владивосток 423 2,2
Москва 095 1,0
Мурманск 815 1,2
Самара 846 1,4
Длительность (целое количество минут)—> 3 Город: Владивосток Цена минуты: 2.20 руб. Стоимость разговора: 6.60 руб.

Очень прошу помогите пожалуйста вообще непонимаю как делать....((((((((((

@NasmAPIk · 25.03.2009, 15:57

Решение:

Pascal

Program mejgorod;
uses crt;
type
   zvonok = record
      gorod:string[15];
      kod:integer;
      cenam:real;
   end;
 
 
var
 i,vr:integer;
 mz:array[1..15] of  zvonok;
 cn,itog:real;
 kodg:integer;
 
begin
 clrscr;
 mz[1].gorod:='Vladivostok'; mz[1].kod:=432; mz[1].cenam:=2.2;
 mz[2].gorod:='Moskva';      mz[2].kod:=095; mz[2].cenam:=1.0;
 mz[3].gorod:='Murmansk';    mz[3].kod:=815; mz[3].cenam:=1.2;
 mz[4].gorod:='Samara';      mz[4].kod:=846; mz[4].cenam:=1.4;
 writeln('Gorod':15,'Kod':5,'Cena min.':10);
 for i:=1 to 4 do begin write(mz[i].gorod:15,mz[i].kod:5,mz[i].cenam:10:1); writeln; end;
 writeln;
 write('Vvedite kod goroda: '); readln(kodg);
 writeln;
 case kodg of
    432:begin
    write('Vvedite vremya razgovora: ');  readln(vr); writeln; cn:=mz[1].cenam*vr;
    writeln('Gorod: ',mz[1].gorod:15); writeln('Cena minuti razgovora: ',mz[1].cenam:5:1);
    writeln('Stoimost razgovora = ',cn:0:1); end;
    95 :begin
    write('Vvedite vremya razgovora: ');  readln(vr); writeln;  cn:=mz[2].cenam*vr;
    writeln('Gorod: ',mz[2].gorod:15); writeln('Cena minuti razgovora: ',mz[2].cenam:5:1);
    writeln('Stoimost razgovora = ',cn:0:1); end;
    815:begin
    write('Vvedite vremya razgovora: ');  readln(vr); writeln; cn:=mz[3].cenam*vr;
    writeln('Gorod: ',mz[3].gorod:15); writeln('Cena minuti razgovora: ',mz[3].cenam:5:1);
    writeln('Stoimost razgovora = ',cn:0:1); end;
    815:begin
    write('Vvedite vremya razgovora: ');  readln(vr); writeln; cn:=mz[4].cenam*vr;
    writeln('Gorod: ',mz[4].gorod:15); writeln('Cena minuti razgovora: ',mz[4].cenam:5:1);
    writeln('Stoimost razgovora = ',cn:0:1); end
    else writeln('Kod error - zvonok nevozmogen');
 end;
 readkey;
end.

@Аленёнок · 25.03.2009, 20:01 **[ТС]**

чет как то сложно тут написано пытаюсь сделать проще так неполучается....

@Аленёнок 0 / 0 / 0 Регистрация: 19.03.2009 Сообщений: 12
		1
	Вычислить стоимость междугороднего телефонного разговора 25.03.2009, 14:14. Показов 4642. Ответов 2 Метки нет (Все метки) Написать программу, вычисляющую стоимость междугороднего телефонного разговора (цена одной минуты определяется расстоянием до города, в котором находится абонент). Исходными данными для программы являются код города и продолжительность разговора. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, и коды некоторых городов выделены полужирным шрифтом). Вычисление стоимости разговора по телефону. Введите исходные данные: Код города -> 812 Город Код Цена минуты, руб. Владивосток 423 2,2 Москва 095 1,0 Мурманск 815 1,2 Самара 846 1,4 Длительность (целое количество минут)—> 3 Город: Владивосток Цена минуты: 2.20 руб. Стоимость разговора: 6.60 руб. Очень прошу помогите пожалуйста вообще непонимаю как делать....(((((((((( 0

@Аленёнок 0 / 0 / 0 Регистрация: 19.03.2009 Сообщений: 12
	25.03.2009, 20:01 [ТС]	3
	чет как то сложно тут написано пытаюсь сделать проще так неполучается.... 0

Опции темы