Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 19.12.2018
Сообщений: 45
1

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

15.04.2019, 17:51. Просмотров 289. Ответов 3
Метки нет (Все метки)


Изображение во вложении.
0
Миниатюры
Вывести изображение на экран с коментариями  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.04.2019, 17:51
Ответы с готовыми решениями:

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

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

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

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

3
4264 / 2045 / 2098
Регистрация: 10.12.2014
Сообщений: 7,888
15.04.2019, 18:10 2
ПКМ на картинке.
Сохранить как…
Ну и:
Pascal
1
2
3
4
uses GraphABC;
begin
  (New Picture('ima.jpg')).Draw
end.
0
Модератор
62919 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,743
15.04.2019, 18:39 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 graphABC;
var p1,p2:array of point;
    c,r,x,y:integer;
    u:real;
begin
setwindowsize(400,400);//размер окна
centerwindow;//по центру
c:=200;//центр окна
r:=c-20;//радиус фигуры
setlength(p1,4);//выделим память под 2 полигона
setlength(p2,4);    
u:=pi/2;//начальный угол
for var i:=0 to 5 do//вычилим координаты 6 точек
 begin
  if not odd(i) then//если четная, 1 полигон
   begin
    p1[i div 2].X:=c+round(r*cos(u));
    p1[i div 2].Y:=c-round(r*sin(u));
   end
  else//если нечетная, 2 полигон
   begin
    p2[i div 2].X:=c+round(r*cos(u));
    p2[i div 2].Y:=c-round(r*sin(u));
   end;
  u:=u+pi/3;//увеличим угол на 60 градусов
 end;
p1[3]:=p1[0];//замкнем полигоны
p2[3]:=p2[0];
setpencolor(clRed);//красный цвет
setpenwidth(2);//линия толщиной 2
polygon(p1);//рисуем 2 полигона
polygon(p2);
end.
0
0 / 0 / 0
Регистрация: 19.12.2018
Сообщений: 45
15.04.2019, 18:42  [ТС] 4
Спасибо большое
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.04.2019, 18:42

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Вывести на экран монитора изображение прямоугольника
Вывести на экран монитора прямоугольник красного (red) цвета таким образом чтобы он плавно...

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

Вывести на экран изображение шахматной доски
Ввести натуральное число N и вывести на экран изображение шахматной доски NxN, где черные клетки...

Вывести на экран изображение летящей ракеты
Кто чем может.Новичок ,только учусь 4. Написать программу, выводящую на экран изображение...

Вывести на экран изображение плывущей рыбы
Написать программу, выводящую на экран изображение плывущей рыбы. Фоном может быть изображение...

Как вывести 3D изображение на экран без DX
На DirectX нет вреени и мозгов. Как вывести 3D изображение на экран без DX? Только не надо...


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

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

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