www.ispwsznysa.fora.pl

stramik

Wersja robocza tak na szybko

program zad1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
TCzas=record
minuta:byte;
sekunda:byte;
end;

TData=record
dzien:byte;
miesiac:byte;
rok:byte;
end;

TUtwor=record
wykonawca:string[20];
tytul:string[20];
czas:Tczas;
end;

TCd=record
autor:string[20];
tytul:string[20];
data:TData;
cena:real;
utwor:array [1..20] of TUtwor;
end;

var
cd:TCd;
i,n:integer;

begin
write('Podaj wykonawce, jezeli skladanka nacisnij enter ');
readln(cd.autor);
if cd.autor='' then cd.autor:='Rozni wykonawcy';
write('Podaj tytul plyty: ');
readln(cd.tytul);
write('Podaj date wydania w formacie DD MM RR : ');
readln(cd.data.dzien,cd.data.miesiac,cd.data.rok);
write('Podaj cene plyty w pln PLN.GR : ');
readln(cd.cena);
write('Podaj liczbe utworow na plycie : ');
readln(n);
for i:=1 to n do
begin
if cd.autor='Rozni wykonawcy' then
begin
write('Podaj wykonawce ',i,' utworu: ');
readln(cd.utwor[i].wykonawca);
end;
write('Podaj tytul ',i,' utworu: ');
readln(cd.utwor[i].tytul);
write('Podaj czas utworu w formacie MM SS ');
readln(cd.utwor[i].czas.minuta,cd.utwor[i].czas.sekunda);
end;
writeln;
writeln;
writeln;

writeln('Wykonawca: ',cd.autor,' Tytul plyty: ',cd.tytul);
writeln('Data wydania: ',cd.data.dzien,'.',cd.data.miesiac,'.',cd.data.rok,'r.');
writeln('Cena: ',cd.cena:3:2);
writeln('Lista utworow:');
for i:=1 to n do
begin
write(i:3);
if cd.autor='Rozni wykonawcy' then
write(cd.utwor[i].wykonawca:22);
write(cd.utwor[i].tytul:22);
write(cd.utwor[i].czas.minuta:4,':',cd.utwor[i].czas.sekunda);
writeln;
end;
readln;

{ TODO -oUser -cConsole Main : Insert code here }
end.

roy

hej ciekawy pomysl a co do typow to mozesz i tak zadeklarowac troche mniej zajmuja i "latwiej" sie polapac ktory duzy Smile

stramik

HEhe widzę , że się siedzi nad Pascalem, albo byla o tym mowa gdzieś, nie wiedziałem, że można deklarować np 1..60 Razz

Lukasiu

widze ze mozna bylo krucej ale.....