Запись с вариантами

[Potroshitell]

вы знаете, что есть такая конструкция в языке, как запись с вариантами. что-то типа этого:

type struct = record
     kind = (bla1,bla2);
     case kind of
       bla1 : ({переменные});
       bla2 : ({переменные});
     end;

я в ней толком ещё не разобрался.. вот дано задание: составьте программу, которая использует массив записей жильцов дома. у них есть имена, номера квартиры и т.д.. и потом дано условие: для лиц старше 18 лет в зависимости от рода деятельности (студент, пенсионер, работающий) - записать ещё кое-какие переменные.
Всё бы ничего, но для лиц старше 18 лет. как записать, чтобы он вначале смотрел сколько лет, а потом уже шёл оператор case kind of ...
Или никак? может придётся проверять это уже из самой программы?

Сообщение отредактировано: Potroshitell - 25.03.10, 06:42

[Булат Шакиров]

Почитай:
http://pascalforall.ru/2010/02/zapisi-s-variantami/

[Potroshitell]

эмм.. ну вроде у меня почти то же, что и в примере сайта:

type kind = (student,worker,pensioner); { род деятельности}
     tenant=record
        flat :integer;    { № квартиры}
        surname :string;  { фамилия}
        hisname :string;     { имя}
        age  :integer;    { возраст}
       // kindp :kind;
        case sort : kind  of
           student  : (placeS : string;);
           worker   : (placeW : string;   exp:string;);
           pensioner: (year  : integer);
     end;

чего тут не так?)

Добавлено 25.03.10, 07:18
ммда.. оказывается PascalABC не поддерживает записи с вариантами. какой-то странный компилятор(

Сообщение отредактировано: Potroshitell - 25.03.10, 07:18

[volvo877]

Цитата Potroshitell @ 25.03.10, 07:15

чего тут не так?)

Если у тебя 32-битный компилятор, то нельзя использовать String без указания длины в вариантной записи... Или укажи в квадратных скобках длину, или используй ShortString.

А PascalABC вообще пора бы на свалку вынести...

[Potroshitell]

Цитата volvo877 @ 25.03.10, 07:20

А PascalABC вообще пора бы на свалку вынести...

=))) я бы не против, просто там хотя бы интерфейс современный) а в freepascal старинный синий экран) почему-бы не изобрести компилятор паскаля с внешним видом ABC, а возможностями freepascal=))

P.S а так, запись с вариантами то без ошибок сделана?)

[Булат Шакиров]

Цитата Potroshitell @ 25.03.10, 07:28

бы не против, просто там хотя бы интерфейс современный)

Такой устроит?
http://www.bloodshed.net/devpascal.html

Как его приклеить к новой версии FPC, есть тема здесь же на форуме.

Похоже, сайт умер

http://www.softportal.com/get-184-bloodshed-dev-pascal.html

Отсюда качается норм.

Сообщение отредактировано: Оззя - 01.04.10, 13:17

[leo]

Цитата Potroshitell @ 25.03.10, 07:28

P.S а так, запись с вариантами то без ошибок сделана?)

volvo877 уже сказал, что в вариантной части (после case) нельзя использовать типы, требующие специальной инициализации\финализации, т.е. длинные строки (string), дин.массивы, варианты и интерфейсы

[Булат Шакиров]

Цитата Оззя @ 25.03.10, 07:34

Как его приклеить к новой версии FPC, есть тема здесь же на форуме.

Не могу найти Помню, что Jenia создавал, а volvo877 ответил. Кажется, просто в настройках путь прописать надо к новому компилятору

[volvo877]

Цитата Оззя @ 25.03.10, 07:41

Не могу найти

Как подключить к Dev-Pascal новый FPC

[Potroshitell]

http://www.bloodshed.net/devpascal.html
оО, ну вроде норм=) спс)

[Potroshitell]

тут в консоли опять проблема русских букв. выводятся иероглифы. как исправить?)

Добавлено 27.03.10, 12:53
причём FPC я подключил)

[Light13]

Цитата Potroshitell @ 27.03.10, 12:50

проблема русских букв

UTF8ToConsole - только это скорее больше для Lazarus'a,
а вот CharToOEM можно попробовать

вот это почитайте