Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.09.2018, 18:13   #1
kostya_hor
Пользователь
 
Регистрация: 23.05.2018
Сообщений: 58
По умолчанию Провайдер Интернет - услуг установил следующую систему оплаты

Провайдер Интернет - услуг установил следующую систему оплаты: при работе с 2 до 8:00 ночи - 0,5 $ в час, в остальное время суток - 0,75 $ в час. Подготовить программу для определения стоимости работы в Интернете (в долларах и гривнах) в течение заданного времени, если известны моменты начала и окончания работы. Курс доллара вводить.
Помогите пожалуйста
Если возможно,то помогите сделать на делфи)
kostya_hor вне форума Ответить с цитированием
Старый 25.09.2018, 19:33   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от kostya_hor Посмотреть сообщение
Помогите пожалуйста
чем помочь?
что Вы уже сделали? что не получается?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 25.09.2018, 19:53   #3
kostya_hor
Пользователь
 
Регистрация: 23.05.2018
Сообщений: 58
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
что Вы уже сделали? что не получается?
вот что только сделал и то это не правильно скорее всего

var
x,y,t,e:Integer;
b,n,u:Extended;

begin
x:=StrToInt(Edit1.Text);
y:=StrToInt(Edit2.Text);
t:=StrToInt(Edit3.Text);
if y>24 then
begin
ShowMessage('Невірно');
Edit1.Clear;
Edit2.Clear;
Edit1.SetFocus;
exit
end;
n:=(y-x)*0.75;
u:=n*t;
b:=u/t;
Memo1.Lines.Add('Вартість');
Memo1.Lines.Add('ГРН='+FloatToStr(u ));
Memo1.Lines.Add('$='+FloatToStr(b)) ;
end;

end.

Последний раз редактировалось kostya_hor; 25.09.2018 в 20:20.
kostya_hor вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как реализовать такую систему оплаты? electronictw Фриланс 4 29.07.2013 23:14
Мини интернет провайдер ! valerka92 Помощь студентам 4 02.09.2011 06:11
Банковские карты для оплаты услуг в Интернете hxt Свободное общение 2 01.02.2011 10:08