Курсовая работа: Разработка и реализация программы расчета платежа за электроэнергию

//Присваиваем переменным значения введенные пользователем в строки //

a:= StrToFloat(Edit4.Text); //переводим строчные переменные в вещественные для дальнейших вычислений.//

b:= StrToFloat(Edit5.Text);

c:= StrToFloat(Edit6.Text);

d:= StrToFloat(Edit7.Text);

rez := (a*b)+c-d;

//вывод сообщения с результатом //

ShowMessage('Уважаемый '+Edit1.Text+#13+'Проживающий по адресу '+Edit2.Text+#13+

'Сообщаем вам что на '+Edit3.Text+#13+'вы должны '+

FloatToStrF(rez,ffFixed,90,2)+' рублей'+#13+'за используемую вами электроэнергию.');

//Создание так называемой «системы оценки». Это так называемый Easter egg программы – в зависимости от полученной суммы программа будет выводить различные сообщения (используется оператор УСЛОВИЕ)//

Ifrez<10 thenbeginlabel9.Caption :='Так мало... Вы как так умудрились?';end;

Ifrez>10 thenbeginlabel9.Caption :='Вы счастливчик !!! Это совсем немного';end;

Ifrez=0 thenbeginlabel9.Caption :='Поздравляю вы не должны ни копейки'; end;

If rez<0 then begin label9.Caption :='Вы жулик !!! это невозможно'; end;

If rez>500 then begin label9.Caption :='Хм... немало... но терпимо'; end;

If rez>1000 then begin label9.Caption :='Ого... многовато'; end;

If rez>5000 then begin label10.Caption :='Быстро выключайте все !!! Уже и так света понажгли !!!'; end;

If rez>10000 then begin label9.Caption :='Вам капец...'; end;

If rez>50000 then begin label9.Caption :='Сдается мне вы юморист...'; end;

If rez>1000000 then begin label9.Caption :='Хватит прикалываться !!!'; end;

end;

//Описание процедуры КНОПКА 2 НАЖАТЬ (АВТОР)//

procedure TForm1.Button2Click(Sender: TObject);

begin

//Вывод сообщения об авторстве//

ShowMessage('Автор и разработчик данной программы: '+#13+'Оробец Максим Сергеевич НИЭИ ДВГТУ Группа 8221 2 курс '+#13+'Программа написана на Delphi 7.Код программы мой на 100 %'+#13+'Надеюсь вам понравилось');

end;

//Описание процедуры НАЖАТЬ НОПКА 3 (бланк)//