выполнить условие

[Артл]

помогите пожалуйста как это правильно написать на паскале

нужно запросить произвольный поиск корня или нет. Если да, то запрашиваем значение границ и выполняем поиск. В процессе поиска после 5 итераций запрашиваем прервать процесс или нет

В процессе поиска после 5 итераций запрашиваем прервать процесс или нет помогите вот с этим тут как лучше сделать if n:=5 do или по-другому как то и как прервать или продолжить процесс

[Valio]

Непонятно что за корень... Что касается прервать и продолжить, то за это отвечают Continue и Break.

Ты напиши код, а как прервать мы сообразим.

[Артл]

вот код

n:=0;
repeat
fa:=a-sin(a)/cos(a);
fb:=b-sin(b)/cos(b);
c:=a + abs(fa/(fa-fb))*(b-a);
fc:=c-sin(c)/cos(c);
if fa*fc<0 then b:=c else a:=c;
n:=n+1;
until abs(fc)<e;

[Valio]

В задании написано: после 5 итераций запрашиваем прервать процесс или нет.

Значится нужно вести счёт кол-ва операций. Оно у нас видимо n.

Тогда

If n = 5 Then Begin
Writeln('Было произведено 5 итераций, прервать выполнение? (Y/N): ');
Readln(Q);
If Q = 'Y' Then Break;
End;

[Valio]

Можно ещё задествовать mod, чтоб через каждый 5 итераций происходил запрос.

If (n mod 5 = 0) Then ...

Вернее не div а mod. А также почитать:

http://www.delphisources.ru/pages/fa...s/Mod.php.html

http://www.delphisources.ru/pages/fa...tinue.php.html

http://www.delphisources.ru/pages/fa...Break.php.html

http://www.delphisources.ru/pages/fa.../Exit.php.html

[Артл]

спасибо, а если выбрать ответ N то как продолжить ? continue и после него опять код нахождения корня?

[Valio]

Сообщение от Артл

спасибо, а если выбрать ответ N то как продолжить ? continue и после него опять код нахождения корня?

А если N то цикл так и будет идти.. его не надо продолжать специально. Он закончится как ему и подобает при проверке:

until abs(fc)<e;

[Артл]

если я выбираю N то у меня не выводится результат, что исправить?

If Q = 'Y' Then Break
End;
until abs(fc)<e;
writeln('x = ',c:12:8,'n = ',n);
end.

[Valio]

Приведи полностью код.

если я выбираю N то у меня не выводится результат, что исправить?

Скорее не так, если ты выбрал чтото отличное от Y (всё что угодно, хоть N хоть W) то вообще ничего происходить не должно. Тоесть программа так и будет работать без каких либо изменений. Или же выполнилось abs(fc)<e;

[Артл]

вот код полностью если в конце нажимаю Y то корень выводит а если другую букву то процесс не завершается и корня не выводит где что не так?

  var a,b,c,fa,fb,fc,e:real  ;
  var f,s,y,Q:char;
  var n:integer;
begin
   writeln ('proiz ili ne prpoizv (Y/N)' ) ;
   readln(f);
   if f='Y' then    begin
writeln('vvedite granits');
write ('a=');
readln (a);
 write ('b=');
readln(b) ;
writeln('vvedite e');
readln(e);
n:=0;
repeat
fa:=a-sin(a)/cos(a);
fb:=b-sin(b)/cos(b);
c:=a + abs(fa/(fa-fb))*(b-a);
fc:=c-sin(c)/cos(c);
if fa*fc<0 then b:=c else a:=c;
n:=n+1;
If n = 5 Then Begin
Writeln('Áûëî ïðîèçâåäåíî 5 èòåðàöèé, ïðåðâàòü âûïîëíåíèå? (Y/N): ');
Readln(Q);
If Q = 'Y' Then Break
End;
until abs(fc)<e;
writeln('x = ',c:12:8,'n = ',n);  end;
end.