Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
ощшощ
0 / 0 / 1
Регистрация: 09.10.2011
Сообщений: 37
1

Определение стоимости разговора по телефону с учетом скидки

08.12.2011, 16:25. Просмотров 1036. Ответов 1
Метки нет (Все метки)

. Написать программу определения стоимости разговора по телефону с учетом скидки 20%, предоставляемой по субботам и воскресеньям. Исходные данные (длительность разговора в минутах и номер дня недели) вводятся из файла Input.txt. Результаты работы программы записываются в файл Out.txt. Стоимость минуты разговора задать как константу.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2011, 16:25
Ответы с готовыми решениями:

Написать программу определения стоимости разговора по телефону
написать программу определения стоимости разговора по телефону с учетом скидки...

Определить конечную сумму к оплате с учетом возможной скидки
еще можно пару задачек решить) 1. Магазин предоставляет скидку 3% на...

По коду города определить стоимость одной минуты международного разговора с учетом скидок по выходным
1. По коду города определить стоимость одной минуты международного разговора с...

Используя функцию вычисления стоимости одного разговора, найти суммарную стоимость трёх звонков известной прод
Тариф предусматривает оплату телефонных разговоров следующим образом: при...

Фирма предоставляет скидку оптовым покупателям. Сумма скидки составляет 10% от стоимости проданного товара
Фирма предоставляет скидку оптовым покупателям. Сумма скидки составляет 10% от...

1
TheZzZ
13 / 13 / 17
Регистрация: 26.05.2011
Сообщений: 37
08.12.2011, 19:22 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
const cena=10;    //стоимость 1 минуты
Var Input:Text;
    Outt:Text;
    S:String;
    num:integer;
    min:real;
    code:integer;
    st:real;
 
begin
 
  Assign(input,'Input.txt');
  Assign(Outt,'Outt.txt');
  Rewrite(Outt);
  Reset(input);
  While not eoln(input) do
    read(input,s);
  num:=strtoint(Copy(s,1,pos(';',s)-1));
  Delete(s,1,pos(';',s));
  Val(s,min,code);
  Close(input);
  Writeln(num,'     ',min);
  if num>7 then
    begin
      writeln('');
      Exit;
    end;
  case num of
    1..5:   Begin
              st:=min*cena;
              Writeln('Г–ГҐГ*Г* Г°Г*çãîâîðГ* ñîñòГ*ГўГЁГ«Г*:  ',st,'  Г°ГіГЎ.');
              write(Outt,'Г–ГҐГ*Г* Г°Г*çãîâîðГ* ñîñòГ*ГўГЁГ«Г*:  ',st,'  pГіГЎ.');
            end;
 
    6..7:   Begin
              st:=min*cena-min*cena/100*20;
              Writeln('Г–ГҐГ*Г* Г°Г*çãîâîðГ* ñîñòГ*ГўГЁГ«Г*:  ',st,'  Г°ГіГЎ.');
              write(Outt,'Г–ГҐГ*Г* Г°Г*çãîâîðГ* ñîñòГ*ГўГЁГ«Г*:  ',st,'  pГіГЎ.');
            end;
  end;
  Close(Outt);
end.
В файл водить сначала номер дня недели, потом количество минут, разделять точкой с запятой.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2011, 19:22

Определение будущей стоимости.
Определение будущей стоимости Рассчитайте какая сумма окажется на счете, если...

Определение текущей стоимости.
Определение текущей стоимости Фирме потребуется 4300 тыс. руб. через 8 лет. В...

Определение стоимости телеграммы по её тексту
составить программу для определения стоймости телеграммы по её тексту(запросить...


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

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

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