Hallo...
Ich habe die Aufgabe einen Pseudocode zu schreiben...
Ich hab mir das so gedacht...
wäre cool wenn ihr mir da sagen könnt, ob dieser richtig ist...
Es handelt sich dabei um das alte Problem "Man hat Knoten udn sucht ein günstiges Verbindungsnetz"
hier meine Daten:
Der Algorithmus in Worten:
1. Verbinde 2 Orte durch die günstigste Verbindung
2. Aus den restlichen verbindungen die günstigste finden solange kein Kreis entsteht...
3. wieder 2.
Pseudocode:
Procedure Aufgabe13; ( In N : NetzT;
Out Ges.-Kosten : Zahl; )
Var Kosten: Integer;
Begin
Kosten:=0;
Loop Für alle (Symbol) Strecken von N do
Suche die guenstigste Strecke
Endloop;
Kosten=Kosten + guenstigste Strecke
While nicht alle Orte verbunden do
Suche die guenstigste Strecke ohne das Kreis entsteht;
Endwhile;
Kosten=Kosten + guenstigste Strecke;
Print „Das guenstigste Netz ist „+“Kosten“+teuer!“;
End;
Danke im Vorraus
MfG,
Thoomse
Ich habe die Aufgabe einen Pseudocode zu schreiben...
Ich hab mir das so gedacht...
wäre cool wenn ihr mir da sagen könnt, ob dieser richtig ist...
Es handelt sich dabei um das alte Problem "Man hat Knoten udn sucht ein günstiges Verbindungsnetz"
hier meine Daten:
Der Algorithmus in Worten:
1. Verbinde 2 Orte durch die günstigste Verbindung
2. Aus den restlichen verbindungen die günstigste finden solange kein Kreis entsteht...
3. wieder 2.
Pseudocode:
Procedure Aufgabe13; ( In N : NetzT;
Out Ges.-Kosten : Zahl; )
Var Kosten: Integer;
Begin
Kosten:=0;
Loop Für alle (Symbol) Strecken von N do
Suche die guenstigste Strecke
Endloop;
Kosten=Kosten + guenstigste Strecke
While nicht alle Orte verbunden do
Suche die guenstigste Strecke ohne das Kreis entsteht;
Endwhile;
Kosten=Kosten + guenstigste Strecke;
Print „Das guenstigste Netz ist „+“Kosten“+teuer!“;
End;
Danke im Vorraus
MfG,
Thoomse