Составить программу вычисления и печати в виде таблицы значении функции и соответствующих аргументов

@phRazer · Регистрация: 19.11.2012

Примечание: извлечение корня третьей степени и выше осуществлять по итерационной формуле Ньютона:

@phRazer · 19.11.2012, 00:48 **[ТС]**

Pascal

program lab1;
uses crt;
var
  y,y1,f1,q1,f,e:real;
  x,z:integer;
begin
  clrscr;
  e:=0.00001;
  x:=1;
  z:=1;
    writeln('| x | z |   F  |');
  writeln(' --------------');
  while (x<=5) and (z<=10) do
    begin
      f1:=(sqr(x)-((x-cos(x))/(sqrt(sqr(x)+1+5.14))));
      q1:=(z+1)/(sqr(z)+1);
     y:=1;
          while (abs(y*y*y-q1)>e)do
               y:=(1/3)*((q1/(sqr(y))-y)+y);
               f:=f1*y;
         writeln('| ',x,' | ',z,' | ',f:2:3,'  |');
         inc(x);
      inc(z,2);
         end;
      end.

"в чем недочет?"

@phRazer 0 / 0 / 1 Регистрация: 19.11.2012 Сообщений: 6
		1
	Составить программу вычисления и печати в виде таблицы значении функции и соответствующих аргументов 19.11.2012, 00:32. Показов 1544. Ответов 1 Метки нет (Все метки) Примечание: извлечение корня третьей степени и выше осуществлять по итерационной формуле Ньютона: Миниатюры 0

Опции темы

Составить программу вычисления и печати в виде таблицы значении функции и соответствующих аргументов

Решение