Автор: psycho 21.05.2004 0:32
Задачка: Таблица содержит записи по 2 поля каждая - string и integer. Написать процедуры включения новой записи в таблицу, и выборки данных из таблицы по заданному ключу.
Помогите плз., от этого зависит моя стипендия! :)
Автор: BlackShadow 21.05.2004 2:16
Код
Type
TRecord=Record
Str:String;
Val:Integer
End;
Var
Data:Array[0..100] Of TRecord;
Count:Integer;
Procedure Add(s:String;i:Integer);
Begin
Data[Count].Str:=s;
Data[Count].Val:=i;
Inc(Count)
End;
Procedure Show;
Var
i:Integer;
Begin
For i:=0 To Count-1 Do
WriteLn(Data[i].Str,': ',DAta[i].Val)
End;
Var
s:String;
n:Integer;
Begin
While True Do
Begin
Write('Enter String (Press Enter To Stop): ');
ReadLn(s);
If s='' Then
Break;
Write('Enter Number: ');
ReadLn(n);
Add(s,n)
End;
Show
End.
Вот так.