Головна | Реєстрація | Вхід | RSSЧетвер, 03.28.2024, 10:35 PM

Довідник для учнів та студентів

Меню сайту
Пошук
Наше опитування
Чи допоміг вам сайт знайти те, що ви шукали?
Всього відповідей: 547
Що нового?
Форма входу
Міні-чат

Графічний редактор

Програма графічний редактор, що дозволяє малювати в Паскаль за допомогою таких функціональних клавіш:
  • вгору- вгору суцільною лінією
  • вниз - вниз суцільною лінією
  • вліво - вліво суцільною лінією
  • вправо - вправо суцільною лінією
  • d - вправо пунктирною лінією
  • a - вліво пунктирною лінією
  • w - вгору пунктирною лінією
  • s - вниз пунктирною лінією
  • f - вліво та вгору суцільною лінією
  • g - вправо та вгору суцільною лінією
  • v - вліво та вниз суцільною лінією
  • b - вправо та вниз  суцільною лінією
  • h - вліво та вгору пунктирною лінією
  • j - вправо та вгору пунктирною лінією
  • n - вліво та вниз пунктирною лінією
  • m - вправо та вниз  пунктирною лінією
  • 3-9 - зміна кольорів


Uses graph,crt;
Var dv,mv,x,y,i:integer;
c:char;

Begin
  dv:=detect;
  initgraph(dv,mv,'');
  cleardevice;
  x:=320;
  y:=240;
  i:=2;
  while c<>#13 do
  begin
  c:=readkey;
  case c of
  #72: y:=y-1;
  #80: y:=y+1;
  #75: x:=x-1;
  #77: x:=x+1;
  'd': begin x:=x+10; end;
  'a': begin x:=x-10; end;
  'w': begin y:=y-10; end;
  's': begin y:=y+10; end;

  'f': begin x:=x-1; y:=y-1; end;
  'g': begin x:=x+1; y:=y-1; end;
  'v': begin x:=x-1; y:=y+1; end;
  'b': begin x:=x+1; y:=y+1; end;

  'h': begin x:=x-10; y:=y-10; end;
  'j': begin x:=x+10; y:=y-10; end;
  'n': begin x:=x-10; y:=y+10; end;
  'm': begin x:=x+10; y:=y+10; end;


  '3': begin i:=3; end;
  '2': begin i:=2; end;
  '4': begin i:=4; end;
  '5': begin i:=5; end;
  '6': begin i:=6; end;
  '7': begin i:=7; end;
  '8': begin i:=8; end;
  '9': begin i:=9; end;


  end;
  putpixel(x,y,i);
  end;
    closegraph;
end.
 Яндекс.Метрика
Статистика

Онлайн всього: 1
Гостей: 1
Користувачів: 0
Календар
«  Березень 2024  »
ПнВтСрЧтПтСбНд
    123
45678910
11121314151617
18192021222324
25262728293031
Архів записів
Друзі сайту

Guide-for-students © 2024
Створити безкоштовний сайт на uCoz