Dieses PRgoramm läuft???

var geschlecht : string;
begin
writeln('mann?');
readln(ja);
if geschlecht=ja then write(herr) else write (frau)
if geschlecht=nein then write(frau) else write(herr)

nein läuft nich so wirklich^^

was? mist! ja aber manchmal will der lehrer eben das wir rekursive prozeduren schreiben aber das klappt manchmal eben nciht!
@kaito dann lass mal das zweite if weg

Ich kenn mich jetzt nich sooo mit PAscal aus, aber vielleicht klappt das?:

var eingabe : string;

writeln("Sind sie ein Mann? j/n");
readln(eingabe);

if eingabe<>"j" or eingabe<>"n" then
  writeln("falsche Eingabe!");
else begin
  if eingabe="j" then
    writeln("Sie sind also ein Mann!");
  else
    writeln("Sie sind also eine Frau!");
  endif
end
endif;

was ist endif?

gibts das nich in turbo pascal? ich dachte, na dann lasst endif einfach weg^^

frag ich mich auch grad^^
egal ich probiers mal aus...

man muss trotzdem end schreiben

also einfach mal das auf turbopascal anpassen (" statt ' oda so, write und read befehel etc.), ich kenn pascal nämlich nicht^^ nur delphi, c, c++, java und basic, aber die sprachen sind alle ähnlihc

delphi is glaub ich die weiternetwicklung von turbopascal (sacht jedenfalls unser infoleher andauernd)^^