Цитата:
Сообщение от NamYola
Как будет выглядить полный рабочий код?покажите,обьясните пжлйста)
|
Например, так:
Код:
Type
TInfo = array[1..5] Of string;
const
Data:TInfo = ('Ivanov','Petrova','Evdokimov','Katsman','Lomidze');
Var
student: String;
i: integer;
b:Boolean;
begin
Writeln('Vvedite familiyu:');
Readln(Student);
i:=0;
b:=false;
Repeat
Inc(i);
If Student=Data[i] then b:=true;
Until b or (i=5);
if b then
writeln('Da, uchitsa v gruppe')
else
writeln('Net takogo');
Readln
End.
Введенная фамилия сравнивается со списком-константой, процесс идет до первого совпадения или до конца списка. Если есть совпадение, то логический параметр-флажок меняет значение с исходного false на true и выводится сообщение о наличии такого студента в группе. Или, если совпадений не найдено, об отсутствии.