informatica_lr_03 (Организация циклов, Вариант 4)

Описание файла

Файл "informatica_lr_03" внутри архива находится в папке "Организация циклов, Вариант 4". Документ из архива "Организация циклов, Вариант 4", который расположен в категории "лабораторные работы". Всё это находится в предмете "информационные технологии" из второго семестра, которые можно найти в файловом архиве РТУ МИРЭА. Не смотря на прямую связь этого архива с РТУ МИРЭА, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информационные технологии" в общих файлах.

Онлайн просмотр документа "informatica_lr_03"

Текст из документа "informatica_lr_03"

МИРЭА


Лабораторная работа № 3

Тема:

“Организация циклов”

Вариант 4

Кафедра РПУ

Выполнил ст.

гр. ВРУ-3-02

Проверил

Давлечин Д.И.

2003


Цель: Приобрести навыки программирования циклических процессов.

Постановка задачи.

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

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

При запуске программы выводится запрос на ввод значения х, если значение выходит за пределы допустимого программа выводит предупреждение и предлагает заново ввести значение х. После ввода значения х программа предлагает ввести кол-во членов, после происходит обработка и вывод на дисплей полученного значения. Далее программа выводит значение, просчитанное по контрольной формуле.

Спецификация.

В программе используются процедуры ClrScr из модуля Crt и три собственные процедуры: BOX – создание границы (обрамления) окна, WIN – создание самого окна и RAS – расчеты программы. Для задания цвета используется команда TextColor.

Для уменьшения погрешности программа компилируется с директивой {$N+}, которая разрешает использование математического сопроцессора. В модуле BOX используются две переменные целочисленного типа: x и y. Они задают координаты для генерации обрамления.

В программе используются переменные вещественного типа EXTENDED: S, X, M, P, L, Z и переменные I, K целочисленного типа.

Алгоритм работы программы.


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

{$N+}

Program Laba_3;

uses

crt;

var

S, X, M, P, L, Z : EXTENDED;

I, K : LONGINT;

Procedure BOX;

var

x,y : integer;

begin

TextColor(0);

x :=5;y :=3;

GotoXY(x,y);

write(#177);

for x := 6 to 76 do

begin

GotoXY(x,y);

Write(#177);

end;

for y := 4 to 21 do

begin

GotoXY(x,y);

Write(#177);

end;

for x := 75 downto 5 do

begin

GotoXY(x,y);

Write(#177);

end;

for y :=20 downto 4 do

begin

GotoXY(x,y);

Write(#177);

end;

end;

Procedure Win;

begin

TextBackGround(195);

ClrScr;

Box;

Window(6,4,75,20);

TextBackGround(7);

ClrScr;

{TextColor(12);}

end;

Procedure RAS;

BEGIN

REPEAT

TextColor(0);

S:= 1;

P:= 1;

WRITELN('VVEDITE x');

READLN(X);

X:= ABS(X);

IF X <= 1 THEN

BEGIN

END

ELSE

BEGIN

TextColor(4);

WRITELN('Nevernoe znachenie x');

END;

UNTIL X <= 1;

WRITELN('VVEDITE KOL-VO CHLENOV');

READLN(K);

FOR I:= 1 TO K DO

BEGIN

S:= S*(ABS((4*I)-5));

M:= (EXP(I*LN(ABS(X))));

P:= P*4*I;

L:= S*M/P;

IF ODD(I) THEN

{Dlya nechetnyh N }

Z:= Z + (1.0 * L)

ELSE

{Dlya chetnyh N}

Z:= Z + (-1.0 * L);

END;

WRITE('Summa ryada = ');

TextColor(1);

WRITELN( 1+Z:8:6);

TextColor(0);

WRITE('ENTER');

READLN;

WRITELN('');

WRITELN('Kontrolnya formula');

X:= EXP((LN(1+X))/4);

WRITE(' X = ');

TextColor(1);

WRITELN( X:8:6);

TextColor(0);

WRITE('Dlya okonchaniya najmite');

TextColor(26);

WRITE(' ENTER');

READLN;

END;

BEGIN

BOX;

WIN;

RAS;

END.

Результат работы программы.

Программа выполняет поставленную задачу. Для уменьшения погрешности необходимо вводить наибольшее число членов ряда, максимальное число членов ряда 1477.

Пример работы программы:

VVEDITE x

1.5

Nevernoe znachenie x

VVEDITE x

0.5

VVEDITE KOL-VO CHLENOV

1450

Summa ryada = 1.106682

Kontrolnya formula

X = 1.106682

'Dlya okonchaniya najmite ENTER

Для добавления файла нужно быть зарегистрированным пользователем. Зарегистрироваться и авторизоваться можно моментально через социальную сеть "ВКонтакте" по кнопке ниже:

Войти через
или

Вы можете зарегистрироваться стандартным методом и авторизоваться по логину и паролю с помощью формы слева.

Не забывайте, что на публикации файлов можно заработать.