informatica_lr_03 (Вариант 4 - ЛР №3 - Организация циклов)
Описание файла
Файл "informatica_lr_03" внутри архива находится в папке "Организация циклов, Вариант 4". Документ из архива "Вариант 4 - ЛР №3 - Организация циклов", который расположен в категории "". Всё это находится в предмете "информационные технологии" из 2 семестр, которые можно найти в файловом архиве РТУ МИРЭА. Не смотря на прямую связь этого архива с РТУ МИРЭА, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информационные технологии" в общих файлах.
Онлайн просмотр документа "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