|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC759 "Piccoline" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC759 "Piccoline" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 731 (0x2db)
Types: TextFile
Names: »FIGUR9.PAS«
└─⟦d4ddf50a0⟧ Bits:30004478 CPI-graf 2.5 til Piccoline/Partner
└─⟦this⟧ »FIGUR9.PAS«
PROGRAM figur9;
uses cpigraf;
VAR
xykoor: ARRAY (.1970..1980.) OF REAL;
x: INTEGER;
BEGIN
xykoor(.1970.):=200;
xykoor(.1971.):=220;
xykoor(.1972.):=260;
xykoor(.1973.):=350;
xykoor(.1974.):=399;
xykoor(.1975.):=500;
xykoor(.1976.):=567.1;
xykoor(.1977.):=702.6;
xykoor(.1978.):=643;
xykoor(.1979.):=876;
xykoor(.1980.):=978;
GraphicScreen(IBM_high);
SetViewportHeader(WholeScreen,
'Et eksempel p▶86◀ et diagram tegnet med DrawAxis');
SetWindow(WholeScreen,1970,1980,200,1000);
SelectViewport(WholeScreen);
GraphMode;
DrawAxis(1,100,true);
MoveTo(1970,xykoor(.1970.));
FOR x:=1971 TO 1980 DO
DrawTo(x,xykoor(.x.));
ReadChar;
TextMode;
END.
«eof»