Добрый день, уважаемые форумчане. Получил вот такое задание: текстовый файл-словарь содержит 3 колонки слов(выражений), разделенных знаком «=». Необходимо для любого, заданного пользователем, слова(выражения) из заданной колонки выводить «перевод» из остальных колонок этой строки. Задачу попытался решить и получился следующий код. Дело в том, что программа отлично работает для различных слов(кириллицы и латиницы) и цифр, например, если в исходном файле содержится 0001=philips=телефон и ввести ключевое слово "телефон", то программа выводит "0001=philips". Но если в исходном файле будет, например, аа=бб=аа, то ясно, что он выведет "бб=аа". Но из условия нужно, чтобы программа для любого, заданного пользователем, слова из заданной
колонки выводила перевод, т.е мы может имели ввиду вторую "аа", а не первую.
| Pascal |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
| program perevodchik
uses crt;
var
key, key2, s, tmp: string;
f, f2: Text;
l: integer;
procedure first(var s: string); {Приведение к нижнему регистру}
var
i: byte;
begin
for i := 1 to length(s) do
if s[i] in ['A'..'Z', 'А'..'П'] then
s[i] := chr(Ord(s[i]) + 32)
else if s[i] in ['Р'..'Я'] then
s[i] := chr(Ord(s[i]) + 80)
else if s[i] = 'Ё' then
s[i] := 'ё';
end;
procedure second(var s: string); {Конвентирование из ANSI в ASCII}
var
i: integer;
begin
for i := 1 to length(s) do
if Ord(s[i]) in [192..239] then
s[i] := chr(Ord(s[i]) - 64)
else if Ord(s[i]) in [240..255] then
s[i] := chr(Ord(s[i]) - 16)
else if Ord(s[i]) = 168 then
s[i] := chr(Ord(240))
else if Ord(s[i]) = 184 then
s[i] := chr(Ord(241));
end;
begin
writeln('Добрый день. Введите, пожалуйста, ключевое слово');
Read(key);
First(key);
key2 := '=' + key + '=';
Assign(f, 'E://file.txt');
reset(f);
while not EOF(f) do
begin
readln(f, s);
second(s);
tmp := s + '=';
First(tmp);
tmp := '=' + tmp;
l := pos(key2, tmp);
if l = 1 then
begin
Delete(s, 1, length(key) + 1);
writeln(s);
end;
if (l <> 0) and (l <> 1) then
begin
Delete(s, l, length(key) + 1);
if s[length(s)] = '=' then
Delete(s, length(s), 1);
writeln(s);
end;
end;
readkey;
end. |
|
Может быть можно сделать так, чтобы программа проверяла дальше в данной строке "слово-ключ" и при его нахождении выводила что-то типа " 'Введенное слово-ключ встречается два раза' ,вся строка полностью). Но пока не получается реализовать.
(
