Коломенский институт (филиал)
Коломенский институт (филиал)
ФГБОУ ВПО «МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ МАШИНОСТРОИТЕЛЬНЫЙ УНИВЕРСИТЕТ (МАМИ)»
Кафедра автоматизации производства и информационных технологий
Лабораторная работа: По программированию и основам алгоритмизации
Выполнил студент 1 курса
Факультета УТС-11
Дятлова Светлана
Ф.И.О. преподавателя: Филоненко И.Н
Коломна 2015г.
program factorial;
var x,e,t,s,n:real;
begin
writeln('x,e');
readln(x,e);
t:=1; n:=1; s:=1; {задаем начальные значения}
while abs(t)>e do {пока модуль t больше eps(0.01) делать}
begin
t:=(t*(x*x))/(n*(n+1)); {t член ряда}
{Допустим x=1
1)(1*1*1)/(1*2)= 0.5 >e
2)(1)/(1*2*3*4) = 0.041666666 >e
3)(1)/(1*2*3*4*5*6)= 0.00138888 <e }
n:=n+2; {задаем шаг}
s:=s+t; {сумма членов ряда}
{s=1+0.5+0.041666666=1.541}
end;
writeln('t',t);
writeln('s',s-t); {вычитаем t, потому что 0.00138888 <e вошел в сумму}
readln;
end.
Начало Ввод x,e
s=1,
t=1,n=1
t>e
Вывод
s
n=n+2
s=s+t
Конец
program Razvlsx15;
var a,x,w,xn,xk,xs:real;
begin
a:=2.5;
writeln('xn,xk,xs');
readln(xn,xk,xs); {xn - начало, xk - конец, xs - шаг}
while xn<=xk do {пока начало меньше или равно концу делать(начать цикл)}
begin {начать развлетвление}
if xn>a then w:=xn*xn*xn*sqrt(xn-a) else
begin if xn=a then w:=xn*sin(a*xn) else
w:=exp(-a*xn)*cos(a*xn);
end; {закончить развлетвление}
writeln(xn:10:5,w:10:5); {вывести xn начало(начало меняется) и w(получится таблица, так как задан шаг)}
xn:=xn+xs; {задаем шаг}
end; {закончить цикл while}
readln;
end.
Начало Ввод xn,xk,xs a=2.5 xn>a xn=a Вывод
w Конец
