Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

лабораторная работа / вар19 / Лабораторная №4

.doc
Скачиваний:
48
Добавлен:
10.02.2014
Размер:
47.1 Кб
Скачать

СОДЕРЖАНИЕ

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

7