Калькулятор валюты

[GoldCrown]

Здравствуйте! Я Студент 2го курса С группы Ис!
И у нас 2-рая пара практика по Delphi7(то-есть первый раз в ней работаем),думаю вы поняли что у меня мало знаний с Delphi7.
Взял на дом практическую работу, чтоб поучиться.
=================================== ========
Суть работы заключается в том что я должен написать программу в среде Delphi7. ПО- должно вычеслить...
нужно ввести курс доллара и сумму которую я хочу перевести в доллар тоеть рубль---> в доллар. И должно показать ответ. и тоже самое ток в место доллара евро. Вот скрин с моего рабочего стола, там видна работа программы и её код вычесления. При проверки программы, ответ не выдает...
Прошу помочь с этим.В колледж это особо и не нужно, нужно для меня,чтоб я знал. Если вам не трудно обьесните что к чему.( что это такое и что делает ) Это если вам не трудно!)

[min@y™]

слышь, гаудеамус, а не для тебя ли я писал вот эту лабу?

[GoldCrown]

У вас есть урок по этому видео или лекция ? Чтоб я мог тоже написать !

[min@y™]

У вас есть урок по этому видео или лекция ? Чтоб я мог тоже написать !

не понял... какой ещё урок, какая лекция?

[Stilet]

какой ещё урок, какая лекция?

Да отдай ты исходник - пожалей страждущего студента )

[min@y™]

Да отдай ты исходник - пожалей страждущего студента )

Да не поможет ему исходник. Я дам, конечно, но он даже не просит! Ему, блин, лекции/уроки какие-то надо.

[newerow1989]

Ему, блин, лекции/уроки какие-то надо.

Съезди и дай! Преподы же дают!...

[min@y™]

Съезди и дай!

Всем давать - развалится кровать.

[Stilet]

Шутники блин )))

[GoldCrown]

Сообщение от min@y™

не понял... какой ещё урок, какая лекция?

Скиньте исходник ! Если можно ! Со своей программой я разобрался !
Вот мой исходник если интересно( но я не дописал код ! )
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Label3: TLabel;
Label4: TLabel;
Edit4: TEdit;
Label5: TLabel;
Edit5: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure button3click(Sender: TObject);
procedure button1click(Sender: TObject);
procedure button2click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a,b,c,d,g:real;
implementation

{$R *.dfm}
procedure Tform1.button1click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
d:=c/a;
g:=c/b;
Edit4.Text:=FloatToStr(d);
Edit5.Text:=FloatToStr(g);
if Edit1.Text=' ' then showmessage('Введите курс доллара');
if Edit2.Text=' ' then showmessage(' Введите курс евро!');
end;

procedure Tform1.button2click(Sender: TObject);
begin
Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear; Edit5.Clear;
end;

procedure Tform1.button3click(Sender: TObject);
begin
close;
end;
end.