Меня это заводит в тупик...

[SanicX2]

Ребят, кто знает делфи?
Я начинаю только программировать, и начинаю с самых низов, первое что пишу, так это обыкновенный калькулятор. Только проблема вот в чем: я написал инструкцию для деления, но он выводит мне ошибку и я даже понять не могу, почему. Вроде все правильно
Вот исходник деления

procedure TForm1.Button4Click(Sender: TObject);
var A, B, C: Integer; // Delenie
begin
// Nachalo
A := StrToInt(Edit1.Text);
B := StrToInt(Edit2.Text);
C := A/B ;
Label1.Caption := IntToStr (C);
// Konec
end;

Что в нем не так?
В Сложение, умножение и вычитание все работает, а в делении нет. Сверил уже несколько раз. Помогите пожалуйста

[OldTimeWhiskey]

Вместо StrToInt попробуй StrToFloat

[SanicX2]

Цитата: Сообщение от OldTimeWhiskey Вместо StrToInt попробуй StrToFloat

Не помогает,
в строке

Цитата: var A, B, C: Integer; // Delenie

выявляет ошибку, но не пойму какую

[tltneon]

У тебя С - целое, а выполняется деление (С не может быть целым)

[SanicX2]

Цитата: Сообщение от tltneon У тебя С - целое, а выполняется деление (С не может быть целым)

Получается IntToStr нужно заменить на StrToFloat?
Но если заменяю, у меня выявляется ошибка в той строке, которую я указал выше.

[OldTimeWhiskey]

C: Real

[SanicX2]

Цитата: Сообщение от OldTimeWhiskey C: Real

Цитата: procedure TForm1.Button4Click(Sender: TObject); var a,b :Integer; C: REAL; begin A :=StrToInt(Edit1.Text); B :=StrToInt(Edit2.Text); C :=A/B; Label1.Caption:= FloatToStr(C); end;

Написал вот так, он вообще делить не хочет, но теперь хотя бы программа запускается

[OldTimeWhiskey]

procedure TForm1.Button4Click(Sender: TObject);
var a,b :Integer;
C: REAL;
begin
A :=StrToFloat(Edit1.Text);
B :=StrToFloat(Edit2.Text);
C :=A/B;
Label1.Caption:= FloatToStr(C);
end;

[SanicX2]

Цитата: Сообщение от OldTimeWhiskey C: Real

Делить начал. Наконец!
Но блин, если я делю 15 на 3 к примеру, должн по сути получится 5,но он считает у меня 0.2, почему?

[~Керя~]

Цитата: Сообщение от SanicX2 Делить начал. Наконец! Но блин, если я делю 15 на 3 к примеру, должн по сути получится 5,но он считает у меня 0.2, почему?

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=a/b;
Label1.Caption:=FloatToStr(c);
end;

[SanicX2]

Цитата: Сообщение от ~Керя~ procedure TForm1.Button1Click(Sender: TObject); var a,b,c:real; begin a:=StrToFloat(Edit1.Text); b:=StrToFloat(Edit2.Text); c:=a/b; Label1.Caption:=FloatToStr(c); end;

Тоже самое,ничего не изменилось

[~Керя~]

Цитата: Сообщение от SanicX2 Тоже самое,ничего не изменилось

Поменяй Edit1 и Edit2 местами
Или же припили цикл, if a>b then c:=a/b else c:=b/a;

[SanicX2]

Цитата: Сообщение от ~Керя~ Поменяй Edit1 и Edit2 местами Или же припили цикл, if a>b then c:=a/b else c:=b/a;

Циклы такие еще не изучал, поэтому не буду вставлять
Чуть позже протестирую, поменяв местами Edit1 и Edit2
Спасибо за помощь

[~Керя~]

Цитата: Сообщение от SanicX2 Циклы такие еще не изучал, поэтому не буду вставлять Чуть позже протестирую, поменяв местами Edit1 и Edit2 Спасибо за помощь

Не изучал if then else????? Это как?

if a>b then c:=a/b else c:=b/a; {Если а больше b тогда c:=а/b иначе c:=b/a;}

[MembRupt]

Это условный переход