8. Закрийте . Створіть обробник події Click для - вопрос №169294418 от Оля010720 25.03.2020 17:04

Question

Информатика: 8. Закрийте . Створіть обробник події Click для першої кнопки, виконання якого встановить ширину форми 800 пікселів, висоту форми 400 пікселів, колір фону форми зелений, ширину цієї кнопки 200 пікселів, збіль- шить її висоту на 10 пікселів, перемістить її на 50 пікселів ліворуч і на 30 пікселів уверх, зробить її недоступною.

Оля010720 · Answer

var

x, y, a, b, c, D, x1, x2: real;

inp: string;

inp_arr: array of string;

begin

writeln('a b c');

readln(inp);

inp_arr := inp.split(' ');

a := StrToFloat(inp_arr[0]);

b := StrToFloat(inp_arr[1]);

c := StrToFloat(inp_arr[2]);

D := b*b - 4 * a * c;

x1 := (-b + sqrt(D)) / 2*a;

x2 := (-b - sqrt(D)) / 2*a;

if x1 > x2 then x := x1

else x := x2;

if x < 0 then y:= (1 / (x + (sin(x)/(x*x+1

else y:= (x*x-1)*sin(x)/(x*x*x);

write('a:', a, ' b:', b, ' c:', c, ' x:', x, ' y:', y);

end.