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

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

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

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

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

Определить конечную сумму к оплате с учетом возможной скидки
еще можно пару задачек решить) 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 лет. В...

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

Определение стоимости конфет (блок-схема)
Program For4; var i:integer; A:real; begin Writeln('Введите вещественное...

Определение стоимости покупки компьютеров в рублях по курсу и в долларах
В продаже имеются ПК трех марок (цена задана в рублях). Покупатель может купить...


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

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

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