|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.09.2018, 18:13 | #1 |
Пользователь
Регистрация: 23.05.2018
Сообщений: 58
|
Провайдер Интернет - услуг установил следующую систему оплаты
Провайдер Интернет - услуг установил следующую систему оплаты: при работе с 2 до 8:00 ночи - 0,5 $ в час, в остальное время суток - 0,75 $ в час. Подготовить программу для определения стоимости работы в Интернете (в долларах и гривнах) в течение заданного времени, если известны моменты начала и окончания работы. Курс доллара вводить.
Помогите пожалуйста Если возможно,то помогите сделать на делфи) |
25.09.2018, 19:33 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
25.09.2018, 19:53 | #3 |
Пользователь
Регистрация: 23.05.2018
Сообщений: 58
|
вот что только сделал и то это не правильно скорее всего
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. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как реализовать такую систему оплаты? | electronictw | Фриланс | 4 | 29.07.2013 23:14 |
Мини интернет провайдер ! | valerka92 | Помощь студентам | 4 | 02.09.2011 06:11 |
Банковские карты для оплаты услуг в Интернете | hxt | Свободное общение | 2 | 01.02.2011 10:08 |