Добавил:
Silebox
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
program var2;
uses myLib;
const
fname = 'var2.txt';
subject_cols = 5;
type
arr_str = array[1..subject_cols] of string;
var
disciplines: arr_str = ('физика', 'математика', 'информатика', 'АСВТ', 'русский язык');
f: TextFile;
x,fx: shortstring;
x_index, i: byte;
function getIndex(s:string;a:arr_str):integer;
var
i: integer;
count: integer = 1;
begin
for i:=1 to length(a) do
begin
if (s = a[i]) then exit(count)
else inc(count);
end;
end;
begin
Write('Введите название дисциплины: '); Read(x);
x_index := getIndex(x,disciplines) + 2;
assign(f,fname); reset(f); ReadLn(f,fx);
while (not eof(f)) do
begin
ReadLn(f,fx);
end;
end.
uses myLib;
const
fname = 'var2.txt';
subject_cols = 5;
type
arr_str = array[1..subject_cols] of string;
var
disciplines: arr_str = ('физика', 'математика', 'информатика', 'АСВТ', 'русский язык');
f: TextFile;
x,fx: shortstring;
x_index, i: byte;
function getIndex(s:string;a:arr_str):integer;
var
i: integer;
count: integer = 1;
begin
for i:=1 to length(a) do
begin
if (s = a[i]) then exit(count)
else inc(count);
end;
end;
begin
Write('Введите название дисциплины: '); Read(x);
x_index := getIndex(x,disciplines) + 2;
assign(f,fname); reset(f); ReadLn(f,fx);
while (not eof(f)) do
begin
ReadLn(f,fx);
end;
end.