Witam wszystkich ma takie zadanie:
Wytwórnia fonograficzna organizuje ankietę w celu oceny powodzenia swoich produktów na rynku i zorganizowania parady przebojów. Osoby biorące udział w ankiecie mają być podzielone na cztery grupy w zależności od płci i wieku (np., osoby do 20 roku życia i powyżej). Każda osoba podaje pięć tytułów z listy przebojów. Przeboje na liście oznaczone są liczbami od 1 do P (załóżmy, że P =11).
-
określić strukturę danych reprezentującą jednego respondenta i zawierającą jego nazwisko, imię, płeć, wiek i pięć wybranych przebojów zgodnie z priorytetem.
-
opracować aplikację, która umożliwi przeprowadzenie analizy wyników badania ankietowego.
Dane: N – liczba osób biorących udział w badaniu ankietowym,
odpowiedzi kolejnych respondentów - wyniki ankiety.
Wyniki: Cztery oddzielne listy (dla każdej kategorii respondentów), którzy na pierwszym miejscu wymienili jeden z trzech najpopularniejszych przebojów.
Więc tak... zrobiłam program który wypisuje te cztery grupy , (rozróżnia płeć i wiek) i wypisuje 5 utworów które wybrała dana osoba. I teraz mam problem bo nie wiem w ogóle jak zrobić aby program zrobi analize tej ankiety i wyliczył które utwory są najpopularniejsze, męcze się z tym już od paru dni. Bardzo proszę was o pomoc.
oto mój kod
Program Osoby;
type
osoba=record
imie:string;
ostatnialitera:string[1];
plec:string;
wiek:integer;
grupa:integer;
wybor1,wybor2,wybor3,wybor4,wybor5:integer;
utwor1,utwor2,utwor3,utwor4,utwor5:string;
end;
tab = array of osoba;
var
x:tab;
n,i,j,q,m,c1,c2,c3,c4,c5:integer;
biezacaGrupa:integer;
r,h,b1,b2,b3,b4,b5:string;
begin
writeln('Ile jest osob???'); readln(n);
SetLength(x,n);
for i:=1 to n do
begin
writeln;
writeln('Osoba nr ',i,': ');
write('Imie: '); readln(x[i].imie);
write('wiek: '); readln(x[i].wiek);
x[i].ostatnialitera := Copy(x[i].imie,Length(x[i].imie),1);
if ((x[i].ostatnialitera='a') or (x[i].ostatnialitera='A')) then
x[i].plec:='kobieta'
else
x[i].plec:='mezczyzna';
if ((x[i].plec='kobieta') and (x[i].wiek<=20)) then
x[i].grupa:=1;
if ((x[i].plec='kobieta') and (x[i].wiek>20)) then
x[i].grupa:=2;
if ((x[i].plec='mezczyzna') and (x[i].wiek<=20)) then
x[i].grupa:=3;
if ((x[i].plec='mezczyzna') and (x[i].wiek>20)) then
x[i].grupa:=4;
writeln;
writeln('Podaj 5 najlepszych wedlug ciebie utworow (wedlug priorytetu)');
writeln;
writeln('1- Peja - cicha noc');
writeln('2- Toto - hold the line');
writeln('3- John Lenon - imagine');
writeln('4- Cutting Crew - I Just Died in your arms tonight');
writeln('5- Tiesto - show me a way');
writeln('6- O.S.T.R - Kochana Polsko');
writeln('7- Murrray Head-One night in Bangkok');
writeln('8- Tupac - California Love');
writeln('9- Tupac - Geto gospel');
writeln('10- ABBA - Knowing me knowing you');
writeln('11- Metalica - Brothers in Army ');
writeln;
write('Wybor pierwszy: ');
readln(x[i].wybor1);
write('Wybor drugi: ');
readln(x[i].wybor2);
write('Wybor trzeci: ');
readln(x[i].wybor3);
write('Wybor czwarty: ');
readln(x[i].wybor4);
write('Wybor piaty: ');
readln(x[i].wybor5);
if x[i].wybor1 = 1 then x[i].utwor1:='Peja - cicha noc';
if x[i].wybor1 = 2 then x[i].utwor1:='Toto - hold the line';
if x[i].wybor1 = 3 then x[i].utwor1:='John Lenon - imagine';
if x[i].wybor1 = 4 then x[i].utwor1:='Cutting Crew - I Just Died in your arms tonight';
if x[i].wybor1 = 5 then x[i].utwor1:='Tiesto - show me a way';
if x[i].wybor1 = 6 then x[i].utwor1:='O.S.T.R - Kochana Polsko';
if x[i].wybor1 = 7 then x[i].utwor1:='Murrray Head-One night in Bangkok';
if x[i].wybor1 = 8 then x[i].utwor1:='Tupac - California Love';
if x[i].wybor1 = 9 then x[i].utwor1:='Tupac - Geto gospel';
if x[i].wybor1 = 10 then x[i].utwor1:='ABBA - Knowing me knowing you';
if x[i].wybor1 = 11 then x[i].utwor1:='Metalica - Brothers in Army';
if x[i].wybor2 = 1 then x[i].utwor2:='Peja - cicha noc';
if x[i].wybor2 = 2 then x[i].utwor2:='Toto - hold the line';
if x[i].wybor2 = 3 then x[i].utwor2:='John Lenon - imagine';
if x[i].wybor2 = 4 then x[i].utwor2:='Cutting Crew - I Just Died in your arms tonight';
if x[i].wybor2 = 5 then x[i].utwor2:='Tiesto - show me a way';
if x[i].wybor2 = 6 then x[i].utwor2:='O.S.T.R - Kochana Polsko';
if x[i].wybor2 = 7 then x[i].utwor2:='Murrray Head-One night in Bangkok';
if x[i].wybor2 = 8 then x[i].utwor2:='Tupac - California Love';
if x[i].wybor2 = 9 then x[i].utwor2:='Tupac - Geto gospel';
if x[i].wybor2 = 10 then x[i].utwor2:='ABBA - Knowing me knowing you';
if x[i].wybor2 = 11 then x[i].utwor2:='Metalica - Brothers in Army';
if x[i].wybor3 = 1 then x[i].utwor3:='Peja - cicha noc';
if x[i].wybor3 = 2 then x[i].utwor3:='Toto - hold the line';
if x[i].wybor3 = 3 then x[i].utwor3:='John Lenon - imagine';
if x[i].wybor3 = 4 then x[i].utwor3:='Cutting Crew - I Just Died in your arms tonight';
if x[i].wybor3 = 5 then x[i].utwor3:='Tiesto - show me a way';
if x[i].wybor3 = 6 then x[i].utwor3:='O.S.T.R - Kochana Polsko';
if x[i].wybor3 = 7 then x[i].utwor3:='Murrray Head-One night in Bangkok';
if x[i].wybor3 = 8 then x[i].utwor3:='Tupac - California Love';
if x[i].wybor3 = 9 then x[i].utwor3:='Tupac - Geto gospel';
if x[i].wybor3 = 10 then x[i].utwor3:='ABBA - Knowing me knowing you';
if x[i].wybor3 = 11 then x[i].utwor3:='Metalica - Brothers in Army';
if x[i].wybor4 = 1 then x[i].utwor4:='Peja - cicha noc';
if x[i].wybor4 = 2 then x[i].utwor4:='Toto - hold the line';
if x[i].wybor4 = 3 then x[i].utwor4:='John Lenon - imagine';
if x[i].wybor4 = 4 then x[i].utwor4:='Cutting Crew - I Just Died in your arms tonight';
if x[i].wybor4 = 5 then x[i].utwor4:='Tiesto - show me a way';
if x[i].wybor4 = 6 then x[i].utwor4:='O.S.T.R - Kochana Polsko';
if x[i].wybor4 = 7 then x[i].utwor4:='Murrray Head-One night in Bangkok';
if x[i].wybor4 = 8 then x[i].utwor4:='Tupac - California Love';
if x[i].wybor4 = 9 then x[i].utwor4:='Tupac - Geto gospel';
if x[i].wybor4 = 10 then x[i].utwor4:='ABBA - Knowing me knowing you';
if x[i].wybor4 = 11 then x[i].utwor4:='Metalica - Brothers in Army';
if x[i].wybor5 = 1 then x[i].utwor5:='Peja - cicha noc';
if x[i].wybor5 = 2 then x[i].utwor5:='Toto - hold the line';
if x[i].wybor5 = 3 then x[i].utwor5:='John Lenon - imagine';
if x[i].wybor5 = 4 then x[i].utwor5:='Cutting Crew - I Just Died in your arms tonight';
if x[i].wybor5 = 5 then x[i].utwor5:='Tiesto - show me a way';
if x[i].wybor5 = 6 then x[i].utwor5:='O.S.T.R - Kochana Polsko';
if x[i].wybor5 = 7 then x[i].utwor5:='Murrray Head-One night in Bangkok';
if x[i].wybor5 = 8 then x[i].utwor5:='Tupac - California Love';
if x[i].wybor5 = 9 then x[i].utwor5:='Tupac - Geto gospel';
if x[i].wybor5 = 10 then x[i].utwor5:='ABBA - Knowing me knowing you';
if x[i].wybor5 = 11 then x[i].utwor5:='Metalica - Brothers in Army';
writeln;
writeln('Twoj wybor: ');
writeln('Utwor Pierwszy: ',x[i].utwor1);
writeln('Utwor Drugi: ',x[i].utwor2);
writeln('Utwor trzec: ',x[i].utwor3);
writeln('Utwor czwarty: ',x[i].utwor4);
writeln('Utwor piaty: ',x[i].utwor5);
end;
{sortownie babelkowe}
for i:=2 to n do begin
for j:=n downto i do begin
if x[j-1].grupa > x[j].grupa then begin
h:=x[j-1].imie;
x[j-1].imie:=x[j].imie;
x[j].imie:=h;
m:=x[j-1].wiek;
x[j-1].wiek:=x[j].wiek;
x[j].wiek:=m;
r:=x[j-1].plec;
x[j-1].plec:=x[j].plec;
x[j].plec:=r;
c1:=x[j-1].wybor1;
x[j-1].wybor1:=x[j].wybor1;
x[j].wybor1:=c1;
c2:=x[j-1].wybor2;
x[j-1].wybor2:=x[j].wybor2;
x[j].wybor2:=c2;
c3:=x[j-1].wybor3;
x[j-1].wybor3:=x[j].wybor3;
x[j].wybor3:=c3;
c4:=x[j-1].wybor4;
x[j-1].wybor4:=x[j].wybor4;
x[j].wybor4:=c4;
c5:=x[j-1].wybor5;
x[j-1].wybor5:=x[j].wybor5;
x[j].wybor5:=c5;
b1:=x[j-1].utwor1;
x[j-1].utwor1:=x[j].utwor1;
x[j].utwor1:=b1;
b2:=x[j-1].utwor2;
x[j-1].utwor2:=x[j].utwor2;
x[j].utwor2:=b2;
b3:=x[j-1].utwor3;
x[j-1].utwor3:=x[j].utwor3;
x[j].utwor3:=b3;
b4:=x[j-1].utwor4;
x[j-1].utwor4:=x[j].utwor4;
x[j].utwor4:=b4;
b5:=x[j-1].utwor5;
x[j-1].utwor5:=x[j].utwor5;
x[j].utwor5:=b5;
q := x[j-1].grupa;
x[j-1].grupa := x[j].grupa;
x[j].grupa := q;
end;
end;
writeln;
end;
{koniec sortowania}
writeln('Grupa ',x[1].grupa);
writeln;
biezacaGrupa := x[1].grupa;
for i := 1 to High(x)+1 do
begin
if biezacaGrupa <> x[i].grupa then
begin
biezacaGrupa := x[i].grupa;
writeln;
writeln('Grupa ',x[i].grupa);
writeln;
end;
writeln('Osoba : ');
writeln('imie: ',x[i].imie);
writeln('wiek: ',x[i].wiek);
writeln('plec: ',x[i].plec);
writeln('Utwor Pierwszy: ',x[i].utwor1);
writeln('Utwor Drugi: ',x[i].utwor2);
writeln('Utwor trzec: ',x[i].utwor3);
writeln('Utwor czwarty: ',x[i].utwor4);
writeln('Utwor piaty: ',x[i].utwor5);
writeln;
end;
end.