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

Министерство образования Российской федерации

УГТУ – УПИ

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

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

Отчет

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

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

Преподовалель                                                                                              Бывшева М. А.

Студент                                                                                                          Килин И. С.

Группа                                                                                                            МТ-235

2003

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

1.  Задания:

а) Вычислить приближенное значение функции для заданного Х сточностью до ξ > 0, если функция представлена в виде ряда

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

при хÎ[-1;1] с шагом 0.3  и yÎ[0;1] с шагом 0.2  a =1.5

2.  Блок – схемы

а)                                                                     

 

 

начало

б)

 

3.

Программы:

а) program rjad;

uses crt;

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

n,k,f:integer;

t:char;

begin

clrscr;

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:7:5);

y:=cos(x);

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

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

write('повторить вычисления?(Y/N)');

readln(t);

t:=upcase(t);

until t='N';

end.

б) Program IV;

uses crt;

const a=1.5;

Var z,x,y:real;

    i,j,k:integer;

    en:boolean;

begin

 clrscr;

 en:=True;

 x:=-1;

 y:=0;

 i:=10;

 j:=4;

 write('’ Ў«Ёж  §­ зҐ­Ё© дг­ЄжЁЁ:');

 gotoxy(i-5,j-1);

 write('~');

 write('~');

 write('\');

 for k:=1 to 43 do

   write('-');

 gotoxy(i-8,j-2);

 write('  | X');

 gotoxy(i-8,j-1);

 write(' Y');

 while x<=1 do

  begin

   gotoxy(i-1,j-2);

   write(x:5:2);

   while y<=1 do

    begin

     z:=a*cos(sqrt(x+a))*exp(-1*y*sqr(x));

     if en then

            begin

             gotoxy(i-7,j);

             write(y:4:2,'|');

            end;

     gotoxy(i,j);

     write(z:4:2);

     j:=j+1;

     y:=y+0.2;

    end;

   en:=False;

   x:=x+0.3;

   y:=0;

   i:=i+6;

   j:=4;

  end;

 readln;

end.

3.  Результат

   а) при x=1, eps=0.2 , y = 0,50000 , проверка Y = 0, 54030231

   б)  

x	y	z
-1,00	0	1.49
-0.7	0.2	1.81
-0.4	0.4	2.32
-0.1	0.6	2.54
0.2	0.8	2.98
0.5	1	3.48
0.7	1.2	4.69
1	1.4	5.12

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