1.Составить программу в паскале,которая предлагает Ивану -Царевичу выбрать правильное направление пути.У Ивана-Царевича есть три варианта дальнейшего пути: направо,-"Коня потеряешь" налево,-"голову сложишь" вперёд,-"невесту найдёшь" 2.Составить прогрмму,которая определяет положительное число или отрицательное. 3.Дано целое число А.Если значение А>0,то необходимо его уыеличить на единицу.Если В<0,то уменьшить на единицу. Зарание спасибо :)
Вот примеры программ на языке Паскаль, соответствующие вашим заданиям.
program IvanTsarevichPath;
uses crt;
var
choice: integer;
begin
clrscr;
writeln('Иван-Царевич, выбери направление пути:');
writeln('1. Направо - "Коня потеряешь"');
writeln('2. Налево - "Голову сложишь"');
writeln('3. Вперёд - "Невесту найдёшь"');
write('Введите номер направления (1, 2 или 3): ');
readln(choice);
case choice of
1: writeln('Вы выбрали направо. Увы, коня потеряли.');
2: writeln('Вы выбрали налево. Увы, голову сложили.');
3: writeln('Вы выбрали вперёд. Ура! Невеста найдена!');
else
writeln('Некорректный выбор. Пожалуйста, выберите 1, 2 или 3.');
end;
readln;
end.
program PositiveNegative;
uses crt;
var
number: integer;
begin
clrscr;
write('Введите целое число: ');
readln(number);
if number > 0 then
writeln('Число ', number, ' положительное.')
else if number < 0 then
writeln('Число ', number, ' отрицательное.')
else
writeln('Число равно нулю.');
readln;
end.
program ModifyInteger;
uses crt;
var
A: integer;
begin
clrscr;
write('Введите целое число A: ');
readln(A);
if A > 0 then
begin
A := A + 1;
writeln('A увеличено на единицу. Новое значение A: ', A);
end
else if A < 0 then
begin
A := A - 1;
writeln('A уменьшено на единицу. Новое значение A: ', A);
end
else
writeln('Число A равно нулю. Никаких изменений не произошло.');
readln;
end.
Выбор пути: Программа предлагает Ивану-Царевичу выбрать направление, считывает его выбор и выводит соответствующее сообщение. Используется конструкция case, которая позволяет удобно обрабатывать разные варианты выбора.
Определение числа: В этой программе пользователь вводит целое число, после чего с помощью условного оператора if определяется, является ли число положительным, отрицательным или равным нулю.
Изменение значения A: Программа проверяет значение переменной A и изменяет его в зависимости от условия (увеличивает на 1, если положительное, и уменьшает на 1, если отрицательное).
Эти программы простые и понятные, они помогут вам понять основные конструкции языка Паскаль, такие как условные операторы и циклы.
Вот подробные программы на языке Pascal для выполнения каждого из заданий:
program IvanTsarevich;
var
choice: integer;
begin
writeln('Иван-Царевич, выбери направление пути:');
writeln('1 - Направо ("Коня потеряешь")');
writeln('2 - Налево ("Голову сложишь")');
writeln('3 - Вперед ("Невесту найдешь")');
write('Введите номер направления (1, 2, 3): ');
readln(choice);
case choice of
1: writeln('Направо: Коня потеряешь.');
2: writeln('Налево: Голову сложишь.');
3: writeln('Вперед: Невесту найдешь.');
else
writeln('Неправильный выбор. Пожалуйста, перезапустите программу и выберите 1, 2 или 3.');
end;
end.
program CheckNumber;
var
num: integer;
begin
write('Введите число: ');
readln(num);
if num > 0 then
writeln('Число положительное.')
else if num < 0 then
writeln('Число отрицательное.')
else
writeln('Число равно нулю.');
end.
program ModifyNumber;
var
A: integer;
begin
write('Введите целое число A: ');
readln(A);
if A > 0 then
begin
A := A + 1;
writeln('Число A положительное. Увеличиваем на 1. Теперь A = ', A);
end
else if A < 0 then
begin
A := A - 1;
writeln('Число A отрицательное. Уменьшаем на 1. Теперь A = ', A);
end
else
writeln('Число равно нулю. A = ', A);
end.
Программа выбора пути для Ивана-Царевича:
case of для обработки выбора пользователя (1, 2 или 3).Программа проверки знака числа:
if . then . else определяется, является ли число положительным, отрицательным или равным нулю.Программа изменения значения числа A:
Эти программы можно легко адаптировать и протестировать в любой среде разработки для Pascal, например Free Pascal или Turbo Pascal.
