Question

Решить задачу на языке программирования Паскаль по теме "Записи": Создать список песен (запись), содержащий название, стиль и длительность песен. Типы данных должны быть следующие: 1. Название – строка 2. Стиль – строка 3. Длительность песен - вещественное число При помощи оператора присоединения внести данные в запись с клавиатуры.

Answer 1

Type     
  Song = Record
  Naz : String [ 40 ];
  Stil : String [10];
  Dl : Real;     
End;
Var
  Massiv : ARRAY   [ 1 . .10 ]   OF   Song;
  i, N : Short;
 
- Тогда -

FOR   i := 1   TO   N    DO    WITH     Massiv [ i ]     DO
Begin
Write ( ‘ Введите название песни - ‘ );
Readln ( Naz );
Write ( ‘ Введите стиль песни - ‘ );  
Readln ( Stil );
Write ( ‘ Укажите длительность песни - ‘ );
Readln ( Dl );
End;

Answer 2

Конечно, вот пример программы на языке Pascal, который создает список песен с использованием записей и заполняет их данными с клавиатуры:

pascalCopy code
program SongList;

type
  Song = record
    Title: string;
    Style: string;
    Duration: real;
  end;

var
  Songs: array[1..10] of Song; // Создаем массив записей для хранения 10 песен
  i: integer;

begin
  writeln('Введите информацию о 10 песнях:');
  
  for i := 1 to 10 do
  begin
    writeln('Песня ', i);
    write('Название: ');
    readln(Songs[i].Title);
    write('Стиль: ');
    readln(Songs[i].Style);
    write('Длительность (в минутах): ');
    readln(Songs[i].Duration);
  end;
  
  writeln('Ваш список песен:');
  for i := 1 to 10 do
  begin
    writeln('Песня ', i);
    writeln('Название: ', Songs[i].Title);
    writeln('Стиль: ', Songs[i].Style);
    writeln('Длительность: ', Songs[i].Duration:0:2, ' мин.');
    writeln;
  end;
end.

Эта программа создает массив из 10 записей "Песня" и заполняет каждую запись данными, введенными с клавиатуры. Затем она выводит информацию о каждой песне из списка. Вы можете изменить размер массива и количество песен, введенных с клавиатуры, по вашему усмотрению.