18.06.2019, 13:14 [+3 UTC]
в нашей команде: 3 711 чел. | участники онлайн: 11 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.77 (31.05.2019)
JS-v.1.34 | CSS-v.3.35

Общие новости:
28.04.2019, 09:13

Форум:
18.06.2019, 08:32

Последний вопрос:
17.06.2019, 15:06
Всего: 149828

Последний ответ:
18.06.2019, 12:04
Всего: 258619

Последняя рассылка:
17.06.2019, 20:45

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
05.02.2010, 10:07 »
Сурыев Назар
Большое спасибо Вам. этот тот результат который мне и нужен был. [вопрос № 176463, ответ № 259202]
13.12.2010, 15:21 »
Савенков М.В.
Хорошо и подробно все расписано + быстро ответили. Мне понравилось smile [вопрос № 181260, ответ № 264702]
Наши встречи:
ID: 784

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Лучшие эксперты в этом разделе

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 240
puporev
Статус: Профессионал
Рейтинг: 120
zdwork
Статус: 2-й класс
Рейтинг: 120

Перейти к консультации №:
 

Консультация онлайн # 195690
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: mustang289 (Посетитель)
Отправлена: 21.05.2019, 23:27
Поступило ответов: 1

скачать файл Listing_sharik.doc [47.5 кб]Здравствуйте! Прошу помощи в следующем вопросе:
задание Построить движение шарика по следующей траектории
код почему не получается где ошибки?
Листинг:

Код (Pascal) :: выделить код
program Sharik;
uses crt,graph; 

var
 x_h,y_h : integer; //Объявляем переменные координат шара

{ инициализация графического режима
  VGA, режим VGAHI  640 x 480       }
procedure Graph_init;
var
   d,r,err : integer; //Объявляем переменные графического драйвера, 
 // графического режима, ошибки
begin
 d := VGA; r := VGAHI;
 InitGraph(d,r,'');
 err := GraphResult; //Проверяем результат последней операции с графикой 
 if (err <> 0) then  //Не ноль означает ошибку!
  begin              // Сообщение об ошибке и досрочный выход из программы 
   writeln('Ошибка в инициализации графики!!!');
   delay(1000);
   halt;
  end;
 ClearDevice;
end; 
{ рисование шара синим цветом }
procedure Shar_blue;
begin
 setcolor(1);  //Выбираем текущий цвет 
 circle(x_h,y_h,10); //Рисуем окружность радиусом 10
 SetFillStyle(1,1); // Устанавливаем стиль (тип и цвет) заполнения шара         
 FloodFill(x_h,y_h,1);// Заполняем шар цветом, используя текущий стиль
end;

{ рисование следа шара  }
procedure Shar_fon;
begin
 setcolor(0); //Выбираем цвет следа шара
 circle(x_h,y_h,10); //Рисуем окружность радиусом 10
 SetFillStyle(1,0); // Устанавливаем стиль (тип и цвет) заполнения следа шара
 FloodFill(x_h,y_h,0);// Заполняем след шара цветом, используя текущий стиль
end;

{ перемещение шарика }
procedure Move;
var
 i,k : integer; // Объявляем переменные

begin
 for k := 1 to 3 do // Цикл кол-ва «ступеней»
  begin
   for i := 1 to 50 do // Цикл перемещения по оси Х
    begin
   Shar_blue; // Вызов процедуры
     delay(10);// Задержка
     Shar_fon; // Вызов процедуры
     delay(10); // Задержка
     x_h := x_h - 1; // Смещаем шар на 1 влево
    end; //выход из цикла

   for i := 1 to 50 do // Цикл перемещения по оси Y
    begin
     Shar_blue; // Вызов процедуры
     delay(5);  // Задержка
     Shar_fon; // Вызов процедуры
     delay(5); // Задержка
     y_h := y_h + 1; // Смещаем шар на 1 вниз
    end; //выход из цикла
  end; 
end;

begin
 x_h := 600; // Устанавливаем координаты оси Х
 y_h := 50;  // Устанавливаем координаты оси Y
 Graph_init; // Запускаем графический режим
 setcolor(3); // Выбираем цвет фона
 SetFillStyle(1,3); // Устанавливаем стиль (тип и цвет) заполнения фона
 FloodFill(0,0,3); //Заполняем фон
 Move; // Запускаем процедуру перемещения шарика
 repeat
 until keypressed; // Ожидание нажатия любой клавиши
 CloseGraph; // Выход из графического режима
end. // Завершение программы

Последнее редактирование 23.05.2019, 09:36 Зенченко Константин Николаевич (Старший модератор)

Состояние: Консультация закрыта

Ответ # 278221 от puporev (Профессионал)

Здравствуйте, mustang289!
Думаю у Вас здесь те же проблемы что и в предыдущей консультации (№ 195689). Там приложены недостающие у Вас файлы модулей. Приведенный код рабочий.


Консультировал: puporev (Профессионал)
Дата отправки: 26.05.2019, 07:49

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 195690
puporev
Профессионал

ID: 401888

# 1

= общий = | 22.05.2019, 10:02 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
mustang289:

Если Вас устраивает этот код, а он рабочий, учтите замечания из консультации 159689.

 

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.17024 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.77 от 31.05.2019
Версия JS: 1.34 | Версия CSS: 3.35