Для завершения работы программы нажмите
Вычисление площади параллелограмма } var
l,w: real; ( длина и ширина параллелограмма}
s: real; { площадь параллелограмма} begin
writeln('Вычисление площади параллелограмма');
writeln('Введите исходные даные:');
write('Длина (см.) -> ');
readln(1) ;
write('Ширина (см.) ->');
readln(w);
s:=l*w;
writeln('Площадь параллелограмма:',s:6:2, ' кв.см. ') ;
readln; end. Задача 53
{ Вычисление площади поверхности параллелепипеда } var
l,w,h : real; { длина, ширина и высота параллелепипеда}
s: real; { площадь поверхности параллелепипеда} begin
writeln('Вычисление площади поверхности параллелепипеда');
writeln('Введите исходные даные:');
write('Длина (см) —> ');
readln(1) ;
write('Ширина (см) ->');
readln(w);
write('Высота (см) — >') ;
readln(w);
s:=(l*w + l*h + w*h)*2;
' writeln('Площадь поверхности параллелепипеда:',s:б:2,
' кв.см. '); readln; end.
Задача 55
{ Вычисление объема цилиндра } var
r,h,v: real; { радиус основания, высота и объем цилиндра } begin
writeln('Вычисление объема цилиндра');
writeln('Введите исходные данные:');
write('радиус основания (см) —> ');
readln(г) ;
write("высота цилиндра (см) —> ');
readln(h);
v := 2*3.1415926*r*r*h;
writeln('Объем цилиндра ',v:6:2,' см.куб.');
writeln(' Для завершения работы программы нажмите <Enter>');
readln;
end. Задача 56
{ Вычисление стоимости покупки } var
kar,tetr: real; { цена карандаша и тетради }
nk,nt: integer; { количество тетрадей и карандашей }
summ: real; { стоимость покупки } begin
writeln("Вычисление стоимости покупки.');
writeln('Введите исходные данные:');
write('Цена тетради (руб.) —>');
readln(tetr);
write('Количество тетрадей —>') ;
readln(nt);
write('Цена карандаша (руб.) — >');
readln(kar);
write('Количество карандашей —>');
readln(nk);
surnm:=tetr*nt + kar*nk; writeln;
writeln('Стоимость покупки:',summ:6:2,' руб.'); readln; end".
Задача 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
rl,r2: real; { сопротивление элементов цепи } г: real; { суммарное сопротивление цепи }
begin
writeln('Вычисление сопротивления электрической цепи1); writeln('при параллельном соединении элементов.'); writeln('Введите исходные данные:'); write('Величина первого сопротивления (Ом) —>'); readln(rl) ;
write('Величина второго сопротивления (Ом) —>'); readln(r2) ; r:=rl*r2/(rl+r2) ; writeln;
writeln('Сопротивление цепи:',г:6:2, ' Ом'); readln; end.
