Verfügbare Informationen zu "Pascal-Progamm problem"
Qualität des Beitrags: Beteiligte Poster: skeleten - dani93 - wirthi - Moritz Forum: Tutorials.at Forenbeschreibung: Programmierforum aus dem Unterforum: Pascal Antworten: 4 Forum gestartet am: Mittwoch 19.04.2006 Sprache: deutsch Link zum Originaltopic: Pascal-Progamm problem Letzte Antwort: vor 16 Jahren, 27 Tagen, 12 Stunden, 57 Minuten
Alle Beiträge und Antworten zu "Pascal-Progamm problem"
Re: Pascal-Progamm problem
skeleten - 30.03.2008, 17:57Pascal-Progamm problem
hi,
das folgende programm enthält irgendeinen fehler, ich weiß aber nicht welchen.
Der Ordner "Vokabeln" existiert.
uses crt;
type voka = record
de:string[35];
la:string[35];
end;
type vokasatz = array [1..25] of voka;
var o, i:integer;
data: file of vokasatz;
dataname, ein, ooo, oo: string;
vara: vokasatz;
begin
clrscr;
writeln('Welche Lektion?');
readln(oo);
dataname:='C:\Vokabeln\';
dataname:= dataname + oo + '.vok';
assign(data, dataname);
{$I-} Reset (data);
Read (data, vara);
Close (data);{$I+}
IF IORESULT <> 0 THEN ;
randomize;
repeat
begin
i:= random(34)+1;
if (vara[i].la = '') and (vara[i].de ='') then
begin
writeln('Vokalel ist noch nicht eingegeben worden. Jetzt eingeben? (j/n)');
readln(ooo);
if (ooo='j') or (ooo='J') then
begin
writeln('Geben sie den lateinischen Begriff ein!');
readln(vara[i].la);
writeln('Geben sie den Deutschen Begriff ein!');
readln (vara[i].de);
rewrite(data);
write(data, vara);
close(data);
end
else if (ooo='ENDE') then exit;
end
else
begin
writeln('Lateinisch: ', vara[i].la);
write('Deutsch: ');
readln(ein);
if ein = vara[i].de then
begin
writeln('Richtig!');
end;
if (vara[i].la <> '') and (vara[i].de <>'') then
begin
writeln('Falsch, die richtige Antwort ist: ', vara[i].de);
readkey;
end;
end;
end;
until (ein = 'ENDE');
readkey;
end.
Bitte um hilfe
Re: Pascal-Progamm problem
dani93 - 30.03.2008, 18:41
Leider kann ich dir bei deinem Programm nicht helfen. Der Form halber solltest du aber den
Code: Code- Tag
benutzen.
Re: Pascal-Progamm problem
wirthi - 30.03.2008, 20:20
Vielleicht kannst du uns noch sagen, was nicht funktioniert?
Re: Pascal-Progamm problem
Moritz - 30.03.2008, 20:35
Stelle es am besten hier nochmal mit code-tags , Kommentaren und aussagekräftigen variablennamen rein.
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Tutorials.at
Leerzeichen lesen - gepostet von detewe89 am Donnerstag 31.05.2007
char / schleife - gepostet von Michael am Samstag 11.11.2006
Euer Alter - gepostet von geek.90 am Sonntag 20.05.2007
Welche Programmiersprache? - gepostet von The Dust am Sonntag 24.06.2007
Brauche das Programm Pascal - gepostet von Lino am Freitag 14.07.2006
RPG-Maker 2000 (+Spiele) - gepostet von Dragorad am Montag 20.11.2006
Moderatorenrunde - gepostet von Dragorad am Dienstag 10.04.2007
Compiler Problem - gepostet von Schubl am Sonntag 04.06.2006
Mein Würfelprogramm funktioniert nicht richtig... - gepostet von Godmaster am Samstag 23.09.2006
Ähnliche Beiträge wie "Pascal-Progamm problem"
Raidprobleme - icecold (Freitag 30.12.2005)
Ein wenig dikutieren - angela (Donnerstag 08.05.2008)