Урок 67-68

program sp_pesen;

const n=2; {количество песен}

type pesni=record {описание записи}

naz:string[10];

stil:string[10];

time:real;

end;

var m:array[1..n] of pesni; {массив песен}

i: 1..n;

begin

{формирование записей}

for i:=1 to n do

with m[i] do

begin

write('Введите название песни ',i,' '); readln(naz);

write('Введите жанр песни '); readln(stil);

write('Введите длительность песни в минутах '); readln(time);

writeln;

end;

{вывод результата}

writeln('название стиль длительность');

for i:=1 to n do

with m[i] do

if time >3.5 then

writeln(naz:6,stil:8,time:9:1);

writeln;

end.

1) Какие песни данного списка будут выведены на экран?

2) Переделайте данную программу так, чтобы (записать только фрагмент программы, который переделываете):

а) на экран выводились названия песен в стиле Rap;

б) в запись было добавлено имя исполнителя;

в) из записи было исключено поле, описывающее стиль;

г) на экран выводились названия песен длительностью от 2 до 3 минут исполнителя Sting.