Нужно сделать подпрограмму. Помогите не умею я подпрограммы писать! 9 класс, Делфи
Сделать подпрограмму, которая вводит с клавиатуры 3 числа, находит найбольшее и выводит на экран.
Ответы
Ответ дал:
0
var
a,b,c:integer;
begin read(a,b,c);
if (a > b) and (a > c) then
write(a)
else
if (b > a) and (b > c) then
write(b)
else
write(c);
end.
В делфи добавишь на форму Эдиты(4 штуки) и одну кнопку. В трех Эдитах будешь вводить свои значения, а в четвертом выведешь ответ и все это при клике на кнопку:
Procedure btn1Click;
var a, b, c, max: integer;
begin
a:= StrToInt(edt1.Text); // где edt1,2,3 - имена полей для ввода(Эдиты)
b:= StrToInt(edt2.Text);
c:= StrToInt(edt2.Text);
if (a > b) and (a > c) then
max:= a;
else
if (b > a) and (b > c) then
max:= b;
else
max:= c;
edt4.Text:= 'Максимальное число' + max;
//или ShowMessage(Максимальное число' + max);
end.
begin read(a,b,c);
if (a > b) and (a > c) then
write(a)
else
if (b > a) and (b > c) then
write(b)
else
write(c);
end.
В делфи добавишь на форму Эдиты(4 штуки) и одну кнопку. В трех Эдитах будешь вводить свои значения, а в четвертом выведешь ответ и все это при клике на кнопку:
Procedure btn1Click;
var a, b, c, max: integer;
begin
a:= StrToInt(edt1.Text); // где edt1,2,3 - имена полей для ввода(Эдиты)
b:= StrToInt(edt2.Text);
c:= StrToInt(edt2.Text);
if (a > b) and (a > c) then
max:= a;
else
if (b > a) and (b > c) then
max:= b;
else
max:= c;
edt4.Text:= 'Максимальное число' + max;
//или ShowMessage(Максимальное число' + max);
end.
Ответ дал:
0
В делфи массив можно вывести вот так:
Ответ дал:
0
memo1.Lines.Add(IntToStr(mas[i]));
Ответ дал:
0
Точнее вот так
Ответ дал:
0
for i:= 1 to 6 do
memo1.Lines.Add(IntToStr(mas[i]));
memo1.Lines.Add(IntToStr(mas[i]));
Ответ дал:
0
вместо 6 подставляешь свои 10
Вас заинтересует
2 года назад
7 лет назад
10 лет назад