Question

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

Answer 1

Сортировка времениТребуется выполнить сортировку временных моментов, заданных в часах, минутах и секундах.Входные данныеВо входном файле INPUT.TXT в первой строке записано число N (1<=N<=100), а в последующих N строках N моментов времени. Каждый момент времени задается 3 целыми числами - часы (от 0 до 23), минуты (от 0 до 59) и секунды (от 0 до 59).Выходные данныеВ выходной файл OUTPUT.TXT выведите моменты времени, упорядоченные в порядке неубывания без ведущих нулей.ПримерINPUT.TXT4
10 20 30
7 30 00
23 59 59
13 30 30


OUTPUT.TXT7 30 0
10 20 30
13 30 30
23 59 59

Answer 2

Конечно! Я могу предложить вам новую задачу, которая будет решаться с использованием массива в программе на языке Паскаль.

Задача: Управление библиотекой книг

Описание задачи: Вы работаете в библиотеке и вам необходимо написать программу, которая позволит управлять каталогом книг. Вам нужно создать массив, в котором будут храниться данные о книгах: название, автор, жанр и статус (доступна или взята).

Требования: 1. Создайте массив, в котором каждый элемент будет представлять одну книгу. Каждая книга должна иметь следующие характеристики: название (строка), автор (строка), жанр (строка) и статус (булево значение, где true означает, что книга доступна, а false - что она взята). 2. Реализуйте функцию, которая будет добавлять новую книгу в каталог. Функция должна принимать в качестве параметров название, автора, жанр и устанавливать статус книги как доступную. 3. Реализуйте функцию, которая будет искать книгу по названию и возвращать ее информацию (включая автора, жанр и статус). 4. Реализуйте функцию, которая будет изменять статус книги на взятую или доступную в зависимости от переданного параметра. 5. Реализуйте функцию, которая будет выводить все книги в каталоге, включая их информацию (название, автор, жанр и статус).

Пример кода на языке Паскаль: ```pascal const MAX_BOOKS = 100; type Book = record title: string; author: string; genre: string; available: boolean; end; var catalog: array[1..MAX_BOOKS] of Book; bookCount: integer = 0;

procedure AddBook(title, author, genre: string); begin if bookCount < MAX_BOOKS then begin Inc(bookCount); catalog[bookCount].title := title; catalog[bookCount].author := author; catalog[bookCount].genre := genre; catalog[bookCount].available := true; end else writeln('Каталог книг полон.'); end;

function FindBook(title: string): Book; var i: integer; begin for i := 1 to bookCount do begin if catalog[i].title = title then begin Result := catalog[i]; Exit; end; end; writeln('Книга не найдена.'); end;

procedure ChangeBookStatus(title: string; status: boolean); var i: integer; begin for i := 1 to bookCount do begin if catalog[i].title = title then begin catalog[i].available := status; Exit; end; end; writeln('Книга не найдена.'); end;

procedure DisplayCatalog; var i: integer; begin for i := 1 to bookCount do begin writeln('Название: ', catalog[i].title); writeln('Автор: ', catalog[i].author); writeln('Жанр: ', catalog[i].genre); if catalog[i].available then writeln('Статус: доступна') else writeln('Статус: взята'); writeln; end; end;

begin AddBook('Война и мир', 'Лев Толстой', 'Роман'); AddBook('Преступление и наказание', 'Федор Достоевский', 'Роман'); AddBook('1984', 'Джордж Оруэлл', 'Дистопия'); DisplayCatalog; writeln('Ищем книгу "Война и мир":'); writeln(FindBook('Война и мир').author); writeln('Изменяем статус книги "1984" на взятую:'); ChangeBookStatus('1984', false); DisplayCatalog; end. ```

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