Turbo Pascal

[Пух]

1 задача, длина окружности = 2*pi*R

сорри, завтыкал. Искал площадь )

 

[Glu4it]

Язык:Паскаль
нужно сделать типа как заставку на комп, кароче объемный и цветной куб должен бегать (плавать, летать) ну кароче двигаться по экрану в случайном направлении. вот собственно и все ...
ОЧЕНЬ ПРОШУ ПОМОЧЬ, ПОЖАЛУЙСТА...ПоЖаЛуЙсТа.... умаоляю помогите неумелому...

 

[dreamer]

Язык:Паскаль
нужно сделать типа как заставку на комп, кароче объемный и цветной куб должен бегать (плавать, летать) ну кароче двигаться по экрану в случайном направлении. вот собственно и все ...
ОЧЕНЬ ПРОШУ ПОМОЧЬ, ПОЖАЛУЙСТА...ПоЖаЛуЙсТа.... умаоляю помогите неумелому...

А что в этой задаче такого важного что ты так упорно просишь ее решения?

 

[Cris]

А что в этой задаче такого важного что ты так упорно просишь ее решения?

+1

ты б зато время что просиш сам бы написал
там задачи фигня делать -
делаем 4 переменных, 1,2 - координаты какогото угла куба, 3,4 - переменны дял хранения направления движения - (-1 или 1)

var x,y,a,b:integer;
....
x:=getmaxx div 2;//делаем куб
y:=getmaxy div 2;//по середине
a:=1;//направление по Х
b:=-1;//направление по У
repeat 
delay(...);//замедление перед следуюшем показе
clear(x,y);//чтираем нарисованый куб
if (x+(длина куба)*a>=getmaxx)or(x+(длина куба)*a<=0)   //изменяем направление
 then a:=-a;                                          // при приближении
if (y+(высота куба)*b>=getmaxy)or(y+(высота куба)*b<=0)//к какой то
 then b:=-b;                                          //стенке
x:=x+(на сколько перемещать)*a;
y:=y+(на сколько перемещать)*b;
kyb(x,y);//рисуем куб;
until keypressed;

надо зделать свои процедуры для рисование и очистки куба
очистка - рисуем куб такимже цветом как и фон
рисование - рисуем куб))
куб - Bar3D(.....)
делай.... все в твоих руках)

 

[Glu4it]

А что в этой задаче такого важного что ты так упорно просишь ее решения?

мне она очень-очень нужна

 

[dreamer]

куб - Bar3D(.....)

Не смеши мои тапочки, это на куб похоже даже меньше чем я на Дженифер Лопез :razz:

 

[Cris]

Не смеши мои тапочки, это на куб похоже даже меньше чем я на Дженифер Лопез :razz:

а чем не куб?? он же не пишит что он должен врашаться, например, а так этой функции передаеш такие координаты чтоб был квадрат, и оно рисует какбы 3 Д модель
ну чем не куб)):
Bar3D(200,200,300,300,50,true);

 

[LaGoS]

Помогите решить.
Задача: Дан массив d[4,2]. Поменять местами максимальный и минимальный элементы в массиве. Элементы массива вводит пользователь. Вывести на экран массив после обмена.
Контрольный пример:
-До:
20 10
5 6
9 2
7 -4
-После:
-4 10
5 6
9 2
7 20

Заранее спасибо!

 

[Пух]

Помогите решить.
Задача: Дан массив d[4,2]. Поменять местами максимальный и минимальный элементы в массиве. Элементы массива вводит пользователь. Вывести на экран массив после обмена.
Контрольный пример:
-До:
20 10
5 6
9 2
7 -4
-После:
-4 10
5 6
9 2
7 20

Заранее спасибо!

О, Боже... Эти задачи уже десятки раз решались в этой теме... Юзай поиск..

 

[Glu4it]

+1

ты б зато время что просиш сам бы написал
там задачи фигня делать -
делаем 4 переменных, 1,2 - координаты какогото угла куба, 3,4 - переменны дял хранения направления движения - (-1 или 1)

var x,y,a,b:integer;
....
x:=getmaxx div 2;//делаем куб
y:=getmaxy div 2;//по середине
a:=1;//направление по Х
b:=-1;//направление по У
repeat 
delay(...);//замедление перед следуюшем показе
clear(x,y);//чтираем нарисованый куб
if (x+(длина куба)*a>=getmaxx)or(x+(длина куба)*a<=0)   //изменяем направление
 then a:=-a;                                          // при приближении
if (y+(высота куба)*b>=getmaxy)or(y+(высота куба)*b<=0)//к какой то
 then b:=-b;                                          //стенке
x:=x+(на сколько перемещать)*a;
y:=y+(на сколько перемещать)*b;
kyb(x,y);//рисуем куб;
until keypressed;

надо зделать свои процедуры для рисование и очистки куба
очистка - рисуем куб такимже цветом как и фон
рисование - рисуем куб))
куб - Bar3D(.....)
делай.... все в твоих руках)

если делать так то получается что заливка за кубом не успевает двигаться и по этому остается как-бы след, надо сделать эту прогу через копировать и вставить изображение(что-то типа такого)
getmem
getimage
putimage