Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
ощшощ
0 / 0 / 0
Регистрация: 09.10.2011
Сообщений: 37
#1

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

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

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

Написать программу определения стоимости разговора по телефону - Pascal ABC
написать программу определения стоимости разговора по телефону с учетом скидки 20% представляемой по субботам и воскресениям

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

По коду города определить стоимость одной минуты международного разговора с учетом скидок по выходным - Pascal ABC
1. По коду города определить стоимость одной минуты международного разговора с учетом скидок по субботам и воскресеньям(-20 %).(для...

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

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

Определение будущей стоимости. - Pascal ABC
Определение будущей стоимости Рассчитайте какая сумма окажется на счете, если 42 тыс. руб. положены на 24 года под 11,5% годовых....

1
TheZzZ
13 / 13 / 8
Регистрация: 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
Привет! Вот еще темы с ответами:

Определение текущей стоимости. - Pascal ABC
Определение текущей стоимости Фирме потребуется 4300 тыс. руб. через 8 лет. В настоящее время фирма располагает деньгами и готова...

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

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

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


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

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

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