Паскаль. Циклы с неявным числом повторений.

[Stilet]

Допустим первая:

var y:double;
begin
 y:=0;while(y<=1.5) do begin
  if (0.9*y-sin(sqrt(y))-0.1)=0 then begin
   Write(y);readln;halt;
  end;
 end;
end.

С потолка, не проверял, но должно работать.

[Utkin]

А у кто приращивать будет? Кроме того, нужна некоторая погрешность - числа-то плавающие и есть вероятность получения чисел близких к нулю, но не нуль из-за ошибок округления.

[евгений2009]

и что мне делать значит???

[Utkin]

После блока

 if (0.9*y-sin(sqrt(y))-0.1)=0 then begin
   Write(y);readln;halt;
  end;

Нужно добавить изменение переменной y
Можно так

y:=y+0.1;

Иначе выпадешь в вечный цикл. While проверяет условие y<=1.5, но оно никогда не наступит, потому что у не изменяется и равен тому значению, которое ему присвоили до цикла, а имено 0. 0 меньше чем 1,5? Да, значит повторим тело цикла и так до бесконечности.
Но насчет погрешности надо уточнять у препода.

[евгений2009]

Сообщение от Stilet

Допустим первая:

var y:double;
begin
 y:=0;while(y<=1.5) do begin
  if (0.9*y-sin(sqrt(y))-0.1)=0 then begin
   Write(y);readln;halt;
  end;
 end;
end.

.

а разве это метод простых интераций??

var y : double;
что это значит???? у меня паскаль выдает ошибку типо он не знает что это такое

[Utkin]

Это объявление переменной. прежде чем пользоваться переменной - нужно сказать Паскалю, что это твой друг и отныне он будет жить с тобой. double - это тип переменной означает, что перед тобой число с плавающей точкой.

[Niro]

а разве это метод простых интераций??

Помойму тоже - это не метод простых итераций

var youble;
что это значит????

Это опечатка var double

[евгений2009]

как это с плавающей точкой???

Сообщение от Niro

Помойму тоже - это не метод простых итераций

а надо то простых итераций!! !

[Niro]

а надо то простых итераций!! !

да я понял, так ведь в задании написано "методом простых итераций"
Ну ладно держите ваши простые итерации

uses crt;
   var zn1,zn2,m,xk,nach,razn: real;
   i: byte;
BEGIN
   clrscr;
   writeln('Ishodnoe yravnenie = 0.9x-sin(sqrt(x))-0.1');
   writeln('Ego proizvodnaya = 0.9-cos(sqrt(x))');
   zn1:=0.9-cos(sqrt(0));
   zn2:=0.9-cos(sqrt(1.5));
   writeln('Znachenie v tochke 0 =',zn1:0:2);
   writeln('Znachenie v tochke 1.5 =',zn2:0:2);
   if abs(zn1)>abs(zn2) then m:=1/zn1 else m:=1/zn2;
   writeln('---------------------------------------');
   nach:=1;
   repeat
      i:=i+1;
      xk:=nach-m*(0.9*nach-sin(sqrt(nach))-0.1);
      writeln('x',i,'= ',xk:0:5);
      razn:=nach-xk;
      nach:=xk;
   until abs(razn)<=0.001;
   readln;
END.

[евгений2009]

Да теперь бы понять что к чему тут!!!! writeln('---------------------------------------');
а что в скобки написать?? все понял зачем это тут написанно!!!