Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Nikalaich007
1

Изобразить движение нарисованного объекта

03.06.2012, 10:41. Просмотров 924. Ответов 2
Метки нет (Все метки)

помогите с заданиями пожалуйста!!! очень надо. заранее спасибо!
Вложения
Тип файла: docx Документ Microsoft Word (2).docx (21.0 Кб, 19 просмотров)
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.06.2012, 10:41
Ответы с готовыми решениями:

Перемещение нарисованного объекта мышью
ребят нужна помощь, нужна самая простая прога чтобы двигать например круг мышкой

Возможно ли сделать движение зрачков, реагирующее на движение какого-либо объекта
Вообщем благодаря модеру удалось разукрасить картинку,за что ему спасибо. Нужна анимация для нее....

Изобразить движение круга
Надо простую программу,например движение круга в Турбо паскаль ,а не в ABC. For I:=1 to 200 do...

Изобразить движение парашютиста
Вывести на экран фигуру согласно варианту задания (Рисунок 2). Обеспечить ее перемещение по экрану...

2
Модератор
62193 / 46497 / 32060
Регистрация: 18.05.2008
Сообщений: 112,414
03.06.2012, 11:02 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Сортировка подсчетом.

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
uses crt;
const nmax=100;
var a,b:array[1..nmax] of integer;
    n,i,j,k:integer;
    f:boolean;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i],' ');
 end;
writeln;
for i:=1 to n do
b[i]:=-1;
for i:=1 to n do
 begin
  k:=0;
  for j:=1 to n do
  if a[j]<a[i] then k:=k+1;
  b[k+1]:=a[i];
 end;
for i:=2 to n do
if b[i]=-1 then b[i]:=b[i-1];
writeln('Отсортированный массив:');
for i:=1 to n do
write(b[i],' ');
readln
end.
2
Nikalaich007
03.06.2012, 12:31 3
ОГРОМЕННОЕ СПАСИБО!!!

Добавлено через 1 час 16 минут
помогите пожалуйста с первым заданием!!!
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.06.2012, 12:31

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

Изобразить одновременное движение автомобилей
я ещё новичёк в паскале (мне надо сделать с помощью модуля граф в паскале анимацию) автогонку...

Движение объекта
Написать программу, чтобы командами с клавиатуры можно было поворачивать фигуры на 90º и...

Движение объекта
Разработать программу, демонстрирующую вращение отрезка относительно точки, делящей отрезок в...

Движение объекта, с параметрами
Program moveobbject6; Uses CRT; Var X, Y, dX, dY: Integer; Ch: Char; Begin ClrScr; X...


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

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

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