Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Ада и другие языки _ Люди, помогите с паскалем плиз....не решается

Автор: Серёга 13.09.2007 3:16

Народ, помогите пожалуйста найти ошибку, срочно . Мне эту хрень в субботу здавать. НЕ врубаюсь где тут ошибка... mega_chok.gif mega_chok.gif


Program_Laba1;
Uses Crt;
Var a,b,x,Y1,Yd,Y2,Z1,Z2: Real;
begin
ClrScr;
a:=5.3;
b:=2.1;
x:=0.75;
Y1:=(sqr(a)-sqr(b))*(exp(1/3.ln(a))-exp(1/3.ln(b)))/Yd;
Yd:=(exp(4/3.ln(a))+b*exp(1/3.ln(a))-a*exp(1/3.ln(b))-exp(4/3.ln(b)));
Y2:=a-b;
Z1:=Cos(4*x)-Sin(4*x)*Ctg(2*x);
Z2:=Cos(2*x)-2*Cos(x)**2;
WriteLn('Y1:='Y1);
ReadKey;
end.

Автор: мисс_граффити 13.09.2007 3:28

в синтаксисе...
компилятор же все нехорошие места выделяет.
после program нужен пробел, что значит 1/3.ln(a) - я не знаю (и он тоже)... **2 - тож загадочная конструкция.
WriteLn('Y1:='Y1); - запятую пропустил

а вообще - классный подход. прийти, не регистрируясь нарушить 3 правила форума (заголовок должен быть информативным, код - в тегах, тема - в подходящем разделе)... кинуть код, который непонятно что должен делать - и попросить "найти ошибку".

Автор: Гость 13.09.2007 11:58

Спасибо за помшщ, ну и извините за нарушение... give_rose.gif

Автор: klem4 13.09.2007 12:50

Достали просто уже ... Гость Правила форума для тебя не писаны ? Закрыто.