newgeneration
Grünschnabel
Hi,
muss ein Struktogramm (Programmablauf) für ein Turbo Pascal erstelltes Programm machen. Habe leider keinen Plan wie ich das Struktogramm machen soll. Wäre nett wenn mir jemand weiterhelfen könnte.
Also hier ist der Quelltext des Programms:
---------------------------------------------------------------------------
program Einheiten;
uses crt;
var
Auswahl :char;
ZahlX,Ergebnis :real;
begin
clrscr;
writeln('Dieses Programm dient zur Umrechnung von L„ngeneinheiten !');
write;
write('Bitte geben sie eine Zahl zum Umrechnen ein: ');
readln(ZahlX);
writeln('K: <Km in m>');
writeln('k: <m in Km>');
writeln('C: <dm in cm>');
writeln('c: <cm in dm>');
writeln('M: <m in mm>');
writeln('m: <mm in m>');
write('Bitte w„hlen sie ihre Operation: [ ] ' );
GotoXY(36,9);
readln(Auswahl);
case Auswahl of
'K' : begin
Ergebnis:=ZahlX * 1000;
write(' Ihr Ergebnis betr„gt: ',Ergebnis:2:2, 'm');
end;
'k' : begin
Ergebnis:=ZahlX / 1000;
write(' Ihr Ergebnis betr„gt: ',Ergebnis:2:2, 'km');
end;
'C' : begin
Ergebnis:=ZahlX * 10;
write(' Ihr Ergebnis betr„gt: ',Ergebnis:2:2, 'cm');
end;
'c' : begin
Ergebnis:=ZahlX / 10;
write(' Ihr Ergebnis betr„gt: ',Ergebnis:2:2, 'dm');
end;
'M' : begin
Ergebnis:=ZahlX * 1000;
write(' Ihr Ergebnis betr„gt: ',Ergebnis:2:2, 'mm');
end;
'm' : begin
Ergebnis:=ZahlX * 1000;
write(' Ihr Ergebnis betr„gt: ',Ergebnis:2:2, 'm');
end;
else writeln('Die Eingabe ist inkorrekt ! ! !');
end;
readln;
end.
muss ein Struktogramm (Programmablauf) für ein Turbo Pascal erstelltes Programm machen. Habe leider keinen Plan wie ich das Struktogramm machen soll. Wäre nett wenn mir jemand weiterhelfen könnte.
Also hier ist der Quelltext des Programms:
---------------------------------------------------------------------------
program Einheiten;
uses crt;
var
Auswahl :char;
ZahlX,Ergebnis :real;
begin
clrscr;
writeln('Dieses Programm dient zur Umrechnung von L„ngeneinheiten !');
write;
write('Bitte geben sie eine Zahl zum Umrechnen ein: ');
readln(ZahlX);
writeln('K: <Km in m>');
writeln('k: <m in Km>');
writeln('C: <dm in cm>');
writeln('c: <cm in dm>');
writeln('M: <m in mm>');
writeln('m: <mm in m>');
write('Bitte w„hlen sie ihre Operation: [ ] ' );
GotoXY(36,9);
readln(Auswahl);
case Auswahl of
'K' : begin
Ergebnis:=ZahlX * 1000;
write(' Ihr Ergebnis betr„gt: ',Ergebnis:2:2, 'm');
end;
'k' : begin
Ergebnis:=ZahlX / 1000;
write(' Ihr Ergebnis betr„gt: ',Ergebnis:2:2, 'km');
end;
'C' : begin
Ergebnis:=ZahlX * 10;
write(' Ihr Ergebnis betr„gt: ',Ergebnis:2:2, 'cm');
end;
'c' : begin
Ergebnis:=ZahlX / 10;
write(' Ihr Ergebnis betr„gt: ',Ergebnis:2:2, 'dm');
end;
'M' : begin
Ergebnis:=ZahlX * 1000;
write(' Ihr Ergebnis betr„gt: ',Ergebnis:2:2, 'mm');
end;
'm' : begin
Ergebnis:=ZahlX * 1000;
write(' Ihr Ergebnis betr„gt: ',Ergebnis:2:2, 'm');
end;
else writeln('Die Eingabe ist inkorrekt ! ! !');
end;
readln;
end.