Технический форум - Записи с типизированной константой

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

Записи с типизированной константой

Список студентов группы определен в программе как типизированная константа.Программа определяет,обучается ли человек в вашей группе,фамилия которого введена с клавиатуры.

Вопрос:В типизированной константе после фамилии студента нужно ли задавать значения,чтобы в условном операторе определить принадлежность?
Не могу записать условие и типиз.константу,помогитее пжлуйста)

Цитата:

Сообщение от NamYola (Сообщение 527870)

Ничего не понял! Выложите что есть - посмотрим.

Записи с типизированной константой

Допустим,вот записал типизированную константу,то как запишется само условие(поиск)?попробовал по разному писать,не выходит..

Как будет выглядить полный рабочий код?покажите,обьясните пжлйста)

Type
TInfo = array[1..5] Of string;
const
Data:TInfo = ('Студент1','Студент2','Студент3','Студент4','Студ ент5')
Var
students: array[0..4] of Tinfo;
i: integer;

begin
.....
if (.............) then
writeln('Da,uchitsa v grouppe')
else
writeln('Net,takogo');
begin
writeln(students[i].fio);
end;
End.

Цитата:

Сообщение от NamYola (Сообщение 528984)

Как будет выглядить полный рабочий код?покажите,обьясните пжлйста)

Например, так:

Код:

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 и выводится сообщение о наличии такого студента в группе. Или, если совпадений не найдено, об отсутствии.