Hilfe in Informatik!!!Args

Ach du scheisse
ich war ne woche net in de uni wegen autounfall und hab das irgendwie total versäumt in informatik.
jetzt muss ich das aufgabenblatt bis freitag dennoch fertig bekommen
und für die erste aufgabe kenn ich einige befehle net.

wenn von euch jemand pascal beherrscht wäre ich um JEDE hilfe mehr als dankbar!!!

http://www.informatik.uni-mainz.de/lehre/ip/Blatt_4.pdf

das ist das monster

Welche Befehle kennst du da nich?

Du sollst doch nur schauen ob das syntaktisch bzw. semantisch korrekt ist.
Und sollst dann Sätze formulieren wie "Zeile x ist unzulässig, weil die Prozedur zwei Integer Werte erwartet, doch ein Integer und ein String übergeben werden" usw.

schon,
Aufgabe 1 musst halt immer schauen ob die Datentypen zulässig sind,
und wenn 3.0 als Parameter dransteht, ist es kein Integer.

Und Aufgabe 2, also in Java ist es so, da kannst du die ASCII-Zahle herausfinden, dann zählst du einfach den übergeben Wert hinzu,
prüfst ob dieser über dem ASCII-Wert von "Z" liegt,
ansonsten musst du wenn es z.B. 5 darüber liegt,
5 wieder zum ASCII-Wert von "A" hinzufügen,
und bildest daraus wieder den Buchstaben.

Das machst du in einer Schleife mit jedem Buchstaben,
der an den String den du nachher zurückgibst angehängt wird, fertig.

Ich könnte dir jetzt auch den Java-Quelltext schreiben,
aber ich denke er würde dir nicht viel bringen ...

hm wär ich mir garnicht so sicher, immerhin ist 3.0 eine natürliche zahl und in der Menge der Integer Zahlen enthalten...
Am besten mal ausprobieren und compilen!

Ansonsten kommt mir das "var" in den Klammern verdächtig vor.

3.0 ist keine, 3 ist eine,
ist jedenfals in Java so

Hi!
erstmal Danke!
Kann mir jemand erklären mit welchen befehlen usw ich zb ein eingegebenes a , was ja n string is , in ner reihe von strings (also alphabet) um 13 zeichen verschiebe?
das ist im moment mein problem?!
das müsste ich bis so 15 uhr wissen

program RoT13 ;




procedure Kodierung;
var C, CU : char ;
BEGIN ;
while not EoF do begin Read(C) ; CU := UpCase(C) ;
if CU in ['A'..'M'] then Inc(C, 13) ;
if CU in ['N'..'Z'] then Dec(C, 13) ;
Write(C) end ;
END;

procedure Dekodierung;
var C, CU : char ;
BEGIN ;
while not EoF do begin Read(C) ; CU := UpCase(C) ;
if CU in ['A'..'M'] then Inc(C, 13) ;
if CU in ['N'..'Z'] then Dec(C, 13) ;
Write(C) end ;
END;

var eingabe : integer;
begin

writeln ('Geben sie (1) zum kodieren in Rot-13 eines Textes ein');
writeln ('Geben sie (2) zum dekodieren eines Rot-13 Textes ein');
readln (eingabe);
if eingabe = 1 then kodierung;
if eingabe = 2 then dekodierung;
end.





soweit hab ich das.
nur wie soll ich da diese verdammte häufigkeitsanalyse reinbekommen?
compiliert das mal und schaut plz!!