Линейные алгоритмы

A) Найти сумму, разность и произведение двух чисел отличных от нуля.
Описание алгоритма:
В символьном виде.
На алгоритмическом языке:
Алг сумма, разность и произведение двух чисел отличных от нуля
Арг a, b –действительные числа, a ≠ 0, b ≠ 0
Рез S – сумма, R – разность, P – произведение
Нач
Ввод a, b
S:= a + b;
R:= a – b;
P:= a * b;
Вывод S,R,P
Кон
На языке Pascal АВС:
Program alg1;
var a,b,S,R,P: real;
begin
writeln('Введите действительные числа a, b; a <> 0, b <> 0');
readln(a,b);
S:= a + b;
R:= a - b;
P:= a * b;
writeln('сумма S = ',S);
writeln('разность R = ',R);
writeln('произведение P = ',P);
end.
Рисунок SEQ Рисунок \* ARABIC 1
Графический способ описания:
Начало
Ввод a, b
S:= a + b
R:= a - b
P:= a * b
Вывод S, R, P
Конец
Начало
Ввод a, b
S:= a + b
R:= a - b
P:= a * b
Вывод S, R, P
Конец
Рисунок SEQ Рисунок \* ARABIC 2
b) Опишите алгоритм нахождения дискриминанта квадратного уравнения
Описание алгоритма:
В символьном виде.
На алгоритмическом языке:
Алг нахождение дискриминанта квадратного уравнения
Арг a, b, с –коэффициенты квадратного уравнения, a ≠ 0
Рез х1, х2 – корни квадратного уравнения, или нет корней
Нач
Ввод a, b, с
D:= b*b- 4*a*c;
Если D = 0
То Вывод «Нет корней»
Иначе
х1:= (-b + √D)/(2*a);
х2:= (-b - √D)/(2*a);
Вывод (х1, х2)
Конец если
Кон
На языке Pascal АВС:
Program alg2;
var a,b,c,x1,x2,D: real;
begin
writeln('коэффициенты квадратного уравнения, a,b,c; a <> 0');
readln(a,b,c);
D:= b*b- 4*a*c;
if D<0 then writeln ('Нет корней')
else
begin
x1:= (-b + sqrt(D))/(2*a);
x2:= (-b - sqrt(D))/(2*a);
writeln ('x1 = ',x1,' x2 = ',x2)
end;
end.
Рисунок SEQ Рисунок \* ARABIC 3
Графический способ описания:
11537951614538да
0да
31013401576705нет
0нет
30346651824355010439401824355010439443491230016008351574165D<0
D<0
Начало
Ввод a, b, с
D:= b*b – 4*a*c
x1:= (-b + sqrt(D))/(2*a)
x2:= (-b - sqrt(D))/(2*a)
Вывод «Нет корней»
Конец
Вывод x1, x2
Начало
Ввод a, b, с
D:= b*b – 4*a*c
x1:= (-b + sqrt(D))/(2*a)
x2:= (-b - sqrt(D))/(2*a)
Вывод «Нет корней»
Конец
Вывод x1, x2
Рисунок SEQ Рисунок \* ARABIC 4
c) Определить площадь прямоугольника, если известные его высота и ширина
Описание алгоритма:
В символьном виде.
На алгоритмическом языке:
Алг площадь прямоугольника
Арг a, b – высота и ширина, a > 0, b > 0
Рез S – площадь прямоугольника
Нач
Ввод a, b
S:= a * b;
Вывод S
Кон
На языке Pascal АВС:
Program alg3;
var a,b,S: real;
begin
writeln('Введите высоту и ширину прямоугольника a, b; a > 0, b > 0');
readln(a,b);
S:= a * b;
writeln('площадь S = ',S);
end.
Рисунок SEQ Рисунок \* ARABIC 5
Графический способ описания:
Начало
Ввод a, b
S:= a * b
Вывод S
Конец
Начало
Ввод a, b
S:= a * b
Вывод S
Конец
Рисунок SEQ Рисунок \* ARABIC 6
d) Определите объём куба, если известна длина его ребра а . Дана длина ребра куба а. Найти его объем и площадь поверхности.
Описание алгоритма:
В символьном виде.
На алгоритмическом языке:
Алг Определить объём куба, если известна длина его ребра а
Арг a –действительное число, a > 0
Рез V - объём куба, S – площадь поверхности
Нач
Ввод a
V:= a3;
S:= 6*a2;
Вывод V, S
Кон
На языке Pascal АВС:
Program alg4;
var a,V,S: real;
begin
writeln('Введите действительное число a; a > 0');
readln(a);
V:= a * a * a;
S:= 6*a*a;
writeln('объём куба V = ',V);
writeln('площадь поверхности S = ',S);
end.
Рисунок SEQ Рисунок \* ARABIC 7
Графический способ описания:
Начало
Ввод a
V:= a * a * a
Вывод V, S
Конец
S:= 6 * a * a
Начало
Ввод a
V:= a * a * a
Вывод V, S
Конец
S:= 6 * a * a
Рисунок SEQ Рисунок \* ARABIC 8
e) Даны переменные К, М, Н