лабораторная работа / вар19 / Лабораторная №4
.docСОДЕРЖАНИЕ
1 Цель работы. Вариант. Задание 3
2 Графическая схема алгоритма 4
3 Программа на языке Turbo Pascal 6
4 Результаты выполненной работы 7
1 ЦЕЛЬ РАБОТЫ. ВАРИАНТ
Цель работы: изучение вопросов программирования на языке TURBO PASCAL циклических процессов с заданным количеством повторов, освоение методов вычисления конечных сумм и произведения.
Вариант №19
Задание.
1) Вычислить и вывести на экран значение заданного уравнения.
2 ГРАФИЧЕСКАЯ СХЕМА АЛГОРИТМА
1
p3=1
d:=2;4
p3=p3*k*d*i
p2=p2*(i+j)2+s1*p3
p1=p1*(i+p2)2
y=p12
‘y=’, y
Конец
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 s1:=s1+(k*d*i);
P3:=1;
For d:=2 to 4 do p3:=p3*k*d*I;
P2:=p2*SQR(i+j)+s1*p3;
End;
P1:=p1*SQR(i+p2);
End;
Y:=p1*p1;
Writeln(‘y=’, y:8:5);
Readln;
End.
4 РЕЗУЛЬТАТЫ ВЫПОЛНЕННОЙ РАБОТЫ
Получаем
Y=1.89316616840056338E+0194