|
 | Барби |
 | Компилятором булочек |
|
| |
Рррр, сорри, был шальной ентер на кнопке "Ответить".
| nirvana @ 10 января 2008, 18:35 | | Место жительстка: Ф,И,О, №кв,№дом, улица, город. Распечатать адреса граждан, проживающих в заданом городе, на заданой улице. |
Если предположить, что можно самому делать как тебе угодно, то на Дельфи я бы сделал так:
program Ы;
{$APPTYPE CONSOLE}
Type
TUser = Record
F,I,O: String;
Kv, Home: Integer;
Street, City: String;
end;
TAUser = Array of TUser;
var User: TAUser;
Function FindUser(ID: Integer; City, Street: String): Integer;
var n: Integer;
begin
For n:=ID To Length(User)-1 do begin
If (User[n].City=City) And (User[n].Street=Street) Then
begin
Result:=n; Exit;
end;
Result:=-1;
end;
var n: Integer=0;
begin
While n<>-1 do
begin
n:=FindUser(n, Город, Улица);
If n<>-1 Then
begin
With User[n] do WriteLn(Format('%s,%s,%d,%d',[City, Street, House, Kv]));
end;
end;
end;
Работает или нет - хз, но если я всё правильно понял, задумка, думаю, ясна. Надеюсь в Турбо Паскале типы есть? Ибо без них работу с БД не представляю возможным.
Исправлено: HoRRoR, 10 января 2008, 23:32 |
|
