Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
|
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования «Московский государственный индустриальный университет» (ФГБОУ ВПО «МГИУ») |
|
Кафедра информационных систем и технологий |
|
Лабораторная РАБОТа № 3 |
||
|
по дисциплине «Языки программирования» _________________________________________________________________ |
||
|
на тему «Изучение языка программирования Pascal» |
||
|
Группа |
3282 |
|
|
Студент |
С. А. Галкин |
|
|
Допускается к защите Дата |
«___» ___________ |
|
|
Преподаватель |
___________ |
И.Б. Глазырина |
|
Оценка работы Дата |
___________ |
«___» ___________ |
|
Преподаватель |
___________ |
И.Б. Глазырина |
МОСКВА 2013
Вариант II.
Задание №2.
Вывести на экран все элементы последовательности, больше заданного K.
1/x,1/x^2/1/x^3,… (k=0.001, x=2)
Код программы:
Program laba32;
uses crt;
var res,x,a,k:real;
Begin
writeln('Введите k');
readln(k);
writeln('Введите х');
readln(x);
a:=1;
repeat
x:=exp(ln(x)*a);
res:=1/x;
a:=a+1;
writeln(res:1:8);
until res<k;
End.
Задание №3.
Рассчитать сумму бесконечного ряда с заданной точностью.
Ln(1+x)=x-x^2/2+x^3/3-x^4/4+….
Код программы:
Program laba33;
uses crt;
var toch,s,x,a,c,i,b:real;
Begin
writeln('Введите точность');
readln(toch);
writeln('Введите x');
readln(x);
s:=0;
c:=1;
i:=1;
b:=1;
repeat
a:=b*exp(ln(x)*c)/i;
s:=s+a;
i:=i+1;
c:=c+1;
b:=b*(-1);
until a<toch;
writeln(s);
End.