Важная информация
Показано с 1 по 5 из 5

Тема: проверить принадлежность

  1. #1 проверить принадлежность 
    Новичок
    Регистрация
    02.04.2011
    Сообщений
    14
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Пишу программу, но не получается проверить соответствует ли введенный день недели заданному типу. подскажите пожалуйста. ниже кусок программы
    Program Lab_4;
    Uses CRT;
    const N=7;
    type
    leng=string[20];
    weekdays=(monday,tuesday,wednesday,thursday,friday,satuday,sunday);
    time=record
    hour:0..23;
    min:0..59;
    end;
    class=record
    name:leng;
    start,finish:time;
    numb:0..8;
    lector:leng;
    end;
    Timetable=record {тип запись 'расписание'}
    day:weekdays;
    Nclass:0..N;
    end;
    c=array[1..N] of class;

    {---------------------------------------}
    Procedure Input(var mas:c; var z:timetable); {процедура ввода данных}
    var i:integer; {переменная счетчика цикла}
    err:integer; {код ошибки вводимых значений}
    fl:boolean; {проверка вводимых значений}
    str:string; {временное хранение введенных значений}
    buf:string;

    begin
    repeat
    writeln('Введите день недели: ');
    readln(buf);
    if 'buf' in ????? then
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Из строковых типов нельзя делать множества. Здесь придётся делать цикл:
    Код pascal:
    Var days(1..7)of lang
    est:boolean;
    {...
    присваем значения дням
    ...}
    est:=false;
    For i:=1 To 7 do if buf=days(I) Then est:=true;
    Переменная est- если true, то есть совпадение, если false, то нет. Перед каждым циклом её нужно сбрасывать.

    Круглые скобки замените квадратными, а то при подсветке синтаксиса они глючат.
    Последний раз редактировалось Kakos_nonos; 11.04.2011 в 20:17.
    Ответить с цитированием  
     

  3. #3  
    Новичок
    Регистрация
    02.04.2011
    Сообщений
    14
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    спасибо, я уже придумала решение))) спасибо большое
    Ответить с цитированием  
     

  4. #4  
    Гуру Аватар для Konstantin Shcherba
    Регистрация
    08.11.2010
    Сообщений
    1,336
    Сказал(а) спасибо
    26
    Поблагодарили 139 раз(а) в 107 сообщениях
    Записей в блоге
    1
    чес, ну так поделитесь с общественностью.
    Ответить с цитированием  
     

  5. #5  
    Новичок
    Регистрация
    02.04.2011
    Сообщений
    14
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    когда допишу программу, обязательно скину))
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Проверить правильность решения
    от azalivin в разделе QBasic
    Ответов: 1
    Последнее сообщение: 25.05.2011, 06:52
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •