Решения (задачи 51-98)
Задача 76
{ Вычисление частного } var
a,b,c: real; { делимое, делитель и частное } begin
writeln('Вычисление частного');
writeln('Введите в одной строке делимое и делитель,');
writeln('затем нажмите Enter');
write(' › ');
readln(a,b);
if b<> 0 then begin c: = a/b;
writeln('частное от деления ',а:6:3,' на ',b:6:3, 'равно ',с:6:3);
end else
writeln('Ошибка! Делитель не должен быть, равен нулю!');
readln;
end.
Задача 77
{ Вычисление площади кольца } var
r1,r2: real; { радиус кольца и отверстия } s: real; { площадь кольца } begin
writeln('Введите исходные данные:');
write('радиус кольца (см) › '); readln(rl);
write('радиус отверстия (см) › '); readln(r2);
if rl > r2 then begin
s: = 2*3.14*(rl-r2);
writeln('Площадь кольца ',s:6:2,' кв.см'); end
else writeln('Ошибка! Радиус отверстия не может быть больше радиуса кольца. ');
writeln('Для завершения работы программы нажмите <strong>Enter</strong>');
readln;
end.
Задача 78
{ Вычисление сопротивления электрической цепи } var
r1,r2: real; { величины сопротивлений цепи }
r: real; { суммарное сопротивление }
t: integer; { тип соединения элементов:
1 – последовательное;
2 – параллельное } begin
writeln('Вычисление сопротивления электрической цепи1);
writeln('Введите исходные данные: ');
write('Величина первого сопротивления (Ом) › ');
readln(rl);
write('Величина второго сопротивления (Ом) › ');
readln(r2);
write('Тип соединения элементов (1-последовательное, ',
'2-параллельное) › '); readln(t);
Задача 79
{ Решение квадратного уравнения }
program sqroot;
var
a,b,с:real;{ коэффициенты уравнения } x1,x2:real;{ корни уравнения }
d:real; { дискриминант } begin
writeln('* Решение квадратного уравнения *');
write('Введите в одной строке значения коэффициентов');
writeln(' и нажмите Enter'); write(' › ');
readln(a,b,с); { ввод коэффициентов } d: = b*b-4*a*c; { вычисление дискриминанта }
if d >= О then begin
x1: = – b+sqrt(d)/(2*a); x2: = – b-sqrt(d)/(2*a);
writeln{'Корни уравнения:'); writeln('xl=',xl:9:3);
writeln('x2=',x2:9:3); end else
writeln('Корней нет');
end.