Question

В Паскале. Изменить программу так ,что бы она находила: 1) сумму четырёх чисел 2)произведения чисел 3)квадрат каждого числа

Answer 1

program Calc;
var

a, b: integer;

number : integer;

begin

writeln('Добро пожаловать в наш калькулятор/You are welcome! Введите значение a =');

read(a);

writeln('Введите значение b =');

read(b);

writeln('Выберите что хотите сделать, 1 + , 2 - , 3 / , 4 * , 5 ^2 , 6 корень');

readln(number);

if number = 1 then

writeln('a + b = ', a+b)

else

If number = 2 then

writeln('a - b = ', a-b)

else

If number = 3 then

writeln('a : b = ', a/b)

else

If number = 4 then

writeln('a * b = ', a*b)

else begin

If number = 5 then

writeln('a^2 = ', sqr(a));

writeln('b^2 = ', sqr(b));

end; begin

If number = 6 then

writeln('Корень из a = ', sqrt(a));

writeln('Корень из b = ', sqrt(b));

writeln('Спасибо за использование нашего калькулятора (Автор: Хамидов Алишер/Thank you for using my calc. (Author:Khamidov Alisher)');

writeln('You can find me on Instagram @khamidoff_ali/Вы можете найти меня в Инстаграм @khamidoff_ali');

end; 　 　 　 end.

Answer 2

Изменение программы для нахождения суммы четырех чисел

Для изменения программы на Паскале, чтобы она находила сумму четырех чисел, вам потребуется внести следующие изменения:

1. Объявите переменные для четырех чисел, например, `num1`, `num2`, `num3`, `num4`. 2. Запросите у пользователя ввод значений для этих четырех чисел. 3. Вычислите сумму четырех чисел и сохраните ее в переменную `sum`. 4. Выведите значение `sum` на экран.

Вот пример кода на Паскале, который реализует эти изменения:

var
  num1, num2, num3, num4, sum: integer;

begin
  writeln('Введите четыре числа:');
  readln(num1, num2, num3, num4);
  
  sum := num1 + num2 + num3 + num4;
  
  writeln('Сумма четырех чисел равна: ', sum);
end.

Изменение программы для нахождения произведения чисел

Для изменения программы на Паскале, чтобы она находила произведение чисел, вам потребуется внести следующие изменения:

1. Объявите переменные для четырех чисел, например, `num1`, `num2`, `num3`, `num4`. 2. Запросите у пользователя ввод значений для этих четырех чисел. 3. Вычислите произведение четырех чисел и сохраните его в переменную `product`. 4. Выведите значение `product` на экран.

Вот пример кода на Паскале, который реализует эти изменения:

var
  num1, num2, num3, num4, product: integer;

begin
  writeln('Введите четыре числа:');
  readln(num1, num2, num3, num4);
  
  product := num1 * num2 * num3 * num4;
  
  writeln('Произведение четырех чисел равно: ', product);
end.

Изменение программы для нахождения квадрата каждого числа

Для изменения программы на Паскале, чтобы она находила квадрат каждого числа, вам потребуется внести следующие изменения:

1. Объявите переменные для четырех чисел, например, `num1`, `num2`, `num3`, `num4`. 2. Запросите у пользователя ввод значений для этих четырех чисел. 3. Вычислите квадрат каждого числа и сохраните результаты в соответствующих переменных. 4. Выведите значения квадратов на экран.

Вот пример кода на Паскале, который реализует эти изменения:

var
  num1, num2, num3, num4, square1, square2, square3, square4: integer;

begin
  writeln('Введите четыре числа:');
  readln(num1, num2, num3, num4);
  
  square1 := num1 * num1;
  square2 := num2 * num2;
  square3 := num3 * num3;
  square4 := num4 * num4;
  
  writeln('Квадрат первого числа: ', square1);
  writeln('Квадрат второго числа: ', square2);
  writeln('Квадрат третьего числа: ', square3);
  writeln('Квадрат четвертого числа: ', square4);
end.

Надеюсь, эти примеры помогут вам изменить программу на Паскале для нахождения суммы, произведения и квадрата чисел. Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать их!