Решения (задачи 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".