Написать программу полета круга - PascalABC.NET

PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.83/6:

@zives5 0 / 0 / 0 Регистрация: 11.09.2012 Сообщений: 13

	Написать программу полета круга 03.12.2012, 21:15. Показов 1262. Ответов 1 Метки нет (Все метки) нужно написать программу полета круга по экрану с отскоком его от границ экрана. 0

Лучшие ответы (1)

Сообщение: #3797857

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

03.12.2012, 21:15

Ответы с готовыми решениями:

Требуется написать программу, которая определит радиус наименьшего круга с центром в начале координат, внутрь которого попадают все данные точки
Дан текстовый файл с именем FileName, в первой строке которого записано единственное число N, а в последующих N строках записаны координаты...

Написать программу с исходными данными для полета снаряда
Снаряд/ракета (не важно) находится на расстоянии 800 м от цели. Изменяя начальную скорость полета снаряда Vн и угол α, под которым он...

Написать программу для вычисления времени полета тела, брошенного под углом к горизонту
Написать программу для вычисления времени полета тела, брошенного под углом к горизонту. Начальная скорость тела равна V и направлена под...

КонецСвета

Почетный модератор

7966 / 3937 / 2464

Регистрация: 30.10.2011

Сообщений: 5,377

03.12.2012, 23:07

Сообщение было отмечено zives5 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses graphABC;
var x,y,kx,ky: integer;
 
begin
setwindowsize(500,400);
lockdrawing;
kx:=-1; ky:=-1;
x:=250; y:=200;
while true do
  begin
  clearwindow;
  setbrushcolor(clgreen);
  if (x=490) or (x=10) then kx:=kx*-1;
  if (y=390) or (y=10) then ky:=ky*-1;
  x:=x+kx; y:=y+ky;
  circle(x,y,10);
  sleep(1);
  redraw;
  end;
 
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

03.12.2012, 23:07

Помогаю со студенческими работами здесь

Написать программу нахождения вписанного в ромб круга
Заданы диагонали ромба.Найти площадь вписанного круга

Написать программу, вычисляющую площадь круга и длину окружности по ее радиусу
Написать программу, вычисляющую площадь круга и длину окружности по ее радиусу. Основная программа запрашивает радиус и передает его в...

Написать программу вычисления разности площадей квадрата и круга, вписанного в него
Написать программу вычисления разности площадей квадрата и круга, вписанного в него. Ниже приведен рекомендуемый вид экрана во время...

Написать программу вычисления значения площади круга радиуса r с заданной точностью
Задание1: Написать программу вычисления значения площади круга радиуса r с заданной точностью. Точность задается при вводе, форматированный...

Написать программу, которая подсчитывает радиус окружности, площадь круга которой равна s
using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Threading.Tasks; namespace...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

Наверх