Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / MOD / 1
.PAS 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.
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.