Hilfe
Neues Thema
Antwortenich wollte in Pascal 5.5 einen Text einlesen oder mehr die Buchstaben dieses Textes, um sie dann zu "verschlüsseln" (ganz billig mit sowas wie: a=> d,...).
Mein Problem:
Ich weiß nicht, wie man die Buchstaben des Textes einzeln in eine Variable einlesen kann.
Im Moment springt das Program nach jedem Buchstaben in die nächste Zeile (logisch weil ich readln verwende) und ich muss nach jedem Buchstaben ein Return eingeben (nervt).
Wenn ich es mit 'read' versuche liest er nur einen Buchstaben ein und das Program beendet sich.
Kennt jemand einen anderen Befehl oder weiß ich das Problem umgehen kann?
Kurze Anmerkung:
wenn man '#' wird die "ver/entschlüsselung" gestoppt.
program verschlüsseln;
uses crt;
var
x:string;
y:string;
s:integer;
begin
clrscr;
y:='';
x:=' ';
s:=1;
writeln ('verschlüsseln');
While s = 1 do
begin
readln (x);
if x = '' then
begin
x := ' ';
end
else
if x = '#' then
begin
s := 2;
x := ' ';
end
else
if x = 'a' then
begin
x:='n';
end
...
else
if x='z' then
begin
x:='m';
end;
y:=y+x;
end;
writeln(y);
readln;
end.
Ich kann auch den ganzen Quelltext posten falls nötig.
Nach oben
geschrieben 
