Добавление проверки в метод итерации и половинного деления

@Phoenix- · Регистрация: 03.03.2009

Студворк — интернет-сервис помощи студентам

Сделал прогу по образцу вставив свои данные...препод при сдаче сказал добавить проверку...Помогите сделать эту проверку!!!!

Сама прога-

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
uses crt;
const a=0; b=1;
      eps=1e-4;
var x1,x2,x,y1,y2:real;
    f:boolean;
begin
 clrscr;
 writeln('Метод половинного деления');
 
 x1:=a; x2:=b; f:=true;
 while f do
  if abs(x1-x2)>eps then
    begin
     y1:=x1-(1/(3+sin(3.6*x1)));
     x:=(x1+x2)/2;
     y2:=x-(1/(3+sin(3.6*x)));
     if abs(y2)>eps then
      if y1*y2>0 then x1:=x else x2:=x
                 else f:=false
    end
   else f:=false;
 writeln('Корень уравнения ',x:6:4);
 writeln('Y= ',(x-(1/(3+sin(3.6*x)))):6:4);
 
writeln('*************************');
writeln('Метод итераций');
x1:=a;
x2:=1/(3+sin(3.6*x1));
while abs(x1-x2)>eps do
 begin
  x1:=x2;
  x2:=1/(3+sin(3.6*x1));
 end;
writeln('Корень уравнения ',x1:6:4);
 writeln('Y= ',x-(1/(3+sin(3.6*x))):6:4);
end.

Задание-

@JoKeR_SPb · 25.03.2009, 21:50

Тебе же дан корень. Вот и сравни с ним. Ну или подставь свой корень в уравнение. Если получится прим. 0, то значит корень верный.

@Phoenix- · 25.03.2009, 22:08 **[ТС]**

И как это сделать на паскале?

@JoKeR_SPb · 25.03.2009, 23:22

Подожди... У тебя в конце написано
writeln('Y= ',x-(1/(3+sin(3.6*x))):6:4);

Это разве не проверка???

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

@JoKeR_SPb 27 / 27 / 9 Регистрация: 23.03.2009 Сообщений: 63
	25.03.2009, 21:50
	Тебе же дан корень. Вот и сравни с ним. Ну или подставь свой корень в уравнение. Если получится прим. 0, то значит корень верный. 0

@Phoenix- 1 / 1 / 0 Регистрация: 03.03.2009 Сообщений: 14
	25.03.2009, 22:08 [ТС]
	И как это сделать на паскале? 0

@JoKeR_SPb 27 / 27 / 9 Регистрация: 23.03.2009 Сообщений: 63
	25.03.2009, 23:22
	Подожди... У тебя в конце написано writeln('Y= ',x-(1/(3+sin(3.6*x))):6:4); Это разве не проверка??? 0