close

Вход

Забыли?

вход по аккаунту

?

ЛРП5

код для вставкиСкачать
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РФ
Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования "Кузбасский государственный технический университет имени Т.Ф. Горбачева"
Кафедра прикладных информационных технологий
ЛАБОРАТОРНАЯ РАБОТА
по дисциплине "Информатика и программирование"
на тему
"Нахождение определенного интеграла"
Выполнил: студент гр. ПИ-131
Д.К. Братухин
Руководитель: ст. преподаватель
И.Е. Трофимов
Вариант 8:
Код написанной программы:
program Laboratornaya_rabota_5;
uses crt;
const C=0.0000001;
procedure wrongabc;
begin
if IOresult <> 0 then
begin
textcolor(4);
writeln('‚ўҐ¤ЁвҐ зЁб"(r)!');
delay(1000);
end;
end;
procedure interval;
begin
textcolor(4);
write('‚ўҐ¤ЁвҐ зЁб"(r) ­ ¤ ­­(r)¬ Ё­вҐаў "Ґ!');
delay(1000);
end;
function F(x:real):real;
begin
if x < 1 then F:=exp(ln(1-x)*5)*exp(x*Sin(x))
else if abs(x-1) < C then F:=0
else if x > 1 then F:=-exp(ln(abs(1-x))*5)*exp(x*Sin(x));
end;
var
A,B,h,S,k1,k2,n,l,test:real;
BEGIN
repeat
textcolor(7);
clrscr;
{$I-}
write('‚ўҐ¤ЁвҐ "Ґўго Ја ­Ёжг [-100;100] A= ');
readln(A);
write('‚ўҐ¤ЁвҐ Їа ўго Ја ­Ёжг [-100;100] B= ');
readln(B);
{$I+}
wrongabc;
if A >= B then
begin
textcolor(4);
writeln('‹Ґў п Ја ­Ёж ¤(r)"¦­ Ўлвм ЇҐаҐ¤ Їа ў(r)(c)!');
delay(1000);
end;
if (A > 100+c) or (A < -100-c) or (B > 100+c) or (B < -100-c) then interval;
until (A < B) and (A < 100+c) and (A > -100-c) and (B < 100+c) and (B > -100-c);
repeat
textcolor(7);
clrscr;
writeln('‚ўҐ¤ЁвҐ "Ґўго Ја ­Ёжг [-100;100] A= ',A:2:4);
writeln('‚ўҐ¤ЁвҐ Їа ўго Ја ­Ёжг [-100;100] B= ',B:2:4);
write('‚ўҐ¤ЁвҐ Є(r)"ЁзҐбвў(r) а §ЎЁҐ­Ё(c) [10;1000] N=');
{$I-}
read(N);
{$I+}
wrongabc;
if frac(A) <> 0 then
begin
textcolor(4);
writeln('‚ўҐ¤ЁвҐ жҐ"(r)Ґ зЁб"(r)!');
delay(1000);
end;
if (N < 10) or (N > 1000) then interval;
until (N >= 10) and (N <= 1000);
H:=(B-A)/n;
k1:=1;
repeat
l:=A+(k1*H);
k2:=k2+F(l);
k1:=k1+1;
until k1 = n-1;
S:=H*(((F(A)*F(B)/2)+k2));
writeln('Џ"(r)й ¤м, Ї(r) ¬Ґв(r)¤г ва ЇҐжЁ(c), а ў­ S= ',s);
readln(test);
end.
Документ
Категория
Рефераты
Просмотров
33
Размер файла
17 Кб
Теги
лрп5
1/--страниц
Пожаловаться на содержимое документа