Министерство образования Российской федерации
УГТУ – УПИ
Филиал в г. Краснотурьинске
Кафедра вычислительной техники
По лабораторной работе № 3
По теме ,, Создание программ циклической структуры.”
Студент Килин И. С.
Группа МТ-235
2003
Цель работы: создать программы, выполняющие в цикле следующие действия: вычисление функции, представленной в виде ряда, вычисление значения функции по двум заданным параметрам.
1. Задания:
а) Вычислить приближенное значение функции для заданного Х сточностью до ξ > 0, если функция представлена в виде ряда
б)Составить алгоритм и программу вычисления значения функции. Вывести таблицу значений аргументов и значений функции.
при хÎ[-1;1] с шагом 0.3 и yÎ[0;1] с шагом 0.2 a =1.5
2. Блок – схемы
а)
|
|
Программы:
а) 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 |
Вывод: Создал программы, выполняющие : вычисление функции, представленной в виде ряда, вычисление значения функции по двум заданным параметрам.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.