# Parallele durch einen Punkt

## Problembeschreibung

*******************************************
Dokumentnummer: D1332
*******************************************
Gegeben ist eine Gerade und ein Punkt.
Man bestimme die Gleichung der Parallelen
durch diesen Punkt.

## Problemlösung

EINGABE

gerade:read("Gib eine Gerade ein");

punkt:read("Gib einen Punkt ein");

VERARBEITUNG

parallele:y=k*x+d;

ev(f:y,gerade);

k:diff(f,x);

ev(parallele:parallele,x=punkt[1],y=punkt[2]);

l:solve(parallele,d);

ev(parallele:y=k*x+d,l);

AUSGABE

print("Parallele ->",parallele)$