Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
2 / 2 / 0
Регистрация: 16.10.2017
Сообщений: 123
1

Вывести на экран изображение лодки с парусами

26.02.2018, 13:51. Показов 1498. Ответов 7

Вывести на экран изображение лодки с парусами .
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.02.2018, 13:51
Ответы с готовыми решениями:

Анимация: движущееся изображение лодки по реке
Добрый день, господа программисты! Возникла у меня сложность, а именно такая: построить движущееся...

Найти скорость лодки после скачка человека вперед по направлению лодки
1. Лодка 240кг, в ней человек 60кг. скорость лодки 2м/с, человек прыгнул с лодки в горизонтальном...

Две лодки идут параллельными курсами, после того, как лодки поравняюся, скорости меняются. Определить заданную величину
Не могу разобраться с условием задачи. Задача на первый взгляд элементарная, но строчка: "из каждой...

Вывести изображение на экран (ручками)
Есть например картинка не важно в каком формате (самые легкие для считывание это наверно tga png...

7
Модератор
63864 / 47354 / 32649
Регистрация: 18.05.2008
Сообщений: 114,871
26.02.2018, 15:47 2
Цитата Сообщение от ander2014638 Посмотреть сообщение
с парусами
И сколько парусов у лодки?
0
2 / 2 / 0
Регистрация: 16.10.2017
Сообщений: 123
26.02.2018, 16:06  [ТС] 3
ну думаю два хватит
0
Модератор
63864 / 47354 / 32649
Регистрация: 18.05.2008
Сообщений: 114,871
26.02.2018, 16:50 4
На 3-
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses graph;
var x,y:integer;
    p:array[1..5] of pointtype;
begin
initgraph(x,y,'');
p[1].x:=100;p[1].y:=310;
p[2].x:=540;p[2].y:=280;
p[3].x:=500;p[3].y:=380;
p[4].x:=140;p[4].y:=380;
p[5]:=p[1];
setbkcolor(9);
setcolor(6);
setfillstyle(1,6);
fillpoly(5,p);
bar(285,20,295,300);
p[1].x:=100;p[1].y:=290;
p[2].x:=285;p[2].y:=20;
p[3].x:=285;p[3].y:=270;
p[4]:=p[1];
setcolor(15);
setfillstyle(1,15);
fillpoly(4,p);
p[1].x:=295;p[1].y:=20;
p[2].x:=600;p[2].y:=240;
p[3].x:=400;p[3].y:=260;
p[4]:=p[1];
fillpoly(4,p);
setcolor(6);
setlinestyle(0,0,3);
line(540,280,540,250);
line(600,240,400,260);
readln
end.
0
2 / 2 / 0
Регистрация: 16.10.2017
Сообщений: 123
26.02.2018, 18:54  [ТС] 5
я извиняюсь но можно это сделать в обычном Pascal?
0
Модератор
63864 / 47354 / 32649
Регистрация: 18.05.2008
Сообщений: 114,871
26.02.2018, 20:02 6
А что значит по Вашему обычный Паскаль? Тема в разделе Турбо Паскаль на нем и написано.
0
2 / 2 / 0
Регистрация: 16.10.2017
Сообщений: 123
26.02.2018, 20:52  [ТС] 7
PascalABC Писал с телефона и не увидел извините за это, срочно нужно до завтра

Добавлено через 25 минут
Помогите с лодкой)
0
Модератор
63864 / 47354 / 32649
Регистрация: 18.05.2008
Сообщений: 114,871
27.02.2018, 09:09 8
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Простой АВС.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses graphABC;
type point=record
           x,y:integer;
           end;
var p:array[1..5] of point;
begin
p[1].x:=100;p[1].y:=310;
p[2].x:=540;p[2].y:=280;
p[3].x:=500;p[3].y:=380;
p[4].x:=140;p[4].y:=380;
p[5]:=p[1];
clearwindow(clBlue);
setpencolor(clBrown);
setbrushcolor(clBrown);
polygon(p,5);
rectangle(285,20,295,300);
p[1].x:=100;p[1].y:=290;
p[2].x:=285;p[2].y:=20;
p[3].x:=285;p[3].y:=270;
p[4]:=p[1];
setpencolor(clWhite);
setbrushcolor(clWhite);
polygon(p,4);
p[1].x:=295;p[1].y:=20;
p[2].x:=600;p[2].y:=240;
p[3].x:=400;p[3].y:=260;
p[4]:=p[1];
polygon(p,4);
setpencolor(clBrown);
setpenwidth(5);
line(540,280,540,250);
line(600,240,400,260);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.02.2018, 09:09

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Как вывести изображение на экран
Здравствуйте! Есть стандартная картинка и я ее пытаюсь вывести следующим образом: Image i =...

Вывести на экран изображение веера
Вывести на экран изображение веера, складыванием и раскладыванием которого можно управлять: А) с...

Вывести изображение на экран с коментариями
Изображение во вложении.

Вывести изображение на экран в SDL2
мне нужно вывести изображение на экран в SDL2. Исходников нет т.к. ничего не смог найти на SDL2, а...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.