PROGRAM ValDemo;¢¢ CONST¢ MaxString= 20;¢¢ TYPE¢ String= ARRAY[1..MaxString] OF Char;¢¢ VAR¢ Again: Boolean;(*F.Wdh.d.Eingabe*)¢ Data: String; (*Eingabevariable*)¢ Get: Real; (*Ausgabevariable*)¢¢¢(*Von der Kyan-Disk:*)¢#I LENGTH.I¢#I INDEX.I¢¢¢#I POTENZ.I¢#I VAL.I¢¢¢BEGIN¢ Writeln (Chr(125));¢ Writeln ('VALDEMO von Sven Blank');¢ Writeln;¢ Writeln ('Sie geben eine Zahl ein, die der');¢ Writeln ('Computer als String liesst und dann als');¢ Writeln ('Real-Zahl ausgibt.');¢ Writeln ('Ende des Programmes: Eingabe >-1<');¢ Writeln;¢ REPEAT¢ Again:= True;¢ WHILE Again DO BEGIN ¢ Write ('String:');¢ Readln (Data);¢ Get:= Val(Data)¢ END;¢ Writeln ('Real:',Get: 20:8)¢ UNTIL Get=-1;¢ Writeln (Chr(125))¢ END.¢
