Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Elena373839
2 / 2 / 0
Регистрация: 04.04.2015
Сообщений: 85
1

Определить, какую сумму должен заплатить абонент за пользование стационарной телефонной связью

30.01.2016, 01:17. Просмотров 910. Ответов 3
Метки нет (Все метки)

Услуги стационарной телефонной связи платят по следующему правилу. Каждый месяц, оплачивая абонентскую плату в размере (с1) руб., пользователь получает (х) бесплатных минут. Если время разговоров больше за бесплатные (х мин), но не превышает (у)мин, то его оплачивают из расчета (с2) руб. за 1 мин разговора. Если же абонент в течение месяца пользовался телефонной связью более (у) мин, он будет платить за свои разговоры из расчета (с3) руб. за каждую минуту разговора. Разработайте программу, которая по введенному значению времени разговоров (заданным натуральным числом (у) минутах) определяет, какую сумму должен заплатить абонент за пользование стационарной телефонной связью
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.01.2016, 01:17
Ответы с готовыми решениями:

Рассчитать сумму, которую должен заплатить дилер, при покупке n телевизоров
Дилер покупает у производителя телевизоры по цене 90$ за шт. При этом он...

Алгоритм Прима / Краскала: Соединить все города телефонной связью
Дана плоская страна и в ней n городов. Нужно соединить все города телефонной...

Сколько должен заплатить каждый пассажир, если на конец поездки на счетчике было Р3 рубля
помогите решить задачу по Паскаль линейной структуры(((( 3 пассажира сели...

Какую минимальную сумму нужно заплатить, чтобы купить N дисков?
Чистые компакт-диски продаются в упаковках 3 видов. Коробка с 50 дисками стоит...

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

3
1agaka1
25 / 25 / 38
Регистрация: 21.10.2013
Сообщений: 79
30.01.2016, 15:09 2
Elena373839, с1, с2, с3, х мы тоже вводим?
0
Elena373839
2 / 2 / 0
Регистрация: 04.04.2015
Сообщений: 85
30.01.2016, 15:39  [ТС] 3
не поняла вопроса

Добавлено через 2 минуты
математически примерно так, а в программе не знаю как

<= x то с1
>x и <= y то с1 + с2*время разговора
>y то с1 + с3*время разговора
0
1agaka1
25 / 25 / 38
Регистрация: 21.10.2013
Сообщений: 79
30.01.2016, 17:27 4
Лучший ответ Сообщение было отмечено Elena373839 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses crt;
Var
c1,c2,c3,x,y,m,s:integer;
begin
writeln('Введите время разговоров');
readln(m);
writeln('Введите месяцную абонентскую плату');//c1
readln(c1);
writeln('Введите количество бесплатных мин');//x
readln(x);
writeln('Введите ограничение по оплате мин');//y
readln(y);
writeln('Введите цену за каждую мин разговора после бесплат. и меньше ограниченного времени');//c2
readln(c2);
writeln('Введите цену за каждую мин разговора после огранниченного времени');//c3
readln(c3);
if m<=x then begin 
s:=c1;
end
else
if (m>x) and (m<=y) then begin 
s:=c1+(m-x)*c2;
end
else
if m>y then begin s:=c1+(m-y)*c3;
end;
writeln('Сумма к оплате =',s);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.01.2016, 17:27

Определить, сколько должен заплатить каждый пассажир
В общем вот задача, которую надо написать на VBA в EXCELe &quot;В такси...

Определить сколько должен заплатить каждый пассажир такси
В такси одновременно сели три пассажира. Когда вышел первый пассажир, на...

Сколько надо заплатить за пользование электрической энергией
Сколько надо заплатить за пользование электрической энергией в месяц (30 дней),...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru