Листинг 1:
program sum_cubes;
(c) NaaMan}
function func(x: real): real;
begin
Result := 3*x*x + 3*sin(x);
end;
const
start = 0.0;
finish = 5.0;
step = 0.7;
var
sum, i: real;
n: integer;
begin
sum := 0;
n := 0;
i := start;
while i <= finish do begin
var y: real;
y := func(i);
writeln(i,' ', y:8:3);
if y > 0 then begin
sum := sum + power(y,3);
n := n + 1;
end;
i := i + step;
end;
writeln( 'Sum = ', sum:10:3, ' Count = ', n);
end.
Листинг 2:
program arr_sum_cou;
(c) NaaMan}
var
sum, n: integer;
begin
sum := 0;
n := 0;
var a := ArrRandomInteger(100, -40, 40);
foreach var i in a do
if i < 0 then
sum := sum + i
else
n := n + 1;
writeln('Array: ', a);
writeln( 'Sum = ', sum, ' Count = ', n);
end.
Листинг 3:
program arr_sum_cou;
(c) NaaMan}
var F: boolean;
begin
F := True;
var A := ArrRandomInteger(10, 1, 10);
var B := ArrRandomInteger(10, 1, 10);
writeln(A);
writeln(B);
for var i := 0 to 9 do
if A[i] = B[i] then begin
writeln('Item = ', i, ' Value = ', A[i]);
F := False;
end;
if F then
writeln('Совпадений нет.');
end.
1.Гиперссылка - это часть документа, ссылающаяся на элемент в этом документе или на другой объект.
Гиперссылки мы находим в практически каждом документе, например:
Научная статья (в ней может находится ссылка на какой-либо другой источник, либо же какой-то другой документ указывает на статью гиперссылку)
Резюме (в нём могут быть ссылки на ваш почтовый ящик, файлы)
Также гиперссылки используются просто в больших документах, где можно создать лист "Оглавление" для быстрого перехода на нужные Вам страницы.
Поделитесь своими знаниями, ответьте на вопрос:
Символом f обозначено одно из указанных ниже логических выражений от трех аргументов: x, y, z. дан фрагмент таблицы истинности выражения f: x y z f 1 0 0 0 0 0 0 1 1 1 1 0 какое выражение соответствует f? 1) ¬x v ¬y v z 2) x ^ y ^ z 3) ¬x ^ ¬y ^ ¬z
Пишу так. v - это OR, ^ - AND, ¬ - ! чтобы удобнее было
1) !x OR !y OR z
F(1, 0, 0) = 0 OR 1 OR 0 = 1 неверно.
2) X AND Y AND Z
F(1, 0, 0) = 1 AND 0 AND 0 = 0 верно.
F(0, 0, 0) = 0 AND 0 AND 0 = 0 неверно.
3) !x AND !y AND !z
F(1, 0, 0) = 0 AND 1 AND 1 = 0 верно.
F(0, 0, 0) = 1 AND 1 AND 1= 1 верно
F(1, 1, 1) = 0 AND 0 AND 0 = 0 верно
ответ 3.