Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 08.04.2018, 17:47   #1
Aлена
 
Регистрация: 25.12.2017
Сообщений: 9
Репутация: 10
По умолчанию Паскаль графика

Написала программу где нарисованный объект движется по прямой траектории. Препод задал написать прогу, где траектория будет ввиде линии(диагонали), и паровоз будет по ней двигаться. Подскажите,что надо дополнить?
Код:

program clock;
uses graphABC;
var xx,yy,d,m,x,y,x1,y1,i:integer;
    a,b:integer;al:real;
begin    
  x:=20; y:=400;
  
  //x:=windowwidth div 2 ;
 // y:=windowheight div 2;

  lockdrawing;
  while x<500 do
  begin
  ClearWindow; 
  x:=x+2; 
  setpencolor(clred);
  setbrushcolor(clblue);
  circle(x,y,20);   
  circle(x+50,y,20);
  setbrushcolor(clgreen);
  Rectangle(x-30,y-20,x+80,y-50); 
  DrawRectangle(x+50,y-50,x+80,y-90); 
  FloodFill(x+52,y-55,clred);   
  setbrushcolor(clyellow);
  Pie(x+5,y-50,30,0,180);    
  sleep(10);
  redraw;
  end;
  while x>50 do
  begin
  ClearWindow; 
  x:=x-2; 
  setpencolor(clred);
  setbrushcolor(clblue);
  circle(x,y,20);    //  2 колеса
  circle(x+50,y,20);
  setbrushcolor(clgreen);
  Rectangle(x-30,y-20,x+80,y-50); 
  
  DrawRectangle(x-30,y-50,x+1,y-90); 
    FloodFill(x-5,y-65,clred);
    setbrushcolor(clyellow);
  Pie(x+47,y-50,30,0,180);

  setbrushcolor(clyellow);
  sleep(10);
  redraw;
  end;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

Последний раз редактировалось Serge_Bliznykov; 09.04.2018 в 10:33.
Aлена вне форума   Ответить с цитированием
Старый 08.04.2018, 18:33   #2
Black Fregat
Программист
Участник клуба
 
Аватар для Black Fregat
 
Регистрация: 23.06.2009
Сообщений: 923
Репутация: 667
По умолчанию

В первом цикле, где
Код:

x:=x+2;

поставить
Код:

x:=x+2; y:=y-1;

Во втором, соответственно где
Код:

x:=x-2;

поставить
Код:

x:=x-2; y:=y+1;

Black Fregat вне форума   Ответить с цитированием
Старый 08.04.2018, 19:35   #3
Aлена
 
Регистрация: 25.12.2017
Сообщений: 9
Репутация: 10
По умолчанию

спасибо )
Aлена вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Графика в Паскаль prooo Lazarus, Free Pascal, CodeTyphon 0 18.04.2017 00:22
паскаль. графика Parada Помощь студентам 1 05.06.2011 19:28
Паскаль. Графика nemilus Помощь студентам 0 23.11.2010 23:02
Паскаль графика Asira Помощь студентам 19 28.12.2009 22:42
Паскаль графика BuTeK1 Паскаль 0 08.01.2009 12:01


01:56.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru