Записи

[Xeon332]

Отобрать работников с одинаковыми именами.
Прога работает.. не определяет одинаковые имена...


Uses crt;
Type
Worker = record
End;
Var
Num : word;
Imena:string;
Workers:array[1..30] of worker;
s1,s2: string;
i: byte;
begin
clrscr;
writeln ('Имена');
readln('imena');
if s1[i] =s2[i] then
writeln ('Одинаковые имена');
readln;
readkey;
end.


в техникуме недопонял. подскажите что да как.. если есть возможность и желание, вкратце ,плиз, описание функции, которую надо использовать...

[simple]

writeln ('Имена');
readln('imena');
1. здесь Вам надо ввести НЕСКОЛЬКО, как я понимаю, 30 имен (Workers:array[1..30] of worker, а в проге вводится одно.
2. здесь
if s1[i] =s2[i] then
writeln ('Одинаковые имена');
Вы определяете наличие одинаковых имен в массиве, а переменную i не изменяете.
и в том, и в другом случае Вам поможет for от 1 до 30 =)

[Карась]

чтото непонятное ты написал....

begin
clrscr; writeln ('Имена'); 
readln('imena'); // Занесли в переменную
if s1[i] = s2[i] then // ??? 
writeln ('Одинаковые имена');
readln;
readkey;
end.

Если тебе надо сравнить две строки то ненадо ставить [i].
S[i] - означает что ты обращаешся к определённому симаолу строки где i - порядковый номер элемента.

[Xeon332]

ПРинял! Буду учиться! только недопонял в одном случае - как мне нужно ввести 30 имен? какой функцией это лучше сделать? Спасибо

[Карась]

А почему не массив?
Один двумерный массив и всё....

[puporev]

Ты создал тип
Type
Worker = record
End;
Но не описал поля, вместо этого вводишь то, что должно быть полями.
У тебя массив Workers:array[1..30] of worker; пустой.
Нужно
Type
Worker = record
Num : word;
Imena:string;
End;
Тогда в массиве будут после введения данные о работниках, к которым нужно обращаться так:
Workers[i].Num-номер i-го работника, Workers[i].Imena-имя i-го работника.
Названия полей у тебя какие-то неудачные, обычно используют фамилию и имя (например Workers[i].fam и Workers[i].nam).
Вообще надо почитать про этот тип данных, иначе здесь лекцию надо читать.