|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
27.05.2011, 17:16 | #1 (permalink) |
Member
Регистрация: 24.05.2011
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Записи с типизированной константой
Вопрос:В типизированной константе после фамилии студента нужно ли задавать значения,чтобы в условном операторе определить принадлежность? Не могу записать условие и типиз.константу,помогитее пжлуйста) |
27.05.2011, 17:16 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Предлагаю вам прочесть эти темы, так как они по содержанию очень схожи с вашей Строки и записи. Записи Паскаль. Записи |
27.05.2011, 21:48 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
|
|
30.05.2011, 05:33 | #3 (permalink) |
Member
Регистрация: 24.05.2011
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Записи с типизированной константой
Допустим,вот записал типизированную константу,то как запишется само условие(поиск)?попробовал по разному писать,не выходит..
Как будет выглядить полный рабочий код?покажите,обьясните пжлйста) 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. |
30.05.2011, 10:07 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Например, так:
Код:
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. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|