Создание программы циклической структуры

Министерство образования РФ

УГТУ-УПИ

Филиал в г. Краснотурьинске

кафедра вычислительной техники

ОТЧЕТ

По лабораторной работе №4

По теме: «Создание программы циклической структуры»

преподаватель:  Мезецева О. В.

             студент:  Боробов И. С.

              группа:  Р-131 КТ

2003г.

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

Блок схемы.

Программа №1

Создать программу, вычисляющую вычисляющую приближённые значения функции для заданного Х с точностью до e>0, если функция представляется в виде ряда.

Программа №2

Составить алгоритм и программу для вычисления функции. Вывести таблицу значений аргументов и значений функции.

при xÎ[-2;0] с шагом 0,4

и yÎ[0;1] с шагом 0,3

a=0,7

Тексты программ.

Программа №1.

Program rjad;

var c, s, sum, x, eps, y: real;

    k, n, f: integer;

    t: char;

begin

{заставка}

writeln ('программа вычисления суммы чисел ряда, абсолютная величина которых<eps');

repeat

{ввод исходных данных}

write ('введите x=');

readln (x);

write ('введите eps=');

readln (eps);

{конец ввода данных}

Sum:=0; c:=1; f:=1; n:=0; k:=1; s:=1;

while abs (s)>eps do

begin

Sum:=Sum+S;

c:=c*sqr(x);

n:=n+2;

f:=f*(n-1)*n;

if k mod 2=0 then S:=C/f else S:=-c/f;

k:=k+1;

end;

{вывод результата}

writeln ('Сумма чисел ряда, модуль которых больше',eps,'равна',sum:15:8);

{проверка результата}

y:=cos(x);

writeln ('проверка');

writeln ('y=',y:15:8);

{дилог о повторе}

write('Проверка вычисления? (Y/N)');

readln(t);

t:=upcase(t);

until t<>'Y';

end.

Программа№2.

Program L4_2;

uses crt;

var x,y,s : real;

const a=0.7;

begin

clrscr;

x:=-2;

while (x<=0) do begin

y:=0;

while (y<=1) do begin

S:=exp(x*ln(0.75))*sin(x+a)*ln(y+a);

writeln ('x=',x:5:3,' y=',y:5:3,' s=',s:5:3);

y:=y+0.3;

end;

x:=x+0.4;

readln;

end;

readln;

end.

Результаты:

Программа №1

Программа №2

x=-2.000	y=0.000	s=0.611		x=-0.800	y=0.000	s=0.045
x=-2.000	y=0.300	s=0.000		x=-0.800	y=0.300	s=0.000
x=-2.000	y=0.600	s=-0.449		x=-0.800	y=0.600	s=-0.033
x=-2.000	y=0.900	s=-0.805		x=-0.800	y=0.900	s=-0.059
x=-1.600	y=0.000	s=0.443		x=-0.400	y=0.000	s=-0.118
x=-1.600	y=0.300	s=0.000		x=-0.400	y=0.300	s=0.000
x=-1.600	y=0.600	s=-0.326		x=-0.400	y=0.600	s=0.087
x=-1.600	y=0.900	s=-0.583		x=-0.400	y=0.900	s=0.156
x=-1.200	y=0.000	s=0.242		x=-0.000	y=0.000	s=-0.230
x=-1.200	y=0.300	s=0.000		x=-0.000	y=0.300	s=0.000
x=-1.200	y=0.600	s=-0.178		x=-0.000	y=0.600	s=0.169
x=-1.200	y=0.900	s=-0.318		x=-0.000	y=0.900	s=0.303

Вывод: в этой лабораторной работе мы создали программы с использованием циклической структуры.