Переводчик., С английского на русский. Опции

[Костян]

Привет всем! Для начала хочу поздравить всех защитников Отечества с днем защитника Отечества. Понимаю что грузить Вас в предпраздничный день просто хамство. Но прошу простить меня и выслушать Есть такой вопросик: имеются 2 текстовых файла. Один с словами на английском языке(каждое слово на новой строчке)
другой такой же только на русском. Прога должна загружать оба файла, пользователь вводит слово на англ. языке и если такое есть в первом файле то выводит слово из второго которое распологается по счету на той же строке как и в первом файле! Помогите кто может.
P.S. Я не прошу никого писать прогу за меня(хотя не буду отказыватся), просто обьясните как это можно реализовать

[volvo]

Просто напросто одновременно с чтением из первого файла - читай информацию и из второго... Если прочитанное слово из первого файла совпадает с введенным - печатается слово, прочитанное из второго...

Хотя это - извращение... Что, если у тебя есть 2000 слов в файле, и пользователь введет 3 слова, расположенных в 1984, 1983, и 1997 строках соответственно, ты будешь 3 раза перелопачивать весь файл? Даже два файла...

[Костян]

Просто напросто одновременно с чтением из первого файла - читай информацию и из второго... Если прочитанное слово из первого файла совпадает с введенным - печатается слово, прочитанное из второго...

Хотя это - извращение... Что, если у тебя есть 2000 слов в файле, и пользователь введет 3 слова, расположенных в 1984, 1983, и 1997 строках соответственно, ты будешь 3 раза перелопачивать весь файл? Даже два файла...

Пытался делать но ничаво не вышло, может поможешь? Вот код:

Код

program perevodhik;
uses crt;
var f, f1: text;
s : array[1..3] of string;
s1: array[1..3] of string;
i: integer;
slovo: string;
label main;
begin
clrscr;
assign(f,'f.txt'); reset(f);
assign(f1,'f1.txt'); reset(f1);
readln(slovo);
main:
  begin
  for i:=1 to 3 do
     begin
while not eof(f) do begin
readln(f,s[i]);
end;
while not eof(f1) do begin
readln(f1,s1[i]);
     end;  end; end;

if slovo=s[i] then
begin
   writeln(s1[i]);
   readkey;
end
else main;

end;

end.

Сообщение отредактировано: Костян - 23.02.2006 4:18