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

[puporev]

Убери модуль Crt; и процедуру clrscr; Слишком хороший у тебя компьютер для Турбо Паскаля.

[BRIGADIR]

всмысле!!!

[puporev]

А в том и смысле, что сотри курсором эти два слова в программе.

var a,b,x,w:real;
begin
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]

а с блок схемой не поможешь?!

[puporev]

Почитай например здесь.
http://old.softerra.ru/review/program/6928/page1.html
И вообще полазь в инете и по форуму, я видел часто аналогичные темы, но не вникал, т.к. у меня нет такой проблемы.

[puporev]

Схема сделана в редакторе, так что если не такая как вас учили, перерисуй. Нарисовано правильно.

[BRIGADIR]

спасибо за помощь!

[rainbow]

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

Схема сделана в редакторе, так что если не такая как вас учили, перерисуй. Нарисовано правильно.

Сама схема то правильно, но некоторые элементы не по ГОСТу
Стрелки от элемента к элементу ставить не нужно, а просто линию, если они идут по порядку, и в схеме нет сложных элементов.

[puporev]

Сама схема то правильно, но некоторые элементы не по ГОСТу

Кто бы спорил, потому и пишу чтоб перерисовал, причем не точно по ГОСТу, который видимо еще Отец народов утверждал, а так как требует преподаватель. Уже давно мало кто придерживается этого допотопного мануала.