Нарисовать рыбу из простейших фигур - Turbo Pascal

Формулировка задачи:

Нужно было решить задание: нарисовать рыбу из простейших фигур в паскале. Сначала я решила поискать в интернете,но, увы, ничего подходящего не нашла. Пришлось делать самой. В итоге получился простенький рисунок, может кому-то понадобится
Program L7Ryba;
  uses graph,crt;
var gd,gm:integer;
  begin
  clrscr;
   gd:=detect;
  initgraph(gd,gm,'');
  begin
  SetFillStyle(1,14);
  Setbkcolor(9);
  Setcolor(1);
  SetLineStyle(0,0,3);
 Ellipse(110,170,30,30,100,30);
 Line(210,170,280,220);
 Line(210,170,280,120);
 Line(280,220,280,120);
 Line(100,200,200,210);
 Line(200,210,200,185);
 Line(50,145,100,120);
 Line(100,120,100,140);
 Setcolor(4);
 Circle(35,160,3);
 Setcolor(1);
 Line(10,170,20,168);
  readln;
  CloseGraph;
  end;
  end.


textual

Код к задаче: «Нарисовать рыбу из простейших фигур - Turbo Pascal»

uses graph;
var
  gd,gm:integer;
begin
  gd:=detect;
  initgraph(gd,gm,'');
 Setbkcolor(9);
  Setcolor(1);
  SetLineStyle(0,0,3);
  line(100,200,200,250);
  line(100,200,200,150);
  line(180,240,180,160);
  line(180,200,200,170);
  line(180,200,200,230);
  line(200,170,200,230);
  circle(110,200,3);
  readln;
  CloseGraph;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 4.154 из 5

Источник