Yi = axi^3+b√xi, если xi> =a
yi = tg(a-x1), если xi размерность i=1,; n=12
составить блок-схему решения примера, тема: высти массив значений. (паскаль)

схема и объяснение снизу

program ufhcn;

var x, y, a, i, b: real;

uses crt;

begin

clrscr;

writeln('вводи число 1');

readln(i);

writeln('вводи число 2');

readln(x);

if (x> =0) then writeln('все в порядке')

else writeln('не правильная цифра');

if (i> =1) and (i< =13)

then writeln('число входит в ряд', x*i> =a)

else writeln('не входит ряд');

writeln('води число 3');

readln(a);

if (a> =0) then writeln('вводи число 4');

readln(b);

if (b> =0) then writeln('находим первый y= ', a*x*(i*i*i)+b*sqrt(x*i));

if (b< 0) then writeln('находим второй y= ', (sin(x)/cos(x))*(a-(x*

end.

начало

вводим переменную i

вводим переменную x

если x> =0 то

если нет если да

то нет. то далее

ввели интервал в переменную i

если (i> =1) и (i< =12) то

если нет. если да

то нет решения. то есть решение

вводим число 3

если (а> =0) то

вводим число 4

если (b> =0) то

y1= a*x*(i*i*i)+b*sqrt(x*i))

если (b< 0) то

y2= ', (sin(x)/cos(x))*(a-(x*

конец

короче объясняю.

ввёл 4 переменных

сделал так чтобы все вводимые были больше нули или равны ему чтобы легче было.

ввёл интервал i от 1 до 12

остальное решает уравнение поле ввода 4 переменных, если что-то не устроило пиши разберусь

Из трех отрезков  a,  b,  c   можно составить треугольник, если выполняется неравенство треугольника: сумма длин двух любых сторон треугольника строго больше длины третьей.program triangle; var    a,b,c: integer;     res: string; begin     readln(a,b,c);     { отсортировать a,b,c. имеем: a < = b < = c }     if c > = a + b then res : = 'не возможно! ' else   if c*c = a*a + b*b then res : = 'возможно, прямоугольный.' else  if c*c < a*a + b*b then res : = 'возможно,  остроугольный. ' else  res : = 'возможно,  тупоугольный ';   writeln(res); end.