схема и объяснение снизу
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 переменных, если что-то не устроило пиши разберусь
во всех выражениях первые 3 столбца одинаковы я их только в 1 и во 2 примере написал их но их надо во всех выражениях писать
1) x∧y∧z
x y z x ∧ y ∧ z
0 0 0 0
0 0 1 0
0 1 0 0
0 1 1 0
1 0 0 0
1 0 1 0
1 1 0 0
1 1 1 1
2) x∧¬y∧z
x y z ¬ у x ∧ ¬y ∧ z
0 0 0 1 0
0 0 1 1 0
0 1 0 0 0
0 1 1 0 0
1 0 0 1 0
1 0 1 1 1
1 1 0 0 0
1 1 1 0 0
3) x∧y∧¬z
¬z x∧y∧¬z
1 0
0 0
1 0
0 0
1 0
0 0
1 1
0 0
4) ¬x∧¬y∧¬z;
¬x ¬ у ¬z ¬x∧¬y∧¬z
0 1 1 1
0 1 0 0
0 0 1 0
0 0 0 0
1 1 1 0
1 1 0 0
1 0 1 0
1 0 0 0
в остальных примерах я не буду писать столбцы ¬x ¬y ¬z
если что сам их запишешь все их значения есть в 4 выражении всех их значение во всех выражениях одинаковые
5) x∨y∨z
x∨y∨z
0
1
1
1
1
1
1
1
6) x∨¬y∨z
¬y x∨¬y∨z
1
1
0
1
1
1
1
1
7) x∨y∨¬z
¬z x∨y∨¬z
1
0
1
1
1
1
1
1
8) ¬x∨¬y∨¬z;
¬x ¬y ¬z ¬x∨¬y∨¬z
1
1
1
1
1
1
1
0
9) ¬( x∧y∧z )
x∧y∧z ¬( x∧y∧z )
0 1
0 1
0 1
0 1
0 1
0 1
0 1
1 0
10) ¬(x∧¬y∧z)
¬y x∧¬y∧z ¬(x∧¬y∧z)
0 1
0 1
0 1
0 1
0 1
1 0
0 1
0 1
11) ¬(x∨y∨z)
x∨y∨z ¬(x∨y∨z)
0 1
1 0
1 0
1 0
1 0
1 0
1 0
1 0
12) ¬( x∨¬y∨z)
¬y x∨¬y∨z ¬( x∨¬y∨z)
1 0
1 0
0 1
1 0
1 0
1 0
1 0
1 0
{Процедура построения квадрата при n двойной четности: n=4,8,12,16...}
PascalВыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 Var i,j,k:integer; p,l:integer; i1,j1,x,y:integer; Begin l:=1; p:=n*n; for i:=1 to n do for j:=1 to n do begin a[i,j]:=l; inc(l) {l:=l+1} end; i:=2; while i<=n-2 do begin if i mod 4=0 then j:=4 else j:=2; while j<=n-2 do begin for i1:=0 to 1 do for j1:=0 to 1 do begin y:=i+i1; x:=j+j1; a[y,x]:=p-a[y,x]+1; end; j:=j+4; end; i:=i+2 end; k:=4; while k<=n-4 do begin a[1,k]:=p-a[1,k]+1; a[1,k+1]:=p-a[1,k+1]+1; a[n,k]:=p-a[n,k]+1; a[n,k+1]:=p-a[n,k+1]+1; a[k,1]:=p-a[k,1]+1; a[k+1,1]:=p-a[k+1,1]+1; a[k,n]:=p-a[k,n]+1; a[k+1,n]:=p-a[k+1,n]+1; k:=k+4 end; a[1,1]:=p-a[1,1]+1; a[n,n]:=p-a[n,n]+1; a[1,n]:=p-a[1,n]+1; a[n,1]:=p-a[n,1]+1; end;