Необходимо сделать подпрограмму. Помогите не умею я подпрограммы писать! 9 класс,
Необходимо сделать подпрограмму. Помогите не умею я подпрограммы писать! 9 класс, Делфи
Сделать подпрограмму, которая вводит с клавиатуры 3 числа, обретает найбольшее и выводит на экран.
1 ответ
Кира
var
a,b,c:integer;
begin read(a,b,c);
if (a gt; b) and (a gt; c) then
write(a)
else
if (b gt; a) and (b gt; c) then
write(b)
else
write(c);
end.
В делфи добавишь на форму Эдиты(4 штуки) и одну кнопку. В 3-х Эдитах будешь вводить свои значения, а в четвертом выведешь ответ и все это при клике на кнопку:
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 gt; b) and (a gt; c) then
max:= a;
else
if (b gt; a) and (b gt; c) then
max:= b;
else
max:= c;
edt4.Text:= 'Наибольшее число' + max;
//или ShowMessage(Наибольшее число' + max);
end.
begin read(a,b,c);
if (a gt; b) and (a gt; c) then
write(a)
else
if (b gt; a) and (b gt; c) then
write(b)
else
write(c);
end.
В делфи добавишь на форму Эдиты(4 штуки) и одну кнопку. В 3-х Эдитах будешь вводить свои значения, а в четвертом выведешь ответ и все это при клике на кнопку:
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 gt; b) and (a gt; c) then
max:= a;
else
if (b gt; a) and (b gt; c) then
max:= b;
else
max:= c;
edt4.Text:= 'Наибольшее число' + max;
//или ShowMessage(Наибольшее число' + max);
end.
Илья Мансветев
спасибо. Немогли бы вы помочь еще с этим? Написать программку которая обретает сумму елементов, которые польше числа введенного с клавиатуры. вывести масив и сумму на экран. масив вводиться с клавиатуры.
Sknarin Igorjan
Program sum;Var i,s,n:integer; a:array[1..10] of integer;Begin write('Введите элемент с которым сопоставлять= ');readln(n); s:=0; For i:=1 to 10 do begin write('Введите ',i,'-й элемент ');readln(A[i]); end; For i:=1 to 10 do if A[i]>n then begin write(A[i]:4);s:=s+A[i];End; Writeln; Writeln('Сумма= ',s); readln;End.
Камилла Митлина
В делфи массив можно вывести вот так:
Никита Сербучев
memo1.Lines.Add(IntToStr(mas[i]));
Ангелина Сайдумирова
Точнее вот так
Руслан
for i:= 1 to 6 do memo1.Lines.Add(IntToStr(mas[i]));
Вероника
заместо 6 подставляешь свои 10
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Облако тегов