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

@Igorurkevich · Регистрация: 06.10.2014

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

сделать а среде delphi

@Argentum-47 · 04.12.2014, 20:45

Создай на форме 3 Edita, 1 кнопку и 1 Label.
В обработчике кнопки пиши:

Delphi

procedure TForm1.Button1Click(Sender: TObject);  //эта строка автоматически создаётся
var A,B,C,D:Integer;
begin
A:=StrToInt(Edit1.Text);
B:=StrToInt(Edit2.Text);          
C:=StrToInt(Edit3.Text);
 
If (A<B) and (A<C) then D:=A;    
 
If (B<A) and (B<C) then D:=B;    
 
If (C<A) and (C<B) then D:=C;    
 
Label1.Caption:=IntToStr(D);     
 
end;

@Igorurkevich 0 / 0 / 0 Регистрация: 06.10.2014 Сообщений: 5
		1
	Составить программу, которая из трёх заданных чисел выберет минимальное 01.12.2014, 11:22. Показов 2809. Ответов 1 Метки нет (Все метки) сделать а среде delphi 0

	04.12.2014, 20:45

Опции темы

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

Решение