Практикум по решению задач на ЭВМ. Тарова И.Н - 30 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.
клавиатуры, окно дома при зажженном и при выключенном свете ок-
рашивается в разные цвета.
4) Построить на графическом экране простейшие геометрические фигу-
ры: точку, отрезок, круг, прямоугольник.
program pas1;
uses CRT,Graph;
var
grDriver:integer;
grMode :integer;
ErrCode :integer;
BEGIN
clrscr;
grDriver:=detect;
InitGraph(grDriver,grMode,'D:\BGI');
ErrCode:=GraphResult;
if ErrCode=grOk then
begin
SetColor(9);
Line(100,100,200,200);
Rectangle(100,120,50,50);
readln;
end;
CloseGraph;
END.
5)
Построить дом.
program pas1;
uses CRT,Graph;
var
grDriver:integer;
grMode :integer;
ErrCode :integer;
BEGIN
30
                                  Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


     клавиатуры, окно дома при зажженном и при выключенном свете ок-
     рашивается в разные цвета.

4) Построить на графическом экране простейшие геометрические фигу-
   ры: точку, отрезок, круг, прямоугольник.

     program pas1;
     uses CRT,Graph;
     var
        grDriver:integer;
        grMode :integer;
        ErrCode :integer;
     BEGIN
        clrscr;
        grDriver:=detect;
        InitGraph(grDriver,grMode,'D:\BGI');
        ErrCode:=GraphResult;
        if ErrCode=grOk then
          begin
           SetColor(9);
           Line(100,100,200,200);
           Rectangle(100,120,50,50);
           readln;
          end;
        CloseGraph;
     END.


5)




Построить дом.

     program pas1;
     uses CRT,Graph;
     var
        grDriver:integer;
        grMode :integer;
        ErrCode :integer;
     BEGIN


                                       30

Страницы