Министерство образования РФ
УГТУ-УПИ
Филиал в г. Краснотурьинске
кафедра вычислительной техники
По лабораторной работе №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 |
Вывод: в этой лабораторной работе мы создали программы с использованием циклической структуры.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.