Розвязати цю задачу можна приблизно так.

10 CLS
20 INPUT "kilkist knig";K
30 OPEN "basa.txt" FOR OUTPUT AS #1
40 FOR I=1 TO K
45 PRINT "zapis",I
50 INPUT "Avtor";A$
60 INPUT "Kniga";N$
70 INPUT "Rik",R
80 PRINT #1,A$
90 PRINT #1,N$
100 PRINT #1,R
110 NEXT I
120 CLOSE #1
125 OPEN "basa.txt" FOR INPUT AS #1
130 INPUT "Avtor dlya poisk"; P$
140 FOR I=1 TO K
150 INPUT #1, A$
160 INPUT #1, N$
170 INPUT #1, R
180 IF P$=A$ THEN PRINT A$,N$,R
190 NEXT I

Якщо виникли питання звертайтесь

Додано (08.06.2008, 14:19)
---------------------------------------------
На самом деле, было приятно прочитать код на Бейсике, мы все снего начинали.

void ReadLong(long A[],char *dch);
void fwrite(long A[]);
void sum (long A[],long B[],long C[]);
const int N=1000;
//-------------------------------------------------------------
int main()
{ clrscr();
long mas1[N]={0};
long mas2[N]={0}; //v mas1[0]-m kolichestvo grup po 4
long mas3[N]={0}; //v ostalnih grupi v obratnom poriadke

char *ch1="1231223546540054644521000554"; // fin>>ch1;!!!
char *ch2="5452184584121212551001201";
cout<<"chislo 1:\n\n"<<ch1;
cout<<"\n\nchislo 2:\n\n"<<ch2;

ReadLong(mas1,ch1);
cout<<"\n\n\n\n1 massiv v obratnom poriadke:\n\n";
for (int i=0;i<=mas1[0];i++)
cout<<mas1[i]<<" ";

ReadLong(mas2,ch2);
cout<<"\n\n2 massiv v obratnom poriadke:\n\n";
for (i=0;i<=mas2[0];i++)
cout<<mas2[i]<<" ";

sum (mas1,mas2,mas3);
cout<<"\n\n\n\n3 massiv - summa 1+2:\n\n";
for (i=0;i<=mas3[0];i++)
cout<<mas3[i]<<" ";

cout<<"\n\n\nVvivod summi dlinih chisel:\n\n";
fwrite(mas3);

getch();
return 0;
}//------------------------------------------------------------

void ReadLong(long A[],char *dch)
{
char *ch;
int j=0;
while (dch[j]!='\0')
{
ch[0]=dch[j];
for (int i=A[0];i>=1;i--)
{
A[i+1]=A[i+1]+(A[i]*10)/10000;
A[i]=(A[i]*10)%10000;
}
A[1]=A[1]+atoi(ch);
if (A[A[0]+1]>0) A[0]++;
j++;
}
}//-------------------------------------------------------------

void fwrite(long A[])
{
int s,k;
cout<<A[A[0]];
for (int i=A[0]-1;i>=1;i--)
{
s=A[i];k=0;
while (s!=0)
{
s=s/10; k++;
}
while (k<4)
{
cout<<0; k++;
}
cout<<A[i];
}
cout<<"\n\n\n\nPress key to continue...";
}

void sum (long A[],long B[],long C[])
{
int i,k;
if (A[0]>B[0]) k=A[0];
else k=B[0];
for (i=1;i<=k;i++)
{
C[i+1]=(A[i]+B[i]+C[i])/10000;
C[i]=(A[i]+B[i]+C[i])%10000;
}
if (C[k+1]==0) C[0]=k;
else C[0]=k+1;
}

В 2006 году переделывал с Паскаля Окулова да и то на Борланде 3.1
Только складывает. Но работала.

Додавання:
var a,b:string;
mc:array[1..300] of byte;
i:integer;
la:byte absolute a;
lb:byte absolute b;
Function max(a,b:byte):integer;
begin
max:=a;
if b>max then max:=b
end;
begin
readln(a);
readln(b);
for i:=1 to la do
mc[i]:=byte(a[la-i+1])-48;
for i:=1 to lb do
inc(mc[i],byte(a[lb-i+1])-48);
for i:=1 to max(la,lb) do
if mc[i]>9 then
begin
inc(mc[i+1]);
dec(mc[i],10);
end;
for i:=max(la,lb)+1 downto 1 do
write(mc[i])
end.

Додано (11.06.2008, 07:55)
---------------------------------------------
Множення довго на коротке:
var a:string;
b:longint;
mc:array[1..300] of longint;
i:integer;
la:byte absolute a;

begin
readln(a);
readln(b);
for i:=1 to la do
mc[i]:=byte(a[la-i+1])-48;
for i:=1 to la do
mc[i]:=mc[i]*b;
for i:=1 to la do
if mc[i]>9 then
begin
inc(mc[i+1],mc[i] div 10);
mc[i]:=mc[i] mod 10;
end;
for i:=la+1 downto 1 do
write(mc[i])
end.

Додано (11.06.2008, 10:17)
---------------------------------------------
Множення довго числа на довге:
var a,b:string;
ma,mb,mc:array[1..300] of longint;
i,j:integer;
la:byte absolute a;
lb:byte absolute b;

begin
readln(a);
readln(b);
for i:=1 to la do
ma[i]:=byte(a[la-i+1])-48;
for i:=1 to lb do
mb[i]:=byte(b[lb-i+1])-48;
for i:=1 to la do
for j:=1 to lb do
inc(mc[i+j-1],ma[i]*mb[j]);
for i:=1 to la+lb-2 do
if mc[i]>9 then
begin
inc(mc[i+1],mc[i] div 10);
mc[i]:=mc[i] mod 10;
end;
for i:=la+lb-1 downto 1 do
write(mc[i])
end.

Додано (11.06.2008, 10:46)
---------------------------------------------
Ділення довго на коротке:

var a:string;
b:longint;
ma,mc:array[1..300] of longint;
i,ost:integer;
la:byte absolute a;

begin
readln(a);
readln(b);
for i:=1 to la do
ma[i]:=byte(a[i])-48;
ost:=0;
for i:=1 to la do
begin
ost:=ost*10+ma[i];
mc[i]:=ost div b;
ost:=ost mod b
end;
for i:=1 to la do
write(mc[i]);
writeln('(',ost,')');
end.

Відносно цього алгоритму, чому я його написав:
1. ost - це остача від ділення;
2. Масив mc - це ділення націло;
3. А якщо потрібно поділити з якоюсь точністю то дописати до числа "а" відповідну кількість "0".

Ну все нехочу більше писати, якщо потрібно ще щось відносно довгої арифметики ЗВЕРТАЙТЕСЬ.

begin
mc[1]:=1;
readln(k);
if k=0 then writeln('0!=1') else
begin
for b:=1 to k do
begin
for i:=1 to 1000 do
mc[i]:=mc[i]*b;
for i:=1 to 999 do
if mc[i]>9 then
begin
inc(mc[i+1],mc[i] div 10);
mc[i]:=mc[i] mod 10
end
end;
k:=1000;
while mc[k]=0 do dec(k);
write(b,'!=');
for i:=k downto 1 do
write(mc[i])
end
end.

Неоптимально, але працює

Я такий запис не зустрічав! Що це означає?