Иллюстрированный самоучитель по Turbo Pascal для начинающих

Решения (задачи 51-98)

Задача 51

Вычисление площади параллелограмма } 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:6:2,
' кв.см. '); readln; end.

Задача 55

{ Вычисление объема цилиндра } var
r,h,v: real; { радиус основания, высота и объем цилиндра } begin
writeln('Вычисление объема цилиндра');
writeln('Введите исходные данные:');
write('радиус основания (см) › ');
readln(r);
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".
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.