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

@Гарик1241 · Регистрация: 18.04.2018

Author24 — интернет-сервис помощи студентам

Длительность разговора – это любое действительное число, номер дня недели – это целое число от 1 до 7. Причем для чисел 6 и 7 (суббота и воскресенье) стоимость 1 мин разговора на 20% ниже, чем в остальные дни недели.
Для полей ввода Edit1 и Edit2 предусмотреть проверку на правильность ввода данных.
После нажатия на кнопку «ВЫЧСЛИТЬ» должно появляться окно сообщения с вопросом: «У Вас есть льготы?». Если пользователь нажмет на кнопку «ДА», то стоимость разговора снижается на 50%.
Ответ должен выводится в окне сообщения в следующем формате:
Ваш разговор длился Х минут, Вы говорили в Y день недели. Стоимость разговора Z грн.,
где Х и Y – значения из полей ввода Edit1 и Edit2, а Z – стоимость разговора.Создать проект, в котором вычисляется стоимость телефонного разговора

форма: Помогите.zip

Очень нужна помощь ребят(((С помощью Case не понимаю пожалуйстаааа
Название: Безымянный.png
Просмотров: 40

Размер: 36.9 Кб

Название: Безымянный.png
Просмотров: 40

Размер: 36.9 Кб

Находил данное о не помогло((((

Кликните здесь для просмотра всего текста

Delphi

const
  price: real = 5.25;
  discount: real = 0.25;   // скидка 
var
  day: byte;
  long: word;
  summ: real;
begin
  // получить длительность
  long:= StrToInt(Edit1.Text);
  // получить день
  day:= StrToInt(Edit2.Text);
  // вычисление суммы
  summ:= long * price;
  // учет скидки
  if day in [6,7] // суббота или воскресенье
  then summ:= summ - discount;
  label3.caption:= FloatToStr(Summ);
end;

Кликните здесь для просмотра всего текста

PS:НЕ БРАТЬ МОЯ ПРОГРАММА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

@ZfoxAK · 19.04.2018, 05:39

Delphi

case day of
1..5 : summ:= long * price;
6..7 :summ:= long * (price - discount);
end;

@D1973 · 19.04.2018, 06:01

Гарик1241, ZfoxAK, а мне одному кажется, что сумму с учетом скидки, которая дана в процентах, считать надо так?

Delphi

1	summ := long * (price - price * discount);

@ZfoxAK · 19.04.2018, 06:59

Сообщение от D1973

которая дана в процентах

Я вот не уверен, что в процентах.

Сообщение от Гарик1241

discount: real = 0.25

Сообщение от Гарик1241

Причем для чисел 6 и 7 (суббота и воскресенье) стоимость 1 мин разговора на 20%

Да и как то не интересно догадываться. ТС задал вопрос как использовать Case, я продемонстрировал исходя из его формул.

Сообщение от Гарик1241

if day in [6,7] // суббота или воскресенье then summ:= summ - discount;

А уже напильником пусть сам свою баржу пилит.

@ZfoxAK 670 / 560 / 242 Регистрация: 26.11.2012 Сообщений: 2,191
	19.04.2018, 06:59	4
	Сообщение от D1973 которая дана в процентах Я вот не уверен, что в процентах. Сообщение от Гарик1241 discount: real = 0.25 Сообщение от Гарик1241 Причем для чисел 6 и 7 (суббота и воскресенье) стоимость 1 мин разговора на 20% Да и как то не интересно догадываться. ТС задал вопрос как использовать Case, я продемонстрировал исходя из его формул. Сообщение от Гарик1241 if day in [6,7] // суббота или воскресенье then summ:= summ - discount; А уже напильником пусть сам свою баржу пилит. 0