Program Słownik - problem z tłumaczeniem słów

Rejestracja:około 12 lat
Ostatnio:prawie 12 lat
Postów:5

Witam, napisałem słownik angielsko-polski, który się odpala , lecz są w nim poniższe błędy ( nie wiem jak je naprawic ) i prosiłbym o pomoc:

Niby wszystko działa dobrze, program tłumaczy słowo, które jest zawarte w pliku, ale po wciśnięciu klawisza ENTER wyskakuje komunikat, że słowa nie ma w słowniku i żeby powrócić do MENU muszę parę razy kliknąć enter.
Po dodaniu słowa do słownika, program go już nie odczytuje z pliku i nie mogę go przetłumaczyć. Wyskakuje komunikat, że słowa nie ma w słowniku.
Nie mam pojęcia co jest nie tak. Proszę o przeanalizowanie poniższego kodu (chodzi tu głównie o procedury zawarte w case, bo prawdopodobnie tu jest błąd):

Kopiuj

program angpol;
uses crt;
var F,F1  :Text;
wybor :integer;
slowo,o,o1,x,x1 : string;
 
 
procedure Cursoroff;assembler;
asm
   mov ah,01h
   mov ch,10h
   mov cl,00h
   int 10h
end;
procedure Cursoron;assembler;
asm
   mov ah,01h
   mov ch,06h
   mov cl,07h
   int 10h
end;
 
 
procedure piszmenu(ktory: byte);
begin
  textbackground(black);
  textcolor(white);
  gotoxy(1,1); write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄ MENU ÄÄÄÄÄÄÄÄÄÄÄÄż');
  gotoxy(1,2); write('ł                               ł'); {1}
  gotoxy(1,3); write('ł                               ł'); {2}
  gotoxy(1,4); write('ł                               ł'); {3}
  gotoxy(1,5); write('ł                               ł'); {4}
  gotoxy(1,6); write('ł                               ł'); {5}
  gotoxy(1,7); write('ŔÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄŮ');
  gotoxy(2,2);
  if ktory=1 then begin
                    textbackground(white);
                    textcolor(black);
                    write('Slownik Polsko-Angielski    ');
                    textbackground(black);
                    textcolor(white);
                  end
             else begin
                    write('Slownik Polsko-Angielski    ');
                  end;
  gotoxy(2,3);
  if ktory=2 then begin
                    textbackground(white);
                    textcolor(black);
                    write('Slownik Angielsko-Polski    ');
                    textbackground(black);
                    textcolor(white);
                  end
             else begin
                    write('Slownik Angielsko-Polski    ');
                  end;
  gotoxy(2,4);
  if ktory=3 then begin
                    textbackground(white);
                    textcolor(black);
                    write('Dodaj tlumaczenie           ');
                    textbackground(black);
                    textcolor(white);
                  end
             else begin
                    write('Dodaj tlumaczenie           ');
                  end;
  gotoxy(2,5);
  if ktory=4 then begin
                    textbackground(white);
                    textcolor(black);
                    write('Koniec                      ');
                    textbackground(black);
                    textcolor(white);
                  end
             else begin
                    write('Koniec                      ');
                  end;
 
end;
 
 
 
Function menu: byte;
var i : integer;
    z : char;
begin
  i:=1;
  repeat
    piszmenu(i);
    z:=readkey;
    if ord(z)=0 then begin
                       z:=readkey;
                       case ord(z) of
                       72: if i-1<1 then i:=4
                                    else i:=i-1; {swg}
                       80: if i+1>4 then i:=1
                                    else i:=i+1; {swd}
                       71: i:=1; {home}
                       79: i:=4; {end}
                       end;
                     end;
  until ord(z)=13;
  menu:=i;
end;
 
 
 
procedure slopolang;
var slowo,o,o1: string;
begin
while not eof(f) do
begin
gotoxy(1,13);
write('Wpisz slowo: ');
readln(slowo);
readln(f,o);
readln(f1,o1);
if slowo = o then writeln(o,' - ',o1)
             else writeln('Brak slowa! Dodaj je najpierw do slownika!');
 
 
end;
end;
 
procedure sloangpol;
var slowo,o,o1: string;
begin
while not eof(f) do
begin
gotoxy(1,13);
write('Wpisz slowo: ');
readln(slowo);
readln(f,o);
readln(f1,o1);
if slowo = o1 then writeln(o1,' - ',o)
              else writeln('Brak slowa! Dodaj je najpierw do slownika!');
 
end;
end;
 
 
 
procedure addslo;
var x,x1: string;
begin
gotoxy(1,13);
Write('Podaj polski odpowiednik: ');
readln(x);
write('Podaj angielski odpowiednik: ');
readln(x1);
append(F);
append(F1);
writeln;
writeln(F,x);
writeln;
writeln(F1,x1);
reset(f);
end;
 
 
 
begin
assign(F, 'POL.txt');
assign(F1,'ANG.txt');
 
reset (F);
reset(F1);
 
repeat
 
window(1,1,79,24);
      clrscr;
      cursoroff;
      wybor:=menu;
      cursoron;
      gotoxy(1,23);
 
case wybor of
1:begin
slopolang;
end;
2:begin
sloangpol;
end;
3:begin
addslo;
end;
 
end;
until wybor=4;
 
 
close(f);
close(f1);
end.

edytowany 1x, ostatnio: flowCRANE 2013-05-06 16:23

flowCRANE 2013-05-06 16:24

Pamiętaj o nadawaniu wątkom sensownych tytułów;

babubabu

2013-05-06 16:32

babubabu2013-05-06 16:32

Rejestracja:około 13 lat
Ostatnio:3 miesiące
Lokalizacja:Łódź
Postów:648

Jak wpisywanie słowa dajesz w pętli to się nie dziw to raz. A dwa dopóki nie sformatujesz kodu jak trzeba to nie mam zamiaru go analizować.

edytowany 3x, ostatnio: babubabu 2013-05-06 16:37

flowCRANE 2013-05-06 16:36

Ah, spóźniłem 3 minuty ;)

babubabu 2013-05-06 16:36

;)

flowCRANE

2013-05-06 16:35

flowCRANE2013-05-06 16:35

Moderator Delphi/Pascal

Rejestracja:ponad 13 lat
Ostatnio:około 4 godziny
Lokalizacja:Tuchów
Postów:12171

Sformatuj kod i pozbądź się zbędnych jego części (uprość pocedurę piszmenu i zastosuj instrukcję wyboru case .. of w zamian za te drabinki ifów), aby samego siebie nie powtarzać (zasada DRY) a jest duża szansa, że sam znajdziesz błąd.

johny1221

2013-05-06 17:47

johny12212013-05-06 17:47

Rejestracja:około 12 lat
Ostatnio:prawie 12 lat
Postów:5

gdzie tu jest opcja edytuj? Dobrze sformatowane?

Kopiuj

program angpol;
uses crt;

var F,F1  :Text;
    wybor :integer;
    slowo,o,o1,x,x1 : string;


procedure Cursoroff;assembler;
asm
   mov ah,01h
   mov ch,10h
   mov cl,00h
   int 10h
end;
procedure Cursoron;assembler;
asm
   mov ah,01h
   mov ch,06h
   mov cl,07h
   int 10h
end;


PROCEDURE piszmenu(ktory: byte);
begin
  textbackground(black);
  textcolor(white);
  gotoxy(1,1); write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄ MENU ÄÄÄÄÄÄÄÄÄÄÄÄż');
  gotoxy(1,2); write('ł                               ł'); {1}
  gotoxy(1,3); write('ł                               ł'); {2}
  gotoxy(1,4); write('ł                               ł'); {3}
  gotoxy(1,5); write('ł                               ł'); {4}
  gotoxy(1,6); write('ł                               ł'); {5}
  gotoxy(1,7); write('ŔÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄŮ');
  gotoxy(2,2);
  if ktory=1 then begin
                    textbackground(white);
                    textcolor(black);
                    write('Slownik Polsko-Angielski    ');
                    textbackground(black);
                    textcolor(white);
                  end
             else begin
                    write('Slownik Polsko-Angielski    ');
                  end;
  gotoxy(2,3);
  if ktory=2 then begin
                    textbackground(white);
                    textcolor(black);
                    write('Slownik Angielsko-Polski    ');
                    textbackground(black);
                    textcolor(white);
                  end
             else begin
                    write('Slownik Angielsko-Polski    ');
                  end;
  gotoxy(2,4);
  if ktory=3 then begin
                    textbackground(white);
                    textcolor(black);
                    write('Dodaj tlumaczenie           ');
                    textbackground(black);
                    textcolor(white);
                  end
             else begin
                    write('Dodaj tlumaczenie           ');
                  end;
  gotoxy(2,5);
  if ktory=4 then begin
                    textbackground(white);
                    textcolor(black);
                    write('Koniec                      ');
                    textbackground(black);
                    textcolor(white);
                  end
             else begin
                    write('Koniec                      ');
                  end;

end;



FUNCTION menu: byte;
var i : integer;
    z : char;
begin
  i:=1;
  repeat
    piszmenu(i);
    z:=readkey;
    if ord(z)=0 then begin
                       z:=readkey;
                       case ord(z) of
                       72: if i-1<1 then i:=4
                                    else i:=i-1; {swg}
                       80: if i+1>4 then i:=1
                                    else i:=i+1; {swd}
                       71: i:=1; {home}
                       79: i:=4; {end}
                       end;
                     end;
  until ord(z)=13;
  menu:=i;
end;



PROCEDURE slopolang;

var slowo,o,o1: string;

  begin
    while not eof(f) do
    begin
      gotoxy(1,13);
      write('Wpisz slowo: ');
      readln(slowo);
      readln(f,o);
      readln(f1,o1);
      if slowo = o then writeln(o,' - ',o1)
                   else writeln('Brak slowa! Dodaj je najpierw do slownika!');


    end;
  end;


PROCEDURE sloangpol;

var slowo,o,o1: string;

  begin
    while not eof(f) do
    begin
      gotoxy(1,13);
      write('Wpisz slowo: ');
      readln(slowo);
      readln(f,o);
      readln(f1,o1);
      if slowo = o1 then writeln(o1,' - ',o)
                    else writeln('Brak slowa! Dodaj je najpierw do slownika!');

    end;
  end;



PROCEDURE addslo;

var x,x1: string;

  begin
   gotoxy(1,13);
     Write('Podaj polski odpowiednik: ');
     readln(x);
     write('Podaj angielski odpowiednik: ');
     readln(x1);
     append(F);
     append(F1);
     writeln;
     writeln(F,x);
     writeln;
     writeln(F1,x1);
     reset(f);
  end;



  begin
    assign(F, 'POL.txt');
    assign(F1,'ANG.txt');

    reset (F);
    reset(F1);

    repeat
      window(1,1,79,24);
      clrscr;
      cursoroff;
      wybor:=menu;
      cursoron;
      gotoxy(1,23);

      case wybor of
      1:begin
          slopolang;
        end;
      2:begin
          sloangpol;
        end;
      3:begin
          addslo;
        end;

      end;
    until wybor=4;


    close(f);
    close(f1);
  end.

babubabu 2013-05-06 17:51

Nie. Ciągle z d**y. ale lepiej niż było

olesio 2013-05-06 18:29

@johny1221: Nie umiesz formatować sam, to użyj choćby tego: http://olesio.eu/jcf - a poza tym miałeś uprościć konstrukcje, stosując case. A nie wszdędzie gdzie się dało, do tego się zastosowałeś. Póki kod będzie nadal niedbale sformatowany, jak powyżej, to nikt go tutaj nie przeanalizuje. Chyba, że jest masochistą :/

_13th_Dragon

2013-05-06 19:35

_13th_Dragon2013-05-06 19:35

Rejestracja:ponad 19 lat
Ostatnio:około 13 godzin

@olesio, w tym formatowaniu jest porządek, owszem mocno pokręcony ale po kilku sekundach da się strawić.

Na początku procedur:
slopolang;
sloangpol;
brakuje poleceń:
reset (F); reset(F1);
lub:
rewind(F); rewind(F1); - patrz komentarze.

Chodzi o to że przed odczytem musisz ustawić deskryptor pliku na początek.

Oczywiście procedury:
slopolang;
sloangpol;
I działają poprawnie tylko jeżeli pierwsze słowo w pliku jest takie jak podane, brakuje pętli.

edytowany 1x, ostatnio: _13th_Dragon 2013-05-06 19:47

Patryk27 2013-05-06 19:37

rewind? Nie kojarzę takiej procedury, a dokumentacja również niewiele wskazuje...

_13th_Dragon 2013-05-06 19:47

Widziałem w jednej jakieś dziwnej odmianie, strasznie mi się spodobało, ale okazało się że tylko tam działa. Dla tego podałem jako lub. Teraz nawet śladu tego nie mogę znaleźć.