Помогите лабораторную сделать

[BRIGADIR]

Помогите решить задачу на паскале

[Izhic]

Ты хоть бы изобразил что думаешь, а Мы бы отредОктировали, а то надо писать не помогите, а сделайте ибо мне в лом.

[Izhic]

Кстати там уже всё написано , надо только: if, then while , do : заменить вместо русских англиЦкие. Ферштеин?

[BRIGADIR]

не я решил программа выдает значение, но препод говорит что неправильно!

[puporev]

Конечно неправильно. Надо сначала вычислить одно значение, а потом переходить к следующему, а не наоборот.

uses crt;
var a,b,x,w:real;
begin
clrscr;
a:=2.71;x:=0.064;
b:=0.15;
while b<=1.25 do
  begin
    w:=(a*b*x*x-ln(abs(x-sqr(cos(pi/b))-b/a)))/
    (sin(pi*b*x)/cos(pi*b*x)-(b+0.256*x+sqr(a*x)))*0.8;
    writeln('b=',b:0:2,'    w=',w:0:5);
    if w<0 then b:=b+0.05
    else b:=b+0.25;
 end;
readln
end.

[BRIGADIR]

чето у меня не выдает решение он пишет деление на ноль невозможно!

[puporev]

У меня нормально работает. Напиши точно по английски какую ошибку выводит с номером ошибки..

[BRIGADIR]

можешь саму прогу скинуть на мыло legion90@bk.ru

[puporev]

Держи здесь, мыло не обязательно.

[BRIGADIR]

Вот че она выдает