Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Работа с предложением. Задание таково: Ввести предложение содержащее до 15ти слов, и вывести те слова которые стоят на четных местах, т.е. второе, четвертое, шестое... За ранее благодарен. https://www.cyberforum.ru/ pascal/ thread39712.html Pascal Заполнить матрицу [10][10] по образцу
Помогите, получить матрицу 10x10, по этому образцу Вот образец: .1....2...3......7....8....9....10 11..12..13....17..18..19....20 21..22..24....27..28..29....30...
Pascal ФАЙЛЫ Багаж пассажира характеризуется количеством вещей и их общим весом. Дан файл bagazh, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись... https://www.cyberforum.ru/ pascal/ thread39700.html Pascal Метод Горнера https://www.cyberforum.ru/ pascal/ thread39679.html
Народ помогите решить задаччу я просто пропустил эту тему а сам нефига не понял !помогите плизз!!!!! Вычислить значения многочлена и его первую производную, используя формулу Горнера...
Pascal Такой вопрос. Матрица*вектор
Нашел в интернете алгоритм решения на С++, но с этим языком пока еще не знаком. Нашел Форум посмотрел вроде не нашел такой задачи, если все же пропустил, буду благодарен за ссылку. Благодаря форуму...
Pascal Описать функцию cont(s)... https://www.cyberforum.ru/ pascal/ thread39671.html
Задача: В разделах Type и Var имеются следующие описания: Type Country=(Austria, Ghana, Italy, Peru, USA, Sweden, Norway, Colombia, Venezuela, Algeria, Somali); Continent=(America, Africa, Europe);...
Pascal Ответ: Записи в Pascal Помогите пожалйста решить задачу... По данным сведениям об учениках класса определить среднюю массу мальчиков и средний рост девочек. кто из учеников класса самый высокий? https://www.cyberforum.ru/ pascal/ thread39662.html Pascal повторения
Определить и вывести на экран номера позиции и количество повтрорений заданного символа в строке, введенной с клавы. PS: напмшмте полностью решение
Pascal Массивы: Помогите решить задачи плиззззззззз! 1. Ввести два массива аi и bi по 10 чисел в каждом. Вывести на экран массив, каждый элемент которого равен сумме модулей соответствующих элементов исходных... https://www.cyberforum.ru/ pascal/ thread39636.html Pascal шифровка https://www.cyberforum.ru/ pascal/ thread39635.html
Зашифровать введенную с клавы строку, заменой исходных символов на символы с кодом большим на 3 единицы. Провести дешифровку.
Pascal Счет в банке
Вы открыли счет в банке. банк ежедневно начисляет процент от вклада, увеличивая сумму вклада. Написать прогу, которая рассчитывает величину вклада и выводит эту величину для каждого года до тех...
Pascal Массивы, файлы. https://www.cyberforum.ru/ pascal/ thread39495.html
Задание 9 Даны массивы Дорога №1 H1,....,H20 цифры участков; L1,.....L20 протяженности участков; дорога №2 HH1,.....,HH20 цифры участков ; LL1,....LL20 протяженность участков; Вывести списки...
16 / 16 / 16
Регистрация: 05.06.2009
Сообщений: 47
0

Как сделать заливку шара - Pascal - Ответ 190547

11.06.2009, 21:45. Показов 1661. Ответов 4
Метки (Все метки)

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
Uses Graph,crt;
 
Var grDriver : Integer;
      grMode : Integer;
     ErrCode : Integer;
     {----------------}
     x,y:integer;
     i,k,l:integer;
     x1,x2,y1,y2:integer;
     a,b,r:integer;
     f:boolean;
Begin
  grDriver:=Detect;
  InitGraph(grDriver, grMode, 'e:\tp\bgi');
  ErrCode:=GraphResult;
  x:=getmaxx div 2;
  y:=getmaxy div 2;
  a:=random(4);
  b:=random(4);
  a:=0;
  b:=0;
  r:=500;
  x1:=getmaxx div 2;
  y1:=getmaxy div 2;
  while not keypressed do
  begin
  f:=true;
    if (a=0) and (b=0) then
                       while (f<>false) do
                       begin
                         if (x1-31<0) or (y1-31<0) or (x1-30>getmaxx) or (y1-30>getmaxy)
                         then begin f:=false;break;end;
                         if ((x1+30)=getmaxx) or ((y1+30)=getmaxy) then begin f:=false;break;end;
                         x1:=x1+1;
                         y1:=y1+1;
                         delay(r);
                         circle(x1,y1,30);
                         delay(r);
                         cleardevice;
                       end;
    if (a=1) and (b=0) then
                       while (f<>false) do
                       begin
                       if (x1+30<0) or (y1+30<0) or (x1-30>getmaxx) or (y1-30>getmaxy)
                         then begin f:=false;break;end;
                         if ((y1+30)=getmaxy) then begin f:=false;break;end;
                         y1:=y1+1;
                         delay(r);
                         circle(x1,y1,30);
                         delay(r);
                         cleardevice;
                       end;
    if (a=0) and (b=1) then
                       while (f<>false) do
                       begin
                       if (x1+30<0) or (y1+30<0) or (x1-30>getmaxx) or (y1-30>getmaxy)
                         then begin f:=false;break;end;
                         if ((x1+30)=getmaxx) then begin f:=false;break; end;
                         x1:=x1+1;
                         delay(r);
                         circle(x1,y1,30);
                         delay(r);
                         cleardevice;
                       end;
   if (a=1) and (b=1) then
                       while (f<>false) do
                       begin
                       if (x1-30=0) or (y1-30=0)
                         then begin f:=false;break;end;
                         if ((y1-30)=0) or ((y1-30)=0) then begin f:=false;break; end;
                         y1:=y1-1;
                         x1:=x1-1;
                         delay(r);
                         circle(x1,y1,30);
                         delay(r);
                         cleardevice;
                       end;
   if (a=2) and (b=1) then
                       while (f<>false) do
                       begin
                       if (x1+30<0) or (y1+30<0) or (x1-30>getmaxx) or (y1-30>getmaxy)
                         then begin f:=false;break;end;
                         if ((y1-30)=0) then begin f:=false;break; end;
                         y1:=y1-1;
                         delay(r);
                         circle(x1,y1,30);
                         delay(r);
                         cleardevice;
                       end;
   if (a=1) and (b=2) then
                       while (f<>false) do
                       begin
                       if (x1+30<0) or (y1+30<0) or (x1-30>getmaxx) or (y1-30>getmaxy)
                         then begin f:=false;break;end;
                         if ((x1-30)=0)  then begin f:=false;break; end;
                         x1:=x1-1;
                         delay(r);
                         circle(x1,y1,30);
                         delay(r);
                         cleardevice;
                       end;
   if (a=3) and (b=2) then
                       while (f<>false) do
                       begin
                       if (x1+30<0) or (y1+30<0) or (x1-30>getmaxx) or (y1-30>getmaxy)
                         then begin f:=false;break;end;
                         if ((x1-30)=0) or ((y1+30)=getmaxy) then begin f:=false;break;  end;
                         y1:=y1+1;
                         x1:=x1-1;
                         delay(r);
                         circle(x1,y1,30);
                         delay(r);
                         cleardevice;
                       end;
   if (a=2) and (b=3) then
                       while (f<>false) do
                       begin
                       if (x1+30<0) or (y1+30<0) or (x1-30>getmaxx) or (y1-30>getmaxy)
                         then begin f:=false;break;end;
                         if ((x1+30)=getmaxx) or ((y1-30)=0) then begin f:=false;break;  end;
                         y1:=y1-1;
                         x1:=x1+1;
                         delay(r);
                         circle(x1,y1,30);
                         delay(r);
                         cleardevice;
                       end;
 
  a:=random(4);
  b:=random(4);
  end;
  closegraph;
End.
Добавлено через 43 секунды
как сделать заливку шара,помогите пожалуйста?

Вернуться к обсуждению:
Как сделать заливку шара Pascal
0

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

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

Составить программу, которая рисует домик. Радиус ввести с клавиатуры.Сделать заливку фигур
program PROG2; uses GraphABC; const w=5; begin SetWindowSize(256,256);...

Модуль Graph, как сделать заливку фигуры
помогите залить фигуру созданую из 4 линий: line(120,50,180,50); line(180,50,180,60);...

Как сделать так, чтобы тело двигалось по линии шара?
Как сделать так, чтобы тело двигалось по линии шара? плиз

Как сделать заливку прямоугольника?
Private Sub frm3DFigure_Paint(ByVal sender As Object, ByVal e As...

4
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.06.2009, 21:45

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

Как сделать заливку области цветом?
Добрый день, подскажите пожалуйста как можно осуществить сабж? Например, имеется цветочек (как в...

Как сделать градиентную заливку формы
Доброго. Старики, которые помнят vb6, наверняка знали такую штуку Dim lY As Long Dim...

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

Как сделать заливку фигуры по клику мыши?
Добрый день) Мне надо сделать заливку фигур по клику мыши. Смотрела алгоритмы заливки, но так...

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