Задание №2.

Постановка задачи:

Написать программу, которая вычисляет доход по вкладу методом простых процентов (доход=сумма*(процент)/12)*срок). Рекомендуемый вид формы приведен на рисунок 2.2. В результате щелчка на кнопке Вычислить в окне программы должна отображаться величина дохода и сумма в конце срока вклада. Если поле редактирования не содержит данных, то в программе должен быть реализован вывод сообщения об этом.

Рисунок 2.2

Программная реализация задания №1:

procedure TForm1.Button1Click(Sender: TObject);

var

dist:integer;

min: integer;

sek:real;

v:real;

begin

if length(edit1.Text)=0

then edit1.Text:= '0';

if length(edit2.Text)=0

then edit2.Text:= '0';

if length(edit3.Text)=0

then edit3.Text:= '0';

dist:=strtoint(edit1.Text);

min:=strtoint(edit2.Text);

sek:=strtoint(edit3.Text);

if (dist=0)or ((min=0)and(sek=0)) then

begin

messageDlg('надо задать дистанцию и время', mtWarning,[mbOK],0);

exit;

end;

v:=(dist/1000)/((min*60+sek)/3600);

Label5.Caption:= 'Дистанция:' + Edit1.Text + 'м' + #13 + 'Время:' + inttostr(min) + 'мин' + floatToStr(sek) + 'сек'+#13+'скорость:'+ floattostr(v)+'км/час';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form1.Close;

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9': ;

#8 : ;

#13 :Edit2.SetFocus;

else key:=chr(0);

end;

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9': ;

#8 : ;

#13 :Edit3.SetFocus;

else key:=chr(0);

end;

end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9': ;

#8 : ;

#13 :button1.SetFocus;

else key:=chr(0);

end;

end;

end.

Лабораторная работа №3