Witam, napisałem kawałek programy, który ma rozegrać system pucharowy pomiędzy 8 drużynami. Niestety nie wiem, jak wygraną drużynę “przenieść” do następnego meczu. Chodzi mi o to, że gra powiedzmy a z b i wychodzi b i potem gra c z d i wychodzi c i potem gra b z c itp. Proszę o pomoc ; )
Program puchar;
uses crt;
var
nazwy: array [1..8] of string;
i:integer;
wyniki: array[1..8] of integer;
procedure WczytajDruzyny;
var i:Byte;
begin
for i:= 1 to 8 do
begin
write('Nazwa ',i,': ');
readln(nazwy[i]);
end;
end;
procedure WyswietlDruzyny;
var i:Byte;
begin
clrscr;
for i:= 1 to 8 do writeln(nazwy[i]);
end;
begin
clrscr;
WczytajDruzyny;
WyswietlDruzyny;
writeln('mecz pomiedzy: ',nazwy[1], ' a ',nazwy[2]);
Writeln('Wpisz wynik ',nazwy[1]);
readln(wyniki[1]);
Writeln('Wpisz wynik ',nazwy[2]);
readln(wyniki[2]);
if wyniki[1]>wyniki[2] then writeln('Wygraˆa druľyna: ',nazwy[1],' i przechodzi dalej!')
else if wyniki[1]= wyniki[2] then Writeln('Remis')
else writeln('Wygraˆa druľyna: ',nazwy[2],' i przechodzi dalej!');
writeln('mecz pomiedzy: ',nazwy[3], ' a ',nazwy[4]);
Writeln('Wpisz wynik ',nazwy[3]);
readln(wyniki[3]);
Writeln('Wpisz wynik ',nazwy[4]);
readln(wyniki[4]);
if wyniki[3]>wyniki[4] then writeln('Wygraˆa druľyna: ',nazwy[3],' i przechodzi dalej!')
else if wyniki[3]= wyniki[4] then Writeln('Remis')
else writeln('Wygraˆa druľyna: ',nazwy[4],' i przechodzi dalej!');
writeln('mecz pomiedzy: ',nazwy[5], ' a ',nazwy[6]);
Writeln('Wpisz wynik ',nazwy[5]);
readln(wyniki[5]);
Writeln('Wpisz wynik ',nazwy[6]);
readln(wyniki[6]);
if wyniki[5]>wyniki[6] then writeln('Wygraˆa druľyna: ',nazwy[5],' i przechodzi dalej!')
else if wyniki[5]= wyniki[6] then Writeln('Remis')
else writeln('Wygraˆa druľyna: ',nazwy[6],' i przechodzi dalej!');
writeln('mecz pomiedzy: ',nazwy[7], ' a ',nazwy[8]);
Writeln('Wpisz wynik ',nazwy[7]);
readln(wyniki[7]);
Writeln('Wpisz wynik ',nazwy[8]);
readln(wyniki[8]);
if wyniki[i]>wyniki[8] then writeln('Wygraˆa druľyna: ',nazwy[7],' i przechodzi dalej!')
else if wyniki[7]= wyniki[8] then Writeln('Remis')
else writeln('Wygraˆa druľyna: ',nazwy[8],' i przechodzi dalej!');
readkey;
end.