Нужно построить диаграмму(((

[grooveone]

Прошу помощи!Нужно построить диаграмму ганга....как делать вообще не понял((Просто сказали любую диаграмму ганга в паскале...
Заранее спасибо!)

[Vanta11a]

Ну скорее всего не "ганга", а Ганта.

Наработки? Что не получается?

[grooveone]

Сказали написать диаграмму ганга и по быстрому удалось это вот скопировать себе,правда там текст не отобразился нормально.Помогите довести её до ума((

Program Gang2;
Uses CRT;
Const M=5;//ª®««¨ç¥á⢮ ¯à®æ¥áᮢ
Var i,j,summa:integer;
P:array [1..M] of integer;//¢à¥¬ï à ¡®âë ¯à®æ¥áᮢ
WT:array [1..M]of integer;//¢à¥¬ï ®¦¨¤ *¨ï ¯à®æ¥áᮢ
WTcp:real;//á।*¥¥ ¢à¥¬ï ®¦¨¤ *¨ï á¨á⥬ë
Begin
ClrScr;
Randomize;
Textcolor(17);
For i:=1 to M do P[i]:=3+random(30);//§ ¯®«*¥*¨¥ ¢à¥¬¥*¨ à ¡®âë ¯à®æ¥áᮢ
For i:=1 to M do write('P',i,'=', P[i],' ');
Writeln;
For i:=1 to M do
Begin
textcolor(i+7);
For j:=1 to P[i] do Write('±');
Write('±');
end;
Writeln;

//¢ëç¨á«¥*¨¥ ¢à¥¬¥*¨ ®¦¨¤ *¨ï ¯à®æ¥áᮢ
Wt[1]:=0;
For i:=1 to M do Wt[i]:=Wt[i-1]+p[i-1];
For i:=1 to M do
Begin
Gotoxy(Wt[i]+2,3);Write(Wt[i]);
end;
Writeln;
Summa:=0;
For i:=1 to M do summa:=summa+WT[i];
WTcp :=summa/M;
Writeln('WTcp=',WTcp:5:2);

ReadKey;
end.

[ZX Spectrum-128]

For i:=1 to M do Wt[i]:=Wt[i-1]+p[i-1];

Вот здесь программа должна умереть с ошибкой. Выход за пределы границ массива.