Студентам с лабораторными сюда

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

10.01.2008, 11:37

krypt3r

Познавший АНТИЧАТ

Регистрация: 27.04.2007

Сообщений: 1,044

Провел на форуме:
3660186

Репутация: 905

А к чему создавать тип TPoint, когда он в делфи уже есть? Только, вроде бы, там x и y типа integer, если память не изменяет. Лучше объявите тип TMyPoint.
В процедуру Vvod передавайте не var A: TPoint, а лучше var A: array of TMyPoint.
Что означает код

Цитата:

result:=(tpoint1.y--tpoint2.y)/(tpoint1.x--tpoint2.x);

?
Что за операция -- ? И вообще для чего у вас функция Oprkoef, если она нигде не вызывается?

Цитата:

Begin
procedure Vvod(A,n);
readln;
end.

хе, ключевое слово procedure при вызове подпрограммы из тела главной программы не нужно совершенно.
ЗЫ. На будущее оформляйте плиз код в тэги [коде][/коде], а не в [квоте][/квоте], читать код сложно