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

Тема: Запрос в записи.как её определить??

  1. #1 Запрос в записи.как её определить?? 
    Новичок
    Регистрация
    30.05.2011
    Сообщений
    2
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    День добрый всем!

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

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

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

    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.
    Ответить с цитированием  
     

  2. #2  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Вот как это может выглядеть в рабочем состоянии. Вам остается лишь заменить имена студентов в массиве, если это необходимо. Программа работает просто - создаем цикл for, в котором последовательно прокручиваем имена всех студентов, и каждое имя сравниваем с введенным с клавиатуры. Если одинаковые, то пишем что студент есть, и завершаем программу командой halt. Если всех студентов прокрутили, но совпадений не было, значит такого в группе нет. Выход из цикла, и печать соответствующего сообщения.
    Код pascal:
    Type
    TInfo = array[1..5] Of string;
    const
    Data:TInfo = ('Студент1','Студент2','Студент3','Студент4','Студент5');
    Var
    i: integer;
    name: String;
     
    begin
    readln(name);
    for i:= 1 to 5 do begin
        if Data[i] = name then begin
            writeln('Da,uchitsa v grouppe');
            halt;
        end;
    end;
    writeln('Net,takogo');
    End.
    Последний раз редактировалось Абадябер; 30.05.2011 в 06:20. Причина: Добавил описание ;)
    Дружба-магия-радость!
    Ответить с цитированием  
     

  3. #3  
    Новичок
    Регистрация
    30.05.2011
    Сообщений
    2
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Благодарю)всё усвоил=)
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Ответов: 7
    Последнее сообщение: 10.11.2011, 04:14
  2. Определить какое время больше
    от pingvin в разделе C/C++
    Ответов: 4
    Последнее сообщение: 22.04.2011, 12:21
  3. Ответов: 3
    Последнее сообщение: 22.04.2011, 00:15
  4. Ответов: 5
    Последнее сообщение: 17.01.2011, 15:54
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •