Регистрация
cthut2016
05.05.2020 22:19
Информатика
Есть ответ 👍

Windows form apllication!! У циклі намалювати n горизонтальних відрізків.У всіх ліній координати найвищої точки однакові,відстані між ними теж однакові.Бцдь-який наступний відрізок довший від попереднього на величину L. 4

235
253
Посмотреть ответы 1

Ответы на вопрос:

лёхыч3
лёхыч3
4,4(94 оценок)
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.

Популярно: Информатика