Решение задач с использованием различных алгоритмических структур

Задача 1. В переменные a и b ввести два числа, на экран вывести максимальное из двух чисел.

В данном алгоритме используется полное ветвление.

Задача 2.В переменные a, b, c ввести коэффициенты квадратного уравнения. В переменных , найти корни квадратного уравнения, если они существуют и вывести их на экран.

Входные переменные: a, b, c – коэффициенты квадратного уравнения.

Выходные переменные: , –переменные, в которых вычисляются корни квадратного уравнения.

Промежуточные переменные: D – для вычисления дискриминанта.

В данном алгоритме используется неполное ветвление "выход".

Задача 3. В переменные a и b ввести два целых числа. В переменных S, R, M и D вычислить сумму, разность, произведение и отношение этих чисел. Результаты вывести на экран.

Входные переменные: a, b - два целых числа.

Выходные переменные: S, R, M, D -переменные, в которых вычисляются сумма, разность,произведение и отношение соответственно.

Program prog3;

Var a, b, S, R, M: integer;

D: real;

Begin

Write('Vvedite v peremennie a and b dva chisla');

Read(a, b);

Writeln(' a = ', a,' b = ', b);

S:=a + b;

R:=a - b;

M:=a*b;

D:=a/b;

Writeln(' S = ', S,' R = ', R,' M = ', M,' D = ', D);