Схема алгоритма решения задачи

↑

▷ Содержание

⇐ ПредыдущаяСтр 2 из 3Следующая ⇒

4. Схема алгоритма решения задачи

Расчет a

Ввод

e

lw_1

Расчет b

;

Расчет φ

                                                                                                   φ                                                                                                                                                      

4 FlJeXy0P98CSWdJfGH71SR1qcjqECXVkTkIuxIaiBLbAiK/FNgd2kHAnCuB1xf8/UP8AAAD//wMA UEsBAi0AFAAGAAgAAAAhALaDOJL+AAAA4QEAABMAAAAAAAAAAAAAAAAAAAAAAFtDb250ZW50X1R5 cGVzXS54bWxQSwECLQAUAAYACAAAACEAOP0h/9YAAACUAQAACwAAAAAAAAAAAAAAAAAvAQAAX3Jl bHMvLnJlbHNQSwECLQAUAAYACAAAACEAd9LUkGYCAAB2BAAADgAAAAAAAAAAAAAAAAAuAgAAZHJz L2Uyb0RvYy54bWxQSwECLQAUAAYACAAAACEAJ0/jGd0AAAAIAQAADwAAAAAAAAAAAAAAAADABAAA ZHJzL2Rvd25yZXYueG1sUEsFBgAAAAAEAAQA8wAAAMoFAAAAAA== " strokeweight=".26mm"/>

Конец

Вывод

a,b,e,φ

5. Интерфейс программы

Ввод исходных данных запланируем в форме диалога: данные нужно будет вводить с клавиатуры при появлении соответствующего запроса на экране монитора после запуска программы.

Предусмотрим возможность вывода результатов расчёта на экран монитора с последующим копированием в отчет.

6. Текст программы на Паскале

program lw_1;

Const Title ='Работа №1, Вар.5, гр.БГРи-19-01 Маслаков';

var e,a,b,phi : real;

begin

Write('Введите e = ');

Readln(e);

Writeln;

Writeln(Title);

Writeln('Исходные данные:');

Writeln('e = ',e:5:2);

b:= 0.47 * exp((1+e)*ln(e)));

a:=ln(b+ln(1/2*b));

phi:=sin(a+b)/(sqrt(a+b)+sin(a+b));

Writeln('Результаты расчёта:');

Write('e =',e:8:4,' a =',a:8:4 ,' b =',b:8:4, 'phi =',phi:8:4);

End.

Познавательные статьи:



Как правильно слушать собеседника

Типичные ошибки при выполнении бросков в баскетболе

Принятие христианства на Руси и его значение

Средства массовой информации США