Скачиваний:
283
Добавлен:
04.03.2014
Размер:
567 б
Скачать
Program ura;
Uses graph;
const
Gray50 : FillPatternType = ($AA, $55, $AA,
$55, $AA, $55, $AA, $55);
var Driver, mode, error:integer;
begin
Driver:=Detect;
Initgraph(Driver, Mode, '');
Error:=Graphresult;
if error<>grok{0} then
begin
writeln(grapherrormsg(error));
end
else
begin

SetColor(2);
SetFillStyle(7, 8);
bar3d(100, 50, 200, 400, 40, topon);

readln;
restorecrtmode;
writeln('x: ', getmaxX);
writeln('y: ', getmaxy);
readln;
setgraphmode(getgraphmode);
closegraph
end;
end.
end.
Соседние файлы в папке MOD