Информатика. Программа, методические указания и контрольные задания - 33 стр.

UptoLike

program zadacha;
const n = 12;
type mas = array [1..n] of real;
const A : mas = (720.20, 740.65, 790,
762.78, 712.97, 742.20, 765, 784.10,
794.37, 800.45, 801.34, 805.66);
B : mas = (1760.10, 1240.25, 1890,
1772.68, 1922.32, 1442.80, 1895.23,
1478.32, 1996.40, 1810.25, 2101.67,
2205.91);
procedure summa (var c : mas);
var i:integer;
begin
for i : = 1 to n do
C[i] := A[i] + B[i];
end;
procedure vivod (var c : mas);
var i:integer;
begin
for i : = 1 to n do
writeln ('зарплата за ',i,' месяц = ', C[i] :
5 : 2);
end;
var C : mas;
begin
summa (C);
vivod (C);
readln;
end.
Ответ:
Задания контрольной работы 2
1 Составить таблицу истинности для логического выражения F.
1.1 F = (X Y) ((¬X
∧¬Z) Y)
1.2 F = ((¬X Y) Z) (X
¬Y)
1.3 F = ¬X ((¬Y Z) X
Y)
1.4 F = ((X ¬Y) Z) (¬X
Y) ¬Z
1.5 F = (X (Z ¬Y)) (Y
(Z ¬X))
1.6 F = ((¬X Z) ¬Y)
1.11 F = ¬ ((¬X ¬Z) (¬(Y
Z) X))
1.12 F = (X (¬(Z Y))) (¬Y
¬X)
1.13 F = ¬Y (¬X Z) (¬
(X Y))
1.14 F = (¬ (X Y)) (¬(Y
¬Z) X)
1.15 F = ¬(((¬X Z) Y) (X
¬Y))
1.16 F = ¬ (¬Z (¬Y ¬X)