Lab3 (Лабораторные работы (В PAS-файлах))
Описание файла
Файл "Lab3" внутри архива находится в следующих папках: Лабы в PAS-файлах, Лабы. Документ из архива "Лабораторные работы (В PAS-файлах)", который расположен в категории "". Всё это находится в предмете "информационные технологии" из 2 семестр, которые можно найти в файловом архиве РТУ МИРЭА. Не смотря на прямую связь этого архива с РТУ МИРЭА, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информационные технологии" в общих файлах.
Онлайн просмотр документа "Lab3"
Текст из документа "Lab3"
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ
МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ ИНСТИТУТ РАДИОТЕХНИКИ, ЭЛЕКТРОНИКИ И
АВТОМАТИКИ
(ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ)
Кафедра РПУ
Лабораторная работа №3
Тема: “Организация циклов”
Вариант №18
Цель работы: приобрести навыки программирования циклических процессов.
работу выполнил
группа ВР-1-08
проверил: Давлетчин Д.И.
Москва 2008
Постановка задачи. Для заданного значения аргумента функции вычислить с заданной точностью значение функции, представленной в виде бесконечного ряда. Для проверки результата предусмотреть в программе вычисление функции по контрольной сумме.
Область сходимости:
Контрольная сумма:
Алгоритм
Вычисление ряда
n=n+1
нет
да
да
нет
Программа
program p4;
uses crt;
var n,n2:integer;
c,d,x:single;
begin
clrscr;
write('Enter X=');read(x);
write('Enter N=');read(n2);
c:=1;d:=1;
for n:= 1 to n2 do
begin
d:=d*((-1)*(((4*n-5)/(4*n))*x));
c:=c+d;
writeln('c=', c:5:5);
end;
if abs(x)<=1 then writeln('|x|<=0,exp(ln(1+x)/4)=',exp(ln(1+x)/4):5:5);
readkey
end.