Ввести 2 числа с клавиатуры если первое число больше второго то вывести на экран квадрат первого иначе квадрат второго
247
388
Ответы на вопрос:
Program a; var x,y: integer; begin writeln('введите два числа: '); readln(x); readln(y); if x > y then writeln(x * x) else writeln(y*y); end.
Uses graphabc; const w = 600; h = 600; function f(x: real): real; begin f : = sqr(x); end; var x0, y0, x, y, xleft, yleft, xright, yright: integer; a, b, fmin, fmax, x1, y1, mx, my: real; begin window.init(0, 0, 800, 500, clwhite); window.isfixedsize : = true; xright : = 590; yright : = 590; a : = -15; b : = 6; fmin : = -10; fmax : = 20; mx : = (xright - xleft) / (b - a); my : = (yright - yleft) / (fmax - fmin); x0 : = 380; y0 : = 490; x1 : = a; while x1 < = b do begin y1 : = f(x1); x : = x0 + round(x1 * mx); y : = y0 - round(y1 * my); if (y > = 10) and (y < = 590) then setpixel(x, y, clblack); x1 : = x1 + 0.001 ; end; end.
Популярно: Информатика
-
gg22825.09.2022 06:32
-
artem2432200417.06.2023 12:44
-
omarova424.11.2021 05:00
-
elv1n18.05.2021 21:10
-
bocmanlera18.03.2022 17:53
-
VolandDrein16.03.2021 06:45
-
baus10017.06.2022 15:59
-
NextHelp15.11.2021 02:30
-
Лиза4511113.06.2022 20:37
-
Хулиганочка1321.07.2020 09:39