Question

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

Answer 1

Текст приведенной ниже программы организует ввод данных и запись их в типизированный файл. Для завершения ввода в качестве названия надо ввести символ "звездочка" ( * ).

type
  song=record
  name,style:string[20];
  duration:real
  end;
var
  f:file of song;
  r:song;
begin
  Assign(f,'MySongs.dat');
  Rewrite(f);
  Writeln('Вводите данные в порядке "наименование, стиль, длительность');
  Writeln('Для окончания ввода укажите символ * вместо наименования');
  repeat
    Readln(r.name);
    if r.name<>'*' then begin
      Readln(r.style);
      Readln(r.duration);
      Write(f,r)
    end
  until r.name='*';
  Close(f)
end.

Answer 2

Type
 mus = record
  Name:string;
  style:string;
  dur:real;
 end;
var
 A:array[1..10000] of mus;
 i,n:integer;
 Nam, st:string;
 duration:real;
begin
 Writeln('Введите количество композиций: ');
 Readln(n);
 for i:=1 to n do
  begin
    Write('Название: ');
    read(Nam);
    Write(' Стиль: ');
    read(ST);
    Write(' Длительность: ');
    read(duration);
    A[i].Name:=Nam;
    A[i].style:=st;
    A[i].dur:=duration;
  end;
end.

Answer 3

Вот пример программы на языке Pascal, которая создает список песен, запрашивая данные с клавиатуры:

cssCopy code
program SongList;

type
  Song = record
    title: string;
    style: string;
    duration: real;
  end;

var
  songList: array of Song;
  numSongs, i: integer;

begin
  writeln('How many songs would you like to add to the list?');
  readln(numSongs);
  
  SetLength(songList, numSongs);
  
  for i := 0 to numSongs - 1 do
  begin
    writeln('Enter the title of song ', i+1, ':');
    readln(songList[i].title);
    
    writeln('Enter the style of song ', i+1, ':');
    readln(songList[i].style);
    
    writeln('Enter the duration of song ', i+1, ' (in minutes):');
    readln(songList[i].duration);
  end;
  
  writeln('Song List:');
  
  for i := 0 to numSongs - 1 do
  begin
    writeln('Song ', i+1, ':');
    writeln('  Title: ', songList[i].title);
    writeln('  Style: ', songList[i].style);
    writeln('  Duration: ', songList[i].duration:0:2, ' minutes');
  end;
  
  readln;
end.

В этой программе мы объявляем тип данных Song, который представляет запись с названием песни, стилем и длительностью. Затем мы создаем массив songList, содержащий записи Song, и запрашиваем у пользователя количество песен, которые он хочет добавить в список. Мы используем SetLength для изменения размера массива songList, чтобы он соответствовал числу песен, которые пользователь хочет добавить.

Затем мы проходим по массиву songList, запрашивая у пользователя название, стиль и длительность каждой песни, и сохраняем эти данные в соответствующие поля записи Song.

После того, как мы завершаем заполнение списка песен, мы выводим его содержимое на экран, используя цикл for для перебора элементов массива songList. Для каждой записи Song мы выводим ее номер, название, стиль и длительность.

Пример вывода программы для списка из двух песен может выглядеть так:

yamlCopy code
How many songs would you like to add to the list?
2
Enter the title of song 1:
Stairway to Heaven
Enter the style of song 1:
Rock
Enter the duration of song 1 (in minutes):
8.02
Enter the title of song 2:
Bohemian Rhapsody
Enter the style of song 2:
Rock
Enter the duration of song 2 (in minutes):
6.07
Song List:
Song 1:
  Title: Stairway to Heaven
  Style: Rock
  Duration: 8.02 minutes
Song 2:
  Title: Bohemian Rhapsody
  Style: Rock
  Duration: 6.07 minutes