Процедура поиска(Pascal)

[tarakanet]

Вот есть процедура поиска мне нужно ее немножко исправить сделать так что б она искала с файла приезжих пациентов например родной город Киев в прикрепленных есть прога в которой эта процедура то есть нужно что б эта процедурка выдавала список всех приезжих.Помогите пожалуйста

Procedure Poisk;
Begin
Writeln;
Writeln(' <<<‘Џ€‘ЋЉ IЌЋѓЋђЋ„I• ЏЂ–IќЌ’I‚>>>');
Shapka;
S:=False;
For i:=1 to Num do
With Teh[i] do
If Teh[i].PROBEG='Lutsk' then
Begin
Write('  є ',FIO:9,' є ');
Write(MARKA:10,' є ');
Write(PROBEG:10,' є ');
Write(NOMER:9,' є ');
Write(NARUSH:9,' є ');
Write(DATAG:9,' є');
Writeln;
S:=True;
End;
Writeln('  ИНННННННННННКННННННННННННКННННННННННННКНННННННННННКНННННННННННКНННННННННННј');Writeln;
If S=False then
Writeln(' Џ®ЁбЄ *Ґг¤*зҐ*');
ReadKey;
Writeln;
End;

[Mandrivnyk]

Вот есть процедура поиска мне нужно ее немножко исправить сделать так что б она искала с файла приезжих пациентов например родной город Киев в прикрепленных есть прога в которой эта процедура то есть нужно что б эта процедурка выдавала список всех приезжих.

В родном Киеве, видимо, дефицит уже и на запятые...
На, пользуйся:

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

Хватит? А то у меня еще есть...

[tarakanet]

А все не над я догадался с другом там нада было просто сменить 1 знак с = на <> и еще одну фишку вот последняя версия моей програмы но там мне еще нужно доделать последний пункт что б она выводила значение старше Х лет с диагнозом У поможете мне делать?
Там нада было просто поменять c

With Teh[i] do
If Teh[i].PROBEG='Lutsk' then

на

With Teh[i] do If Teh[i].NOMER<>'Lutsk' then

[tarakanet]

Mandrivnyk, спасибо за внимание, поможеш написать код на последний пункт в меню програмы программы(5)???

[arrowsf1]

а можно задание полностью. Твоя прога на 300р, мож кто нибудь за 200 решится.
всё очень просто.

массив строк 1..н,1..2

как мне кажется лучше подойдёт именно он, вместо класса.

и далее перебор если не равно Киев то вывести имя того у кого не равно


Писать, только за 200 р без класса будет, а массивом???Как сказано в задании.

[tarakanet]

Я уже написал процедуру поиска работает на ура.
Теперь мне нада сделать что б пунк в меню номер 5 работал тоесть выводила значение старше Х лет с диагнозом У

[arrowsf1]

Сообщение от tarakanet

Я уже написал процедуру поиска работает на ура.
Теперь мне нада сделать что б пунк в меню номер 5 работал тоесть выводила значение старше Х лет с диагнозом У

про эти пункты ты не говорил. Но они абсолютно анологичны

[tarakanet]

Я просто паскаль ненавижу ненаравится мне етот лексикон етого языка мне больше по душе ето С++ правда токо начал изучать...
Думаю надо дописать процедуру сичас думаю как оформить и привезать ее к меню я виложу то что я написал

[tarakanet]

Ето правильно??? Я не компилировал и не запускал прогу сразу сюда написал :-)

Procedure XY;
Begin
Writeln;
Write (Teh[i].PROBEG/Teh[i].MARKA);
End;

[tarakanet]

Если честно то я ету прогу стянул с вашего форума поудалял все что мне не нужно и дописую свое, там даже в коде название переменных нетакие как нада немного непонятно))