Question

PROSZĘ O OBKOMENTOWANIE ŹRÓDŁA:

program wybory; var glosy:array[1..15000] of byte;

i:integer; x:byte;

begin randomize;

for i:=1 to 15000 do begin

x:=random(2);

glosy[i]:=x; if x=1 then begin x:=random(4);

glosy[i]:=x+1; end; end; for i:= 1 to 15000 do write

glosy[i],' '); readln;

end;

k1:=0; k2:=0; k3:=0; k4:=0; brak:=0;

for i:= 1 to 15000 do begin if glosy[i]=0 then brak:=brak+; if glosy[i]=1 then k1:=k1+1; if glosy[i]= 2 then k2:=k2+1; if glosy[i]= 3 then k3:=k3+1; if glosy[i]= 4 then k4:=k4 +1: end;

writeln('Głosowało,' k1+k2+k3+k4); writeln('Na Kandydata nr 1 głosowało,' k1); writeln(' Na Kandydata nr 2 głosowało,'k2); writeln(' Na Kandydata nr 3 glosowało,'k3); writeln('Na Kandydata nr 4 głosowało,'k4); readln; end.

Answer 1

Ten kod jest straszny, bezsensowny i z całą masą błędów!

Tutaj masz wersję napisaną po ludzku: http://ideone.com/W5XZ40

 ( z komentarzami: http://ideone.com/ODJfcF )

 

Also - dla świętego spokoju - tutaj ten kod (lecz bez formatowania, bo TinyMCE nawala):

Program Wybory;
Var Glosy : Array[1..15000] of Byte;
Wyniki: Array[0..4] of Byte;
I : Integer;
X : Byte;
Begin
Randomize;

For I := Low(Glosy) To High(Glosy) Do
Begin
X := Random(2);

Glosy[I] := X;

if (X = 1) Then
Glosy[I] := Random(4)+1;
End;

For I := Low(Glosy) To High(Glosy) Do
Write(Glosy[I], ' '); // tutaj było dodatkowo `Readln`, ale jest ono bezsensowne - podobnie jak samo wyświetlanie 15000 elementów na standardowym wyjściu.

For I := Low(Wyniki) To High(Wyniki) Do
Wyniki[I] := 0;

For I := Low(Glosy) To High(Glosy) Do
Inc(Wyniki[Glosy[I]]);

Writeln('Głosowało', Length(Glosy), ' ludzi/krasnoludków/elfów');
Writeln;

Writeln('Od glosu powstrzymalo sie ', Wyniki[0]);
For I := Low(Wyniki)+1 To High(Wyniki) Do
Writeln('Na Kandydata nr ', I, ' głosowało ', Wyniki[I]);
End.