Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 27.05.2011, 17:16   #1 (permalink)
NamYola
Member
 
Регистрация: 24.05.2011
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Post Записи с типизированной константой

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


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

Старый 27.05.2011, 17:16
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Предлагаю вам прочесть эти темы, так как они по содержанию очень схожи с вашей

Строки и записи.
Записи
Паскаль. Записи

Старый 27.05.2011, 21:48   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

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


Вопрос:В типизированной константе после фамилии студента нужно ли задавать значения,чтобы в условном операторе определить принадлежность?
Не могу записать условие и типиз.константу,помогитее пжлуйста)
Ничего не понял! Выложите что есть - посмотрим.
Vladimir_S вне форума   Ответить с цитированием
Старый 30.05.2011, 05:33   #3 (permalink)
NamYola
Member
 
Регистрация: 24.05.2011
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Post Записи с типизированной константой

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

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

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 вне форума   Ответить с цитированием
Старый 30.05.2011, 10:07   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от 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 и выводится сообщение о наличии такого студента в группе. Или, если совпадений не найдено, об отсутствии.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 11:58.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.