Var y,xn,xk,s:real; begin readln(s,xn,xk);//s-шаг функции xn и xk - интервал иксов, в котором мы рассматриваем функцию writeln('x',' ','y'); while xn<xk do begin while xn<0 do begin y:=0; xn+=s; writeln(xn,' ',y); end; while y<4 do begin y:=power(xn,2); xn+=s; writeln(xn,' ',y); end; while xn<xk do begin y:=4; xn+=s; writeln(xn,' ',y); end; exit; end; end.
Var x,y:real; begin write('x = '); readln(x); if (x<-4)or(x>4) then writeln('Функция не определена') else begin if x<0 then y:=0 else if x<2 then y:=x*x else y:=4; writeln('Y = ',y); end; end.
При составлении таблиц истинности количество строк зависит от количества логических переменных, а количество столбцов - от количества логических операций в выражении.