ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от Si{R}ius

Как в Делфи определить - параллельны ли отрезки?
Имеются точки начала и конца их.

Код:

program paralel;
var x11,x12,y11,y12,x21,x22,y21,y22:integer;
    a1,b1,a2,b2:integer;
begin
  readln (x11,y11,x12,y12,x21,y21,x22,y22);
  a1:=y11-y12;
  a2:=y21-y22;
  b1:=x12-x11;
  b2:=x22-x21;
  if (A1*B2)=(A2*B1) then
    writeln ('yes')
  else
    writeln ('no');
end.

http://www.informatik.kz/programm-pas.htm - тут посмотри по этой теме.

Цитата:

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

Подскажыте с чего начать учить Delphi ?

С изучения нормального человеческого языка, русского или украинского (сужу по части UA в нике). А вообще, тема уже 200 раз поднималась, юзай поиск.