close

Вход

Забыли?

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

?

ЛРП3

код для вставкиСкачать
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РФ
Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования "Кузбасский государственный технический университет имени Т.Ф. Горбачева"
Кафедра прикладных информационных технологий
ЛАБОРАТОРНАЯ РАБОТА
по дисциплине "Информатика и программирование"
на тему
"Решение уравнения методом дихотомии"
Выполнил: студент гр. ПИ-131
Д.К. Братухин
Руководитель: ст. преподаватель
И.Е. Трофимов
Вариант 8:
program Laboratornaya_rabota_3;
uses crt;
procedure wrongabc;
begin
if IOresult <> 0 then
begin
writeln('Введите число!');
delay(1000);
end;
end;
procedure interval;
begin
write('Введите число на заданном интервале!');
delay(1000);
end;
Function F(x:real) :real;
begin
F:=x-x*x*x+1;
end;
var
A,B,Z,e,x,answ: real;
begin
repeat
clrscr;
{$I-}
write('Введите левую границу [-100;100] A= ');
readln(A);
write('Введите правую границу [-100;100] B= ');
readln(B);
{$I-}
wrongabc;
if (A <= 100) or (A >= -100) or (B <= 100) or (B >= -100) then interval;
until (A < B) and (A <= 100) and (A >= -100) and (B <= 100) and (B >= -100);
repeat
clrscr;
writeln('Введите левую границу [-100;100] A= ',A:6:2);
writeln('Введите правую границу [-100;100] B= ',B:6:2);
write('Введите погрешность (0;1) e= ');
{$I-}
readln(e);
{$I+}
wrongabc;
if (e > 1) or (e < 0) then interval;
until (e > 0) and (e < 1);
repeat
Z:=(A+B)/2;
if F(A)*F(Z) > 0 then A:=Z else B:=Z;
until abs(B-A) < e;
x:=(A+B)/2;
writeln('x= ',x:0:4);
answ:=F(x);
writeln('Проверка x-x^3+1=',answ:2:10);
readln();
end.
Блок схема
Документ
Категория
Рефераты
Просмотров
70
Размер файла
68 Кб
Теги
лрп3
1/--страниц
Пожаловаться на содержимое документа