Решения (задачи 51-98)
Задача 60
{ Вычисление площади треугольника по двум сторонам и углу между ними } var
a,b: real; { длины сторон }
f: real; { величина угла, выраженная в градусах } s: real; { площадь треугольника } begin
writeln('Вычисление площади треугольника.');
writeln('Введите в одной строке длины сторон треугольника');
write (' › '); readln(a,b);
writeln('Введите величину угла между сторонами ',
'треугольника'); ' write(' › '); readln(f); (s=a*h/2
h (высота треугольника) может быть вычислена
по формуле: h=b*sin(f).
Однако, в Turbo Pascal аргумент функции Sin должен быть выражен в радианах
(1 рад. = 180/3.1415925, где 3.1415926 – число "ПИ").)
s: = a*b*sin(f*3.1415926/180)/2; writeln;
writeln('Площадь треугольника:',s:6:2,' кв.см.1);
readln;
end.
Задача 61
{ Вычисление сопротивления электрической цепи,
состоящей из двух параллельно соединенных элементов. }
var
r1,r2: real; { сопротивление элементов цепи } r: real; { суммарное сопротивление цепи }
begin
writeln('Вычисление сопротивления электрической цепи1);
writeln('при параллельном соединении элементов.');
writeln('Введите исходные данные:');
write('Величина первого сопротивления (Ом) › '); readln(rl);
write('Величина второго сопротивления (Ом) › '); readln(r2); r: = rl*r2/(rl+r2); writeln;
writeln('Сопротивление цепи:',г:6:2, ' Ом');
readln;
end.
Задача 65
{ Вычисление стоимости поездки на дачу и обратно } var
rast: real; { расстояние до дачи }
rash: real; { расход бензина на 100 км пути }
cena: real; { цена одного литра бензина }
summ: real; { стоимость поездки на дачу и обратно } begin
writeln('Вычисление стоимости поездки на дачу и обратно.');
write('Расстояние до дачи (км) › ');
readln(rast);
write('Расход бензина (литров на 100 км) › ');
readln(rash);
write('Цена литра бензина (руб.) › ');
readln(cena);
summ: = 2*rast/100*rash*cena;
writeln;
writeln('Поездка на дачу и обратно обойдется в',
surran: 6:2, ' руб. '); readln;
end.
Задача 67
{ Вычисление площади поверхности цилиндра } var
r: real; { радиус основания цилиндра }
h: real; (высота цилиндра } s: real; { площадь поверхности цилиндра } begin
writeln('Вычисление площади поверхности цилиндра');
writeln('Введите исходные данные:');
write('радиус основания цилиндра (см) › ');
readln(r);
write('высота цилиндра (см) › ');
readln(h);
{
pi – именованная константа, ее значение равно числу "ПИ"
Sqr – функция Turbo Pascal, ее значение равно квадрату аргумента, т. е. Sqr(x) = х*х
}
s: = 2*pi*sqr(r)+2*pi*r*h; writeln;
writeln('Площадь поверхности цилиндра ',s:6:2,'кв.см.');
readln;
end.