Для решения поставленных задач в языке программирования Pascal мы можем воспользоваться простыми командами ввода и вывода. Давайте разберем каждую задачу по порядку с примерами кода.
Задача 1: Пользователь вводит свой возраст
program AgeCalculator;
var
age: Integer;
begin
Write('Введите ваш возраст: ');
ReadLn(age);
WriteLn('Вас зовут Андрей! Вам ', age, ' лет, через 7 лет вам будет ', age + 7, ' лет.');
end.
Объяснение:
- Объявляем переменную
age типа Integer для хранения возраста.
- Используем
Write для запроса ввода возраста пользователя.
- С помощью
ReadLn считываем введенное значение и сохраняем его в переменной age.
- Выводим сообщение с текущим возрастом и возрастом через 7 лет, используя конкатенацию строк.
Задача 2: Сумма, разность, умножение и деление двух чисел
program Calculator;
var
num1, num2: Integer;
begin
Write('Введите первое число: ');
ReadLn(num1);
Write('Введите второе число: ');
ReadLn(num2);
WriteLn(num1, ' + ', num2, ' = ', num1 + num2);
WriteLn(num1, ' - ', num2, ' = ', num1 - num2);
WriteLn(num1, ' * ', num2, ' = ', num1 * num2);
if num2 <> 0 then
WriteLn(num1, ' / ', num2, ' = ', num1 div num2)
else
WriteLn('Деление на ноль невозможно!');
end.
Объяснение:
- Объявляем две переменные
num1 и num2 типа Integer для хранения чисел.
- Запрашиваем у пользователя ввод двух чисел.
- Считаем и выводим результаты сложения, вычитания, умножения и деления.
- Проверяем, чтобы второе число не было нулем перед выполнением операции деления, чтобы избежать деления на ноль.
Задача 3: Периметр треугольника
program TrianglePerimeter;
var
side1, side2, side3: Integer;
perimeter: Integer;
begin
Write('Введите длину первой стороны: ');
ReadLn(side1);
Write('Введите длину второй стороны: ');
ReadLn(side2);
Write('Введите длину третьей стороны: ');
ReadLn(side3);
perimeter := side1 + side2 + side3;
WriteLn('Периметр треугольника равен: ', side1, ' + ', side2, ' + ', side3, ' = ', perimeter);
end.
Объяснение:
- Объявляем три переменные
side1, side2, side3 типа Integer для хранения длин сторон треугольника.
- Запрашиваем у пользователя ввод значений сторон треугольника.
- Вычисляем периметр, складывая длины всех сторон, и выводим результат.
Таким образом, каждая из задач решается с помощью простых операций ввода и вывода в языке Pascal. Вы можете запустить этот код в среде разработки, поддерживающей Pascal, и убедиться в его правильности.
