veter_mory
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Начал решать эту хадачу
Место жительстка: Ф,И,О, №кв,№дом, улица, город. Распечатать адреса граждан, проживающих в заданом городе, на заданой улице.
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:=0 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;
Но и что то нек работает, что тут не правильно?
И в программе которая вторая задача на картинке я набрал этот текс программы и выдает ошибку 36 begin expected
function integral2(a,b:real):real;
сюда скопировать тело integral1 и заменить функционал
может тут какае то ошибка? помогите не как не получается. |
Всего записей: 7 | Зарегистр. 10-01-2008 | Отправлено: 08:17 11-01-2008 | Исправлено: veter_mory, 08:41 11-01-2008 |
|
