Задание 1 ( ). Опишите основные логические операции. Приведите примеры их использования.
Задание 2.
Напишите программы на Паскале.
Даны три целых числа. Проверить истинность высказывания «Каждое число — четное» ( ).
Составить программу на Паскале, которая выведет значение true, если высказывание истинное, и false — в противном случае.
«Треугольник со сторонами a, b, c является равносторонним» ( ).
В отчет включить коды программ, результаты работы в виде скриншотов окна программы.
Хотелось бы конечно определиться с границами массива, но раз они не заданы, то допустим, что массив имеет размерность 10х10. Также нам неизвестен тип данных (целочисленный или вещественный), так что допустим, что массив заполняется целочисленными элементами. Тогда, программа примет следующий вид:
VAR
A: ARRAY [1..10, 1..10] OF INTEGER;
i, j: BYTE; {Переменные-счётчики циклов}
flag: BOOLEAN: {переменная флаг логического типа, сигнализирующая о наличии или отсутствии отриц.элементов в первой строке}
BEGIN
flag := FALSE; {Изначально допустим, что отриц.элементов нет}
FOR i := 1 TO 10 DO
FOR j := 1 TO 10 DO
READLN (A[i, j]); {Заполняем массив элементами}
FOR i := 1 TO 10 DO
IF A[1, i] < 0 THEN flag := TRUE; {Проверяем первую строку на наличие отриц. элементов}.
IF flag THEN WRITELN ('Да') ELSE WRITELN ('Нет');
END.
Если в процессе понимания решения возникнут какие-либо сложности, то обращайтесь.
1)
var mas: array[1..10] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания
var counter: integer;
begin
for i:= 1 to 10 do
begin
if mas[i]<0 then counter:=counter+1;
end;
end.
2)
var mas: array[1..5] of integer = {.,.,}; // перечисление элементов массива, который дан по условию задания
var counter: integer;
begin
for i:= 1 to 5 do
begin
if (mas[i]>0) and (i mod 2 = 0) then counter:=counter+1;
end;
end.
3)
var mas: array[1..15] of integer = {.,.,}; // перечисление элементов массива, который дан по условию задания
var counter: integer;
begin
for i:= 1 to 15 do
begin
if (mas[i]>5) and (i mod 2 = 0) then counter:=counter+1;
end;
end.
4)
var mas: array[1..15] of integer;
var counter: integer;
begin
for i:= 1 to 15 do
begin
mas[i] = random(20) - 5;
end;
for i:= 1 to 15 do
begin
writeln(mas[i]);
end;
for i:= 1 to 15 do
begin
if (mas[i]>0) then counter:=counter+1;
end;
end.
5)
var mas: array[1..7] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания
var counter: integer;
begin
for i:= 1 to 7 do
begin
readln(mas[i]);
end;
for i:= 1 to 7 do
begin
if mas[i]>0 then mas[i]=0;
end;
for i:= 1 to 7 do
begin
writeln(mas[i]);
end;
end.
6)
var mas: array[1..10] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания
var counter: integer;
var sum: real;
var average: real;
begin
for i:= 1 to 7 do
begin
readln(mas[i]);
end;
for i:= 1 to 7 do
begin
if mas[i]<0 then
begin
sum:=sum+mas[i];
counter:=counter+1;
end
end;
average:= sum/counter;
end.
Объяснение: