Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Larochka
0 / 0 / 0
Регистрация: 16.01.2015
Сообщений: 7
1

Сформировать на экране заданное изображение

10.03.2015, 20:05. Просмотров 865. Ответов 1
Метки нет (Все метки)

Написать программу на Паскале,которая формирует на экране изображение.
0
Миниатюры
Сформировать на экране заданное изображение  
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.03.2015, 20:05
Ответы с готовыми решениями:

сформировать на экране меню, состоящее из 3 пунктов
Сформировать на экране меню, состоящее из следующих пунктов: 1. Свободное движение объекта 2....

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

Изображение на экране ПК динамической фигуры.
Помогите решить очень такое задание Составить программу изображения на экране ПК динамической...

изображение на экране ПК динамической фигуры.
Составить программу изображения на экране ПК динамической фигуры. Скорость движения фигуры на...

Реализовать интерфейс, обеспечивающий заданное расположение и назначение окон на экране
Задание: используя технологию структурного программирования, разработать программу решения...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4746 / 3398 / 4007
Регистрация: 05.06.2014
Сообщений: 16,948
16.03.2015, 09:12 2
Лучший ответ Сообщение было отмечено Larochka как решение

Решение

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
34
35
36
37
38
39
40
41
42
43
44
45
uses
  graph;
var
  gd,gm : integer;
  PathToDriver : string;
  i,k,x,y,x1,y1:integer;
  dx1,dy1,dx,dy:integer;
begin
  gd:=detect; { highest possible resolution }
  gm:=0; { not needed, auto detection }
  PathToDriver:='C:\BP\BGI'; { path to BGI fonts,
                                 drivers aren't needed }
  InitGraph(gd,gm,PathToDriver);
  if GraphResult<>grok then
    halt;
  { whatever you need }
  x1:=GetMaxX-20;
  y1:=GetMaxY-20;
  x:=(GetmaxX-20) div 2;
  y:=20;
 
  k:=19;
  dx:=(x1-x) div k;
  dy:=(y1-y) div k;
  setcolor(lightred);
  for i:=1 to k div 2 +1 do
    begin
      if i=1 then
        setcolor(black)
      else
        setcolor(lightred);
      line(x+dx*(i-1),y,x+(dx div 4)*i,y1);
      line(x-dx*(i-1),y,x-(dx div 4)*i,y1);
    end;
  line(x+dx*(k div 2),y,x+1,y);
  line(x-dx*(k div 2),y,x+1,y);
 
  line(x+(dx*(k div 2)) div 4+1,y1,x,y1);
  line(x-(dx*(k div 2)) div 4-1,y1,x,y1);
  setfillstyle(SolidFill,cyan);
  FloodFill(x,y+2,lightred);
 
  readln;
  CloseGraph; { restores the old graphics mode }
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.03.2015, 09:12

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

Рекурсии. Написать программу, строящую на экране изображение
Рекурсии. Написать программу, строящую на экране изображение (&quot;треугольник Серпинского&quot;)....

Получить на экране изображение действующих электронных часов, показывающих текущее время
3) Получить на экране изображение действующих электронных часов, показывающих текущее время....


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

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

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