Программирование линейных вычислительных процессов с использованием операторов, реализующих базовые структуры следования. Вариант № 4, страница 2

writeln;

writeln('x=',x:5:1,' a=',a:2:1,' c=',c:5:4,' lna=',b:5:4,'  y=',y:5:2); {печать значений}

end.

6. Вид печати:

Введите значение x,a:

0.2

3.5

x=0.2 a=3.5 y=0.58 c=1.00101 lna=1.2527

Задача 3. Составить программу для вычисления объема и площади поверхности октаэдра, состоящего из двух правильных пирамид. Квадрат в основании со стороной – а, высота каждой пирамиды Н.

Решение:

1. Расчетные формулы:

2.Исходные данные:a=2; H=4                                       

3.Тест для отладки программы:

    V=2/3*4*4=10,7

S=4+8*37,9

4. Блок-схема.

 

5.Программа:

Рrogram Prim3;    {Вычисление объема и площади поверхности октаэдра}

    var  а,H,S,V:integer; { а – сторона квадрата в основании пирамиды,

S,V-площадь и объем октаэдра соответственно}

Вegin

   WriteLn('Введите длину стороны a');

   ReadLn(a);                   {Ввод длины стороны a}

   WriteLn('Введите высоту H');

   ReadLn(H);                   

   S:=sqr(a)+8*sqrt(((2*sqr(H)+sqr(a))/2);    {Вычисление площади S}

   V:=2/3*sqr(a)*H;                    {Вычисление объема V}

WriteLn;                                                 

WriteLn ('S=',S:4:1,' V=',V:4:1); 

End.           {Конец программы}

6. Вид печати:

Введите a,H

2

4

S=37,9411, V=10,6666