Program jest obyčajny anglicko/slovensky slovník

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: KMP (Programy mladňakoch

Zrobil: ghostix
Program: Slovnik.pas
Subor exe: Slovnik.exe

Program jest obyčajny anglicko/slovensky slovník. Slova muši sebe ten co ho použiva pisac sam, neni su v ňom.
{ slovnik.pas                                                        }
{ Program je jednoduchým anglicko/slovenským slovníkom.              }
{ Slovíčka musí zadávať užívateľ, nie sú súčasťou.                   }
{                                                                    }
{ Author:ghostix                                                     }
{ Datum:20.04.2006                              http://www.trsek.com }
 
program slovnik;
uses crt;
var f1,f2:text;
    i,y,x:integer;
    slovo,slovo1:string;
    svk:array[1..15]of string;
    eng:array[1..15]of string;
    ODP:char;
procedure zapis;
begin
clrscr;
writeln('Zadajte pocet slovicek');
readln(x);
assign(f1,'svk.txt');
append(f1);
assign(f2,'preklad.txt');
append(f2);
 
for i:=1 to x do
begin
 writeln('Zadajte ',i,' slovicko');
 readln(svk[i]);
 writeln(f1,svk[i]);
 
 writeln('Zadajte preklad');
 readln(eng[i]);
 writeln(f2,eng[i]);
end;
 
close(f1);
close(f2);
readln;
end;
 
procedure anglicky;
begin
 clrscr;
 
 writeln('Zadajte Anglicke slovicko: ');
 readln(slovo1);
 
 assign(f1,'svk.txt');
 reset(f1);
 assign(f2,'preklad.txt');
 reset(f2);
 
 for i:=1 to 30 do
 begin
 readln(f1,svk[i]);
 readln(f2,eng[i]);
  if slovo1=eng[i] then writeln('Preklad: ',svk[i]);
 end;
 
close(f1);
close(f2);
readln;
end;
 
procedure slovensky;
begin
 clrscr;
 
 writeln('Zadajte slovenske slovicko: ');
 readln(slovo);
 
 assign(f1,'svk.txt');
 reset(f1);
 assign(f2,'preklad.txt');
 reset(f2);
 
 for i:=1 to 30 do
 begin
 readln(f1,svk[i]);
 readln(f2,eng[i]);
  if slovo=svk[i] then writeln('Preklad: ',eng[i]);
 end;
 
close(f1);
close(f2);
readln;
end;
 
begin
clrscr;
repeat
  writeln('Vytvorit subor ............... V':50);
  writeln;
  writeln('Preklad ENG na SVK............ E':50);
  writeln;
  writeln('Preklad SVK na ENG............ S':50);
  writeln;
  writeln('Koniec ....................... K':50);
  repeat ODP:=upcase(readkey);
  until (ODP='V')or(ODP='E')or(ODP='S')or(ODP='K');
  clrscr;
  case ODP of
    'V' : zapis;
    'E' : anglicky;
    'S' : slovensky;
  end;
until ODP='K'
end.