Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


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

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

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

Цитата:
Сообщение от 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 в 21:20.
kostya_hor вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


02:38.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru