VPF::Line too long - Форум программистов

119040

Дата 22.5.2007, 21:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 44
Регистрация: 22.1.2007

Репутация: нет
Всего: нет

Код


prograM Kfirst;
uses crt;
var f,x,y,z :real;
begin
clrscr;
(***************************************************************************)
(*‚ў®¤ ¤ ле*)
write ('x=');
readln (x);
write ('y=');
readln (y);
write ('z=');
readln (z);
(***************************************************************************)
if ( (x-y) >= exp(ln(-5)/3) ) and ( ( (sin(y+sin(z+y))>=0) and ((cos(y)+sin(z+5))>0) ) or ( ((sin(y+sin(z+y))<=0) and ((cos(y)+sin(z+5))<0) ) ) then
begin
f:=sqrt( sin(y+sin(z+y)) / (cos(y) + sin(z+5)) )  -  sqrt( (x-y)*(x-y)*(x-y) + 5);
writeln(f:3:3);
end;
else
writeln('Error')
end;
readkey;
end.

Как быть? Линия слишком длинная, Паскаль опять недоволен smile

П.С. Если есть еще ошибки - намекните.

Snaiper

Дата 23.5.2007, 19:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 14.5.2007

Репутация: нет
Всего: нет

Переноси на след строку и всё. Только смотри чтобы and был на новой строке

Rodman

Дата 24.5.2007, 12:14 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122

Код


program Kfirst;
uses crt;
var f,x,y,z :real;
begin
clrscr;
(***************************************************************************)
write ('x=');
readln (x);
write ('y=');
readln (y);
write ('z=');
readln (z);
(***************************************************************************)
if ( (x-y) >= exp(ln(-5)/3) ) and 
   ( ( (sin(y+sin(z+y))>=0) and 
   ( (cos(y)+sin(z+5))>0) ) or 
   ( ((sin(y+sin(z+y))<=0) and 
   ((cos(y)+sin(z+5))<0) ) ) then
begin
f:=sqrt( sin(y+sin(z+y)) / (cos(y) + sin(z+5)) )  -  sqrt( (x-y)*(x-y)*(x-y) + 5);
writeln(f:3:3);
end;
else
writeln('Error')
end;
readkey;
end.

вот так!

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

volvo877

Дата 24.5.2007, 12:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Rodman,
Я тебя предупреждал, чтоб ты программы проверял? Предупреждал... Вот теперь не обижайся: программа НЕ компилируется - получите, распишитесь! Постишь в разделе - будь добр хотя бы проверить синтаксис.

Rodman

Дата 24.5.2007, 15:37 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122

Код


program Kfirst;
uses crt;
var f,x,y,z :real;
begin
  clrscr;
(***************************************************************************)
write ('x=');
readln (x);
write ('y=');
readln (y);
write ('z=');
readln (z);
(***************************************************************************)
if (((x-y)>=exp(ln(-5)/3)) and
   (sin(y+sin(z+y))>=0) and
   ((cos(y)+sin(z+5))>0)  or
   (sin(y+sin(z+y))<=0) and
   ((cos(y)+sin(z+5))<0)  ) then
begin
f:=sqrt( sin(y+sin(z+y)) / (cos(y) + sin(z+5)) )  -  sqrt( (x-y)*(x-y)*(x-y) + 5);
writeln(f:3:3);
end
else
writeln('Error');
//end;
readkey;
end.

volvo877, вот исправил (и проверил)...

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »