Tartalomjegyzék
A napló közvetlen linkje:
http://teveclub.hu/naplo/155063
|
2010-05-14
Ezt meg kell csinálnom -.-
program e_egyenlet;
uses crt;
var A,B,Xo,Yo,K,Y,h,j,l,n:integer;
m,p,cs,cso:real;
begin
clrscr;
writeln('Kerem az egyenesre eso egyik pont elso koordinatajat');
readln(Xo);
writeln('Kerem ennek a pontnak a masodik koordinatajat');
readln(Yo);
writeln('Kerem az egyenesre eso masik pont elso koordinatajat');
readln(h);
writeln('Kerem az egyenesere eso masol pont masodik koordinatajat');
readln(j);
writeln('Kerem a normalvektor elso koordinatajat');
readln(A);
writeln('Kerem a normalvektor masodik koordinatajat');
readln(B);
writeln('Kerem a masodik normalvektor elso koordinatajat');
readln(l);
writeln('Kerem a masodik normalvektor masodik koordinatajat');
readln(n);
writeln;
if B>0 then
writeln('Az egyenes egyenlete: ',A,'x + ',B,'y = ',A * Xo + B * Yo)
else
writeln('Az egyenes egyenlete: ',A,'x - ',-1 * B,'y = ',A * Xo + B * Yo);
if n>0 then
writeln('Az egyenes egyenlete:',l,'x+',n,'y=',l*h+n*j)
else
writeln('Az egyenes egyenlete:',l,'x-',-1*n,'y=',l*h+n*j);
K:=A*Xo+B*Yo;
Y:=l*h+n*j;
cso:=(y-1)/n;
writeln('Az egyenes egyenlete:',cso,'y+',B,'y=',A*Xo+B*Yo);
writeln('Az egyenes egyenlete:',cso+b,'y=',A*Xo+B*Yo);
writeln('Az egyenes egyenlete:',A*Xo+B*Yo/(cso+b));
readln;
end.
|
