Albinnabel

13.04.2023 12:32

Информатика

Есть ответ 👍

кто-нибудь, нужно написать программу в Паскале ABC, и сделать вот такой кораблик кто-нибудь, нужно написать программу в Паскале ABC, и сделать вот такой кораблик. ">

237

434

Посмотреть ответы 2

Ответы на вопрос:

kurstak77

Информатика

4,5(56 оценок)

Точно не знаю, но попробуй эти: (не моё)

№1

1 Program ship;

2 Uses crt,graph;

3 Var gd,gm: integer;

4 Begin

5 gd:=detect;

6 Initgraph(gd,gm,'');

7 Line(100,300,400,300);

8 Line(150,380,350,380);

9 Line(100,300,150,380);

10 Line(400,300,350,380);

11 Line(250,300,250,180);

12 Line(250,180,340,230);

13 Line(340,230,250,280);

14 Setfillstyle(9,blue);

15 Floodfill(160,340,15);

16 Setfillstyle(3,lightgreen);

17 Floodfill(270,210,15);

18 Readkey;

19 Closegraph;

20 End.

№2

1 uses crt,graph;

2 Var gd,gm:integer;

3 begin

4 clrscr;

5 detectgraph (gd,gm);

6 initgraph (gd,gm,'d:\tpascal\bgi');

7 {мачты}

8 setfillstyle(1,6);

9 bar (240,120,250,300);

10 bar (310,60,320,300);

11 {корпус}

12 setfillstyle(1,2);

13 bar (240,300,360,360);

14 bar (360,270,495,280);

15 bar (360,280,440,300);

16 bar (360,300,420,315);

17 bar (360,315,390,330);

18 bar (360,330,370,340);

19 bar (220,270,240,330);

20 bar (200,255,220,315);

21 bar (165,285,200,300);

22 bar(120,250,200,285);

23 {окна}

24 setfillstyle(1,14);

25 bar (125,255,153,273);

26 bar (165,255,190,273);

27 {левый парус}

28 setfillstyle(1,9);

29 bar (233,123,240,135);

30 bar (223,135,240,165);

31 bar (210,165,240,180);

32 bar (195,180,240,225);

33 bar (180,225,240,240);

34 {вымпел}

35 setfillstyle(1,8);

36 bar (310,50,360,60);

37 bar (360,60,420,70);

38 {средина-верх}

39 setfillstyle(1,12);

40 bar (270,80,350,90);

41 bar (285,90,360,105);

42 bar (270,105,350,110);

43 {середина-середина}

44 setfillstyle(1,10);

45 bar (270,135,360,145);

46 bar (285,145,375,165);

47 bar (270,165,360,175);

48 {середина-низ}

49 setfillstyle(1,9);

50 bar (270,195,398,205);

51 bar (300,205,420,240);

52 bar (270,240,398,250);

53 {правый парус}

54 setfillstyle(1,12);

55 bar (405,120,420,150);

56 bar (420,140,450,150);

57 bar (420,150,435,180);

58 bar (425,150,455,165);

59 bar (435,165,480,180);

60 bar (435,180,445,250);

61 bar (440,180,485,195);

62 bar (440,195,495,225);

63 bar (440,195,470,240);

64 bar (470,240,475,250);

65 Readln

66 end.

krechetnickova

Информатика

4,7(1 оценок)

Var xa,ya,xb,yb,ab: real; beginwrite('xa, ya: '); readln(xa,ya); write('xb,yb: '); readln(xb,yb); ab: =sqrt(sqr(xb-xa)+sqr(yb-ya)); writeln('|ab| = ',ab: 5: 2); end.пример: xa, ya: 2 1xb,yb: 10 7|ab| = 10.00

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

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