Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Informatika (2 семестр) / 3 аттестация / поиск перевода в словаре
.pas program fg1;
uses crt;
type {описание типа }
perevod= record {переменная типа рекорд}
x: string; {x,y переменные типа стринг для обозначения 2х полей}
y: string;
end;
var
a: perevod; {переменная а типа perevod}
f1:file of perevod;{переменная f1 это файл компоненты этого файла типа перевод}
symbol1:string;
c:integer; {переменная с целого типа, перемнная для проверки условия вывода}
begin
assign(f1,'C:\Users\User\Desktop\информатика\информатика.txt'); {отождествление файла и файловой переменной}
reset(f1); {открыть файл для чтения с начала}
symbol1:='ответ';
while not eof(f1)do {цикл пока не достиг конца файла делаем}
begin
read(f1,a);
c:=0;
if symbol1=a.x then
begin
writeln(a.y);
break;{выход из цикла}
end
else
c:=1;
end;
if c=1 then
writeln ('нет такого слова в словаре');
close(f1);
end.
uses crt;
type {описание типа }
perevod= record {переменная типа рекорд}
x: string; {x,y переменные типа стринг для обозначения 2х полей}
y: string;
end;
var
a: perevod; {переменная а типа perevod}
f1:file of perevod;{переменная f1 это файл компоненты этого файла типа перевод}
symbol1:string;
c:integer; {переменная с целого типа, перемнная для проверки условия вывода}
begin
assign(f1,'C:\Users\User\Desktop\информатика\информатика.txt'); {отождествление файла и файловой переменной}
reset(f1); {открыть файл для чтения с начала}
symbol1:='ответ';
while not eof(f1)do {цикл пока не достиг конца файла делаем}
begin
read(f1,a);
c:=0;
if symbol1=a.x then
begin
writeln(a.y);
break;{выход из цикла}
end
else
c:=1;
end;
if c=1 then
writeln ('нет такого слова в словаре');
close(f1);
end.
Соседние файлы в папке 3 аттестация