помогите пожалуйста.

[chargosman]

http://imageshost.ru/links/1d584bc91...c52f06969ee3e5

From Stilet: Не игнорируй правила форума создавая тему - Ссылка на твой рисунок недоступна, и название темы не отвечает требованиям. Обычно такие темы полагается удалять. По доброте своей я просто ее закрою. На будуще запомни

[puporev]

По-моему так. Правда при 0<n<0.8 вылезает за extended. При остальных n<>0 нормально работает.

uses crt;
var x,n,b,y:extended;
    a:byte;
begin
clrscr;
write('n=');readln(n);
write('x=');readln(x);
a:=99;b:=exp(ln(a)/n);
repeat
a:=a-3;
b:=exp(ln(a+b)/n);
until a=3;
y:=x*b;
write('Y=',y:0:4);
readln
end.

[Broneslav]

спасибо, а extended и byte это какие типы данных? а то я чето в инете не нашел...

[Wi1D]

Extended - от 3.6x10^-4951 до 1.1x10^4932, точность - 19-20 цифр, 10 байт памяти
Byte - значения 0..255 - занимает в памяти 1 байт.

[BarT(48rus)]

ок)))просто я типа посмотрел есть ли кто)))а задача следующая:
Составьте алгоритм и программу табулирования функции (для определения интервалов изоляции корней уравнения) и вычисления корня нелинейного уравнения для одного (первого) параметра Р численным методом №7. Выведите число итераций n, значение корня х*уравнения, оценку точности dx и результат подстановки корня х* в левую часть уравненияф. Заданная точность Е=10 в минус 6.
Получите решение для различных значений параметра Р и проанализируйте, как зависит число итераций и значение корня от изменения параметра Р. Параметр Р изменяется по закону арифметической прогрессии с шагом дельта Р или представлен массивом данных.
8*sin(x)-p*x=0
p: 2, 3, 5, 7

вопщем ещё нужно проверить формулу на сходимость, ну и по условию дальше(а я не могу понять что делать, точнее вообще не пойму что от меня хотят(((помогите)

[puporev]

вычисления корня нелинейного уравнения для одного (первого) параметра Р численным методом №7.

К сожалению мы прошли пока только первые 6 методов.