Если нужен алгоритм для системы "Кумир", то вот он:
использовать Чертежник
алг
нач
цел n,i,x,y
поднять перо
сместиться в точку (-2,-2)
нц для n от 0 до 3
нц для i от 1 до 4
выбор
при i=1: x:=0; y:=2
при i=2: x:=2; y:=0
при i=3: x:=0; y:=-2
при i=4: x:=-2; y:=0
все
опустить перо
сместиться на вектор (x,y)
поднять перо
сместиться на вектор (x*n,y*n)
опустить перо
сместиться на вектор (x,y)
кц
поднять перо
сместиться на вектор (-1,-1)
кц
кон
Левый столбец (третий): 3, 4, 6, 7, 8. Правый: 1200, 800, 600, 700, 800.
Uses crt;
var a,b:real;
num:integer;
begin
writeln('Введите два числа');
readln(a,b);
writeln('Выберите операцию: 1.сложение, 2.умножение');
readln(num);
clrscr;
case num of
1:writeln(a,'+',b,'=',a+b);
2:writeln(a,'*',b,'=',a*b);
end;
end.
function myFunction(x: real):real;
begin
if (x>=-10) and (x<2) then
myFunction:=sqr(x)+4*x-7 else
if ((x<-10) and (x<>0)) or (x>=2) then
myFunction:=1/(sqr(x)+4*x-7);
end;
var x,y: real;
begin
write('Введите x: ');
readln(x);
y:=myFunction(x);
writeln('y = ',y);
end.