PascalABC.NET 3.10.3 Файл Правка Вид Программа Сервис Модули Помощь •Program1.pas* www.pas* ccc.pas* Program2.pas* переменная a: целое число; переменная b: целое число; начать…
PascalABC.NET 3.10.3 Файл Правка Вид Программа Сервис Модули Помощь •Program1.pas* www.pas* ccc.pas* Program2.pas* переменная a: целое число; переменная b: целое число; начать запись('Ввод ='); написать("Пользователь вводит что-то , 1-3 , что-то , что будет выводиться на экран в виде текста"); readln(a); если a = 1, то writeln('Один'); если a = 2, то writeln('Два'); если a = 3, то writeln('Три'); если a > 3, то пишемn("Вы сделали новое дело"); конец.| Задание 1: Пользователь вводит свой возраст с клавиатуры. В случае если пользователь ввел возраст до 18 лет - вывести на экран: Пользователь несовершеннолетний. В случае если пользователь ввёл возраст 18 или более лет - вывести на экран: Пользователь совершеннолетний Пример: Ввод: 35 Вывод: Пользователю 35 лет, пользователь совершеннолетний. Задание 2: Пользователь вводит первое число - расстояние в километрах с клаивиатуры. После чего, компьютер предлагает перевести число(ввод второго числа с клавиатуры), для выбора перевода. 1 - перевод в метры. 2- перевод в дециметры. 3- перевод в см. Пример: Ввод: 2, Ввод 1. Вывод: В 2 километрах - 2000 метров. Задание 3: Калькулятор. Пользователь вводит два числа с клавиатуры (число 1 и число 2). После чего, компьютер предлагает выбрать действие с числами (ввода третьего числа с клавиатуры). Действие 3 / Действие 4 * Действие 1 - Действие 2 + Пример: Ввод 20, ввод 40, ввод 2 Вывод: Ответ: 20+40 = 60 Пример 2: Ввод 10, ввод 5, ввод 4 Вывод: Ответ: 10*5 = 50 Компиляция прошла успешно (11 строк), 1 предупреждений ab Горячий Аам Гроу?"
Решение:
Задание 1:
program Task1;
var
age: integer;
begin
writeln('Введите ваш возраст:');
readln(age);
if age < 18 then
writeln('Пользователь ', age, ' лет, пользователь несовершеннолетний.')
else
writeln('Пользователь ', age, ' лет, пользователь совершеннолетний.');
end.
Объяснение:
- В данной программе создается переменная
ageдля записи возраста пользователя. - Пользователь вводит свой возраст с клавиатуры.
- Далее, используется условный оператор
if, который проверяет значение переменнойage. - Если возраст меньше 18, программа выводит на экран информацию о том, что пользователь несовершеннолетний.
- В противном случае (возраст больше или равен 18), программа сообщает, что пользователь совершеннолетний.
Задание 2:
program Task2;
var
distance, choice: integer;
begin
writeln('Введите расстояние в километрах:');
readln(distance);
writeln('Выберите тип перевода:');
writeln('1 - метры, 2 - дециметры, 3 - сантиметры');
readln(choice);
case choice of
1: writeln('В ', distance, ' километрах - ', distance * 1000, ' метров.');
2: writeln('В ', distance, ' километрах - ', distance * 10000, ' дециметров.');
3: writeln('В ', distance, ' километрах - ', distance * 100000, ' сантиметров.');
end;
end.
Объяснение:
- В этой программе создаются переменные
distanceиchoiceдля записи расстояния и выбора пользователя. - Пользователь вводит расстояние в километрах и выбирает тип перевода (метры, дециметры или сантиметры).
- С помощью оператора выбора
case ofпрограмма выполняет соответствующие вычисления в зависимости от выбора пользователя.
Задание 3:
program Calculator;
var
num1, num2, action: integer;
begin
writeln('Введите первое число:');
readln(num1);
writeln('Введите второе число:');
readln(num2);
writeln('Выберите действие:');
writeln('1 - вычитание, 2 - сложение, 3 - деление, 4 - умножение');
readln(action);
case action of
1: writeln('Ответ: ', num1, ' - ', num2, ' = ', num1 - num2);
2: writeln('Ответ: ', num1, ' + ', num2, ' = ', num1 + num2);
3: writeln('Ответ: ', num1, ' / ', num2, ' = ', num1 / num2);
4: writeln('Ответ: ', num1, ' * ', num2, ' = ', num1 * num2);
end;
end.
Объяснение:
- В этой программе создаются переменные
num1,num2иactionдля чисел и выбора операции. - Пользователь вводит два числа и выбирает операцию (сложение, вычитание, умножение или деление).
- С помощью оператора выбора
case ofпрограмма выполняет соответствующее математическое действие в соответствии с выбором пользователя.
Это были решения для трех задач. Если у тебя есть еще вопросы или задачи, не стесняйся их задавать!
