|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.05.2011, 17:04 | #1 |
Новичок
Джуниор
Регистрация: 22.12.2010
Сообщений: 1
|
не работает - программа пишет ожидался оператор
Помогите пожалуйста не могу разобраться почему когда я добавила procedure r15(xa,xb,xc,xd,ya,yb,yc,yd:real);x 1,x2,x3,y1,y2,y3,pt1,pt2,pt3,s:real ;
unit Lib15; interface программа пишет "ожидался оператор" var xa,xb,xc,xd,ya,yb,yc,yd:real; x1,x2,x3,y1,y2,y3:real; pt1,pt2,pt3,s:real; begin write('Введите координаты точки А: '); Readln(xa,ya); write('Введите координаты точки B '); Readln(xb,yb); write('Введите координаты точки C '); Readln(xc,yc); write('Введите координаты точки D '); Readln(xd,yd); procedure r15(xa,xb,xc,xd,ya,yb,yc,yd:real);x 1,x2,x3,y1,y2,y3,pt1,pt2,pt3,s:real ; unit Lib15; interface begin x1:=xa; if x1>xb then x1:=xb; if x1>xc then x1:=xc; if x1>xd then x1:=xd; end; begin y2:=ya; if y2<yb then y2:=yb; if y2<yc then y2:=yc; if y2<yd then y2:=yd; end; begin x3:=xa; if x3<xb then x3:=xb; if x3<xc then x3:=xc; if x3<xd then x3:=xd; end; begin if x1=xa then y1:=ya; if x1=xb then y1:=yb; if x1=xc then y1:=yc; if x1=xd then y1:=yd; end; begin if y2=ya then x2:=xa; if y2=yb then x2:=xb; if y2=yc then x2:=xc; if y2=yd then x2:=xd; end; begin if x3=xa then y3:=ya; if x3=xb then y3:=yb; if x3=xc then y3:=yc; if x3=xd then y3:=yd; end; pt1 := ((y2+(x2*((y3-y1)/(x3-x1))))-(y1+(x1*((y3-y1)/(x3-x1))))); pt2 := ((x3+(y3*((y3-y1)/(x3-x1))))-(x1+(y1*((y3-y1)/(x3-x1))))); pt3 := (sqr(x1-x3))/((sqr(y1-y3))+(sqr(x1-x3))); s := pt1*pt2*pt3; end; writeln('Площать равна = ', s) end. |
18.05.2011, 17:18 | #2 |
Lawful Evil
Участник клуба
Регистрация: 13.05.2008
Сообщений: 1,208
|
Процедура должна находится перед begin`ом основной программы.
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Почему программа на С++ не работает с локальным описанием массива, но работает с глобальным? | >>STINGER<< | Помощь студентам | 4 | 08.03.2011 09:56 |
"ожидался оператор" при вводе функции на языке PascalABC | Юрий_91 | Помощь студентам | 2 | 08.01.2010 20:47 |
Программа сортировки из учебника, запускаю её а пишет ошибку! Подскажите пожалуйста что не так! | Алексей_xXx | Помощь студентам | 1 | 28.05.2009 20:11 |
Не работает YouTube, пишет, что отключен JavaScript | Макса | JavaScript, Ajax | 22 | 06.08.2008 22:18 |