лабораторная работа / вар19 / Лабораторная №41правильно

СОДЕРЖАНИЕ

1 Цель работы. Вариант. Задание 3

2 Графическая схема алгоритма 4

3 Программа на языке Turbo Pascal 6

4 Результаты выполненной работы 7

1 ЦЕЛЬ РАБОТЫ. ВАРИАНТ

Цель работы: изучение вопросов программирования на языке TURBO PASCAL циклических процессов с заданным количеством повторов, освоение методов вычисления конечных сумм и произведения.

Вариант №19

Задание.

1) Вычислить и вывести на экран значение заданного уравнения.

P3

P2 S1

P1

2 ГРАФИЧЕСКАЯ СХЕМА АЛГОРИТМА

Конец

3 ПРОГРАММА НА ЯЗЫКЕ Turbo Pascal

Program lab4_Vika;

Var

p1, p2, p3, s1:real;

i, j, k, d:integer;

Y:double;

Begin

P1:=1;

For I;=1 to 5 do

Begin

P2:=1;

For j:=4 to 6 do

Begin

S1:=0;

For k:=1 to 3 do

Begin

P3:=1;

For d:=2 to 4 do p3:=p3*k*d*I;

End;

S1:=s1+p3;

End;

P2:=p2*SQR(i+j)+s1;

End;

P1:=p1*SQR(i+p2);

Y:=p1;

Writeln(‘y=’, y:8:5);

Readln;

End.

4 РЕЗУЛЬТАТЫ ВЫПОЛНЕННОЙ РАБОТЫ

Получаем

Y=6586322500.000

7