Question

Ввести 2 числа. Якщо їхній добуток від’ємний, помножити його
на -2 і вивести на екран, у противному випадку збільшити його в
1,5 рази й вивести на екран. (Написати програму, накреслити блок-
схему).Паскаль

Answer 1

program MultiplyOrIncrease;
var
num1, num2, product: real;
begin
write('Введіть перше число: ');
readln(num1);
write('Введіть друге число: ');
readln(num2);
product := num1 * num2;
if product < 0 then
begin
product := product * (-2);
writeln('Добуток від\'ємний, тому помножили його на -2: ', product);
end
else
begin
product := product * 1.5;
writeln('Добуток додатній або нуль, тому збільшили його на 1,5 рази: ', product);
end;
end.




Блок схема:
+---------------+
| Ввести num1 |
+---------------+
|
|
+---------------+
| Ввести num2 |
+---------------+
|
|
+---------------+
| Обчислити |
| добуток |
+---------------+
|
|
+---------------+
| Якщо добуток |
| від'ємний, то |
| помножити його |
| на -2 |
+---------------+
|
|
+---------------+
| Інакше |
| збільшити |
| на 1,5 рази |
+---------------+
|
|
+---------------+
| Вивести |
| результат |
+---------------+