Реляционная БД - это БД, состоящая из взаимосвязанных таблиц.
Следовательно, наиболее подходящий аналог - двухмерная таблица, так как в реляционной БД также существуют поля (атрибуты) и записи, ровно как и в обычной таблице.
Var f,f1:text;
s:string;
begin
assign(f,'f.txt');
reset(f);
assign(f1,'f1.txt');
rewrite(f1);
while not eof(f) do
begin
readln(f,s);
{есть функция:
function TrimRight(s: string): string;
Возвращает строку с удаленными конечными пробелами
Можно и так, как написано ниже}
while s[length(s)]=' ' do delete(s,length(s),1);
writeln(f1,s);
end;
close(f);
close(f1);
end.
Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.
Ввод: r ^ x ^ y С/П.
x^2 <-> x^2 + <-> x^2 - x>=0 11 1 С/П 0 С/П
Вывод: 1, если попадает, иначе 0.