Eugeniusz Jakubas |
Stąd można pobrać teksty źródłowe poniższych 57 programów w Pascalu pr-pascal.zip - 34 kB
3. Deska Galtona
program Deska_Galtona; uses graph,crt; var karta,tryb,n,k,i,wi,ko,ilO : integer; t:array[0..40] of integer; begin karta:=vga; tryb:=vgaHi; initGraph(karta,tryb,''); randomize; bar(0,475,639,479); for n:=0 to 40 do for k:=1 to n+2 do fillEllipse(k*14+287-n*7,n*5+10,1,1); for i:=1 to 400 do begin ko:=308; wi:=10; fillEllipse(ko,wi,2,2); for n:=1 to 40 do begin setColor(black); setFillStyle(1,black); fillEllipse(ko,wi,2,2); if random<0.5 then ko:=ko-7 else ko:=ko+7; wi:=wi+5; setColor(lightRed); setFillStyle(1,lightRed); fillEllipse(ko,wi,2,2); delay(50); end; setColor(black); setFillStyle(1,black); fillEllipse(ko,wi,2,2); ilO:=(ko-28) div 14; t[ilO]:=t[ilO]+1; setColor(lightRed); setFillStyle(1,lightRed); fillEllipse(ko,477-t[ilO]*4,2,2); end; readLn; closeGraph; end. |