✔ Правильная запись условия на языке Паскаль. Примеры логических операторов для курса информатики в 5-9 классах. Пример программы на PascalABC.NET, показывающей логические операции
Проверка чётности числа
Вести целое число. Если число четное, то увеличить его на 10, иначе уменьшить на 10.
Классический вариант решения, в том числе для Turbo/Borland Pascal
var
A, Res : Integer;
begin
writeln('Условные операторы. Задача №1');
write('Введите целое число ');
readln(A);
if A mod 2 = 0 then begin
Res := A + 10;
writeln('Результат ', Res)
end
else begin
Res := A - 10;
writeln('Результат ', Res)
end
end.
Вариант решения задачи для PascalABC.NET
begin
Println('Условные операторы. Задача №1');
var Res : Integer;
var A := ReadInteger('Введите целое число');
if A mod 2 = 0 then begin
Res := A + 10;
Println('Результат ', Res)
end
else begin
Res := A - 10;
Println('Результат ', Res)
end
end.
Результат вычисления, зависящий от знака чисел
Дано два числа. Если оба числа положительные или отрицательные, то найти их сумму, иначе удвоить каждое число по отдельности и вывести результат.
Вариант решения задачи №1
begin
Println('Условные операторы. Задача №2');
var A, B, Res, ResA, ResB : Integer;
A := ReadInteger('Введите 1-ое число');
B := ReadInteger('Введите 2-ое число');
if ((A > 0) AND (B > 0)) OR ((A < 0) AND (B < 0)) then begin
Res := A + B;
Println('Сумма чисел ', Res)
end
else begin
ResA := A * 2;
ResB := B * 2;
Println('Результат ', ResA);
Println('Результат ', ResB)
end
end.
Вариант решения задачи №2, с использованием рекомендаций языка PascalABC.NET
begin
Println('Условные операторы. Задача №2');
var (A, B) := ReadInteger2('Введите 2 целых числа');
if ((A > 0) AND (B > 0)) OR ((A < 0) AND (B < 0)) then begin
var Res : Integer := A + B;
Println('Сумма чисел ', Res)
end
else begin
var ResA := A * 2;
var ResB := B * 2;
Println('Результат ', ResA);
Println('Результат ', ResB)
end
end.
Проверить существует ли треугольник. Определить его тип
Треугольник существует если сумма длин любых двух сторон больше третьей стороны.
Равносторонний треугольник - все его стороны равны.
Равнобедренный треугольник - две стороны равны.
Разносторонний треугольник - все стороны не равны между собой.
Классический вариант решения, в том числе для Turbo/Borland Pascal
program if_1;
var a, b, c : Integer;
begin
writeln('Условные операторы. Задача №3');
write('Введите стороны треугольника ');
readln (a, b, c);
if (a+b <= c) or (a+c <= b) or (b+c <= a) then
writeln('Такой треугольник не существует.')
else
if (a <> b) and (a <> c) and (b <> c) then
writeln('Это разносторонний треугольник.')
else
if (a = b) and (b = c) then
writeln('Это равносторонний треугольник.')
else
writeln('Это равнобедренный треугольник.');
end.
Вариант решения задачи для PascalABC.NET
begin
Println('Условные операторы. Задача №3');
var (A, B, C) := ReadInteger3('Введите стороны треугольника');
if (a+b <= c) or (a+c <= b) or (b+c <= a) then
Println('Такой треугольник не существует.')
else
if (a <> b) and (a <> c) and (b <> c) then
Println('Это разносторонний треугольник.')
else
if (a = b) and (b = c) then
Println('Это равносторонний треугольник.')
else
Println('Это равнобедренный треугольник.');
end.
✔ Правильная запись условия на языке Паскаль. Примеры логических операторов для курса информатики в 5-9 классах. Пример программы на PascalABC.NET, показывающей логические операции
