informatica_lr_03 (1018853)

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

Текст из файла

МИРЭА

Лабораторная работа № 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

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов лабораторной работы