1. Вам нужно выполнить программу на языке Паскаль . Задание: Напишите программу с названием Bid и проверьте ее работу

Язык программирования Паскаль:

1. Программа "Bid" для сложения и вычитания чисел:

pascal

program Bid;

var

  a, b, sum, difference: integer;

begin

  writeln("Введите два числа:");

  readln(a, b);

  

  sum := a + b;

  difference := a - b;



  writeln("Сумма: ", sum);

  writeln("Разность: ", difference);

end.

2. Программа "Bid" с округлением вещественных чисел:

pascal

program Bid;

var

  a, b: real;

  sum, difference: real;

begin

  writeln("Введите два числа:");

  readln(a, b);

  

  sum := a + b;

  difference := a - b;



  { округление до двух знаков после запятой }

  sum := RoundTo(sum, -2);

  difference := RoundTo(difference, -2);



  writeln("Сумма: ", sum);

  writeln("Разность: ", difference);

end.

3. Программа "Text":

pascal

program Text;

begin

  writeln("Привет, пользователь!");

  writeln("Добро пожаловать в мир программирования!");

end.

4. Измененная программа "Text" с условным выводом:

pascal

program Text;

var

  choice: integer;

begin

  writeln("Выберите опцию:");

  writeln("1 - Вывести первое слово");

  writeln("2 - Вывести второе слово");

  readln(choice);



  if choice = 1 then

    writeln("Привет,")

  else if choice = 2 then

    writeln("пользователь!")

  else

    writeln("ERROR");

end.

5. Программа для вычисления значения функции Y=1/x:

pascal

program FunctionY;

var

  x, result: real;

begin

  writeln("Введите значение x:");

  readln(x);



  { проверка на деление на ноль }

  if x <> 0 then

  begin

    result := 1 / x;

    writeln("Значение функции Y = 1/", x, " равно: ", result);

  end

  else

    writeln("Значение x не может быть равно нулю!");

end.

Доп. материал:
Выберите опцию:
1 - Вывести первое слово
2 - Вывести второе слово
Введите число: 2

Совет: Для понимания языка программирования Паскаль рекомендуется изучить основные конструкции языка, такие как операторы ветвления (if-else), арифметические операции (сложение, вычитание), взаимодействие с пользователем (ввод и вывод данных). Решайте практические задачи и тренируйтесь в написании программ для закрепления знаний.

Задание для закрепления: Напишите программу, которая будет запрашивать у пользователя два числа и выводить их произведение.