Вариант 2 1. Символом F обозначено одно из указанных ниже логических выражений
от трех аргументов: X, Y, Z. Дан фрагмент табцы истинности
выраження F (см. таблицу справа). Какое выражение соответствует F?
1) -xvYv-z 2) XAYA-Z 1) -ХА-YAZ 4) Xv-YvZ
Y 2 | F
0 1 о о
1 1 0 1
1011
о
2. Построить таблицу истинности для выражения AABVBVC.
3. Для какого из указанных значений X истинаю высказыванне (Х<5) V ((X5) A (X>15)?
1) 1 2) 5 3) 10
4) 13
Вариант 2
У
2
F
о
0
о
1
1. Символом F обозначено адно по указанных ниже логических выражений
от трех аргументов: х. Y, Z Дан фрагмент таблицы истинности
выражения F (см. таблигу справа). Какое выражение соответстпует F?
0
о
1
1
у
n=7;
type
V=array[1..n] of real;
procedure mReplace(t:real;var a:V;var k:integer);
var
i:integer;
begin
k:=0;
for i:=1 to n do
if a[i]<t then begin a[i]:=t; Inc(k) end
end;
var
T:real;
i,k1,k2:integer;
P,C:V;
begin
Write('Введите значение T: '); Read(T);
Writeln('Введите элементы массива P');
for i:=1 to n do Read(P[i]);
Writeln('Введите элементы массива C');
for i:=1 to n do Read(C[i]);
mReplace(T,P,k1); mReplace(T,C,k2);
if k1>k2 then
begin
Writeln('Измененнный массив Р'); for i:=1 to n do Write(P[i],' ')
end
else
if k2>k1 then
begin
Writeln('Измененнный массив C'); for i:=1 to n do Write(C[i],' ')
end
else Writeln('Число замен в массивах равно ',k1)
end.
Тестовое решение:
Введите значение T: 0.005
Введите элементы массива P
0.001 1.54 -2.75 0.002 -0.1 1.2 -0.47
Введите элементы массива C
-5.74 0.0001 4.1 7.24 -1.5 2.9 0.004
Измененнный массив Р
0.005 1.54 0.005 0.005 0.005 1.2 0.005
program Kv_ur;
var a,b,c,x1,x2,D: real;
begin
Writeln ('Для решения квадратного уравнения');
Writeln ('Введите коэффициент a');
Readln (a);
Writeln ('Введите коэффициент b');
Readln (b);
Writeln ('Введите коэффициент c');
Readln (c);
D:=Sqr(b)-4*a*c;
If d<0 then Writeln ('Так как дискрименант ',D,'<0 уравнение не имеет решений');
begin
If d=0 then
begin
x1:=-b/(2*a);
Writeln ('Так как дискриминант равен 0 уравнение имеет один корень:');
Writeln(x1);
end;
If d>0 then
begin
x1:=(-b- Sqrt(Sqr(b)-4*a*c))/2*a;
x2:=(-b+ Sqrt(Sqr(b)-4*a*c))/2*a;
Writeln ('Так как дискриминант ',D,'>0 уравнение имеет два корня:');
Writeln ('x1=', x1, ' и x2=', x2);
end;
end;
end.
122. Можно ли прямоугольный пакет размерами A,B,C положить в чемодан размерами X,Y,Z?
program chemodan;
var a,b,c,x,y,z: real;
begin
Writeln ('введите размеры пакета');
Writeln ('Введите длину a');
Readln (a);
Writeln ('Введите ширину b');
Readln (b);
Writeln ('Введите высоту c');
Readln (c);
Writeln ('введите размеры чемодана');
Writeln ('Введите длину х');
Readln (x);
Writeln ('Введите ширину y');
Readln (y);
Writeln ('Введите высоту z');
Readln (z);
If (a<=x) and (b<=y) and (c<=z) then Writeln ('пакет можно положить')
else Writeln ('пакет положить нельзя');
End.