Pascal
X

Привет дорогой друг

Наш сайт существует и развиваетется за счет рекламы. Пожалуйста, отключите блокировку рекламы AdBlock или подобное, для нашего сайта. Спасибо!
Показано с 1 по 2 из 2

Тема: Pascal

  1. #1
    Гость форума

    Регистрация
    24.11.2007
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию Pascal

    помогите с программой)
    Задача: Получение сведений о книгах
    запрос: Список книг определенного автора
    Структура записей: Автор книги, название, год издания, соимость, коичество.
    В Pascale нужно )) или подскажите ссылочку на форуме, не могу найти...
    Спасибо.

  2. #2
    Гость форума
    Аватар для elmigranto
    Регистрация
    20.09.2008
    Адрес
    Россия
    Сообщений
    9
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию Re: Pascal

    Если список книг хранится в массиве, то
    Код:
    {$APPTYPE CONSOLE}
    type TBookInfo = record
                       Author: String;
                       Title: String;
                       Year: Word;
                       Cost: Word;
                       Amount: Word
                     end;
    
    const Tab = #9;
    const N = 255; // Количество различных наименований книг на складе
    
    var Books: array [0..N] of TBookInfo;
        i: Word;
        Request: String; // Имя нужного автора.
    
    function UpCaseStr(Str: String): String;
    var i: Word;
    begin
      Result := Str;
      for i := 1 to Length(Result) do
        Result[i] := UpCase(Result[i])
    end;
    
    begin
      { заполнение массива }
    
      Write('Author: ');
      Readln(Request);
      Request := UpCaseStr(Request);
    
      for i := 0 to N do
      if UpCaseStr(Books[i].Author) = Request then
        begin
          Writeln(Books[i].Title);
          Writeln(Tab, 'Author:', Tab, Books[i].Author);
          Writeln(Tab, 'Year:', Tab, Books[i].Year);
          Writeln(Tab, 'Cost:', Tab, Books[i].Cost);
          Writeln(Tab, 'Amount:', Tab, Books[i].Amount);
        end
    end.
    Software is like sex - it's better when it's free. (Linus Torvalds)

Социальные закладки

Социальные закладки

Ваши права

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