CorelDRAW
(программа для изображения узоров)
151 в десятичной
не меньше 20 символов
Сделано с рандомными числами.
program massiv; var mas:array [1..10] of real; a:real; i:byte; begin a:=0; for i:=1 to 10 do begin mas[i]:=random(10)+1; if a<mas[i] then a:=mas[i]; end; writeln(a, ' - наибольшее из чисел массива ' ); end.
Program variant;
var
x,a,d:real;
i:integer;
begin
Write('введите x='); Read(x);
for i:=1 to 7 do begin
a:=0.14+0.22*(i-1);
d:=(0.15*x-a)/ln(a*a-x*x);
Writeln(a:4:2,d:16:9);
a:=a+0.22
end
end.
<u>Пример</u>
введите x=0.027
0.14 0.034243220
0.36 0.173723688
0.58 0.527608521
0.80 1.778950153
1.02 -26.114068556
1.24 -2.875984233
1.46 -1.924508518
Определение импликации:
A → B == ~A + B
~(A + ~B) + (B * C * D) = 1
По закону де Моргана:
(~A * B) + (B * C * D) = 1
Группируем:
B * (~A + C * D) = 1
Можем записать решения:
A B C D
0 1 0 0
0 1 0 1
0 1 1 0
0 1 0 1
1 1 1 1