Свободное падение цветного шара, брошенного горизонтально с определённой скоростью

@Polina_Bel · Регистрация: 19.05.2015

Студворк — интернет-сервис помощи студентам

Написать программу, реализующую свободное падение цветного шара брошенного горизонтально с определённой скоростью. Скорость задаётся пользователем.

начала делать и ступр

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
uses graphabc;
const g=9.81;
dt=1e-4;
var x,y:real;
vx,vy,v:real;
alpha:real;
x1,y1:integer;
begin
Writeln('v = ');
ReadLn(v);
Writeln('alpha = ');
ReadLn(alpha);
lockdrawing;
x:=0;
y:=0;
vx:=v*cos(alpha);
vy:=v*sin(alpha);
repeat
vx:=vx+0;
vy:=vy-g*dt;
x:=vx*dt;
y:=vy*dt;
x1:=Round(x);
y1:=Round(y);
setbrushcolor(clYellow);
circle(x1,y1,80);
until(y<0);
Redraw;
end.

@Puporev · 20.05.2015, 19:55

Можно так.

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
uses graphabc,crt;
const g=9.81;
var v,r,x0,y0:integer;
    tp,t,x,y:real;
begin
repeat
write('v[20..70] v=');
readln(v);
until v in [20..70];
clrscr;
hidecursor;
r:=10;
x0:=r;
y0:=r;
tp:=sqrt(2*(windowheight-2*r)/g); //время полета
lockdrawing;
t:=0;
while t<tp do
 begin
  clearwindow;
  x:=v*t;
  y:=g*t*t/2;
  setbrushcolor(clYellow);
  circle(x0+round(x),y0+round(y),r);
  delay(50);
  t:=t+0.1;
  redraw;
 end;
end.

@Polina_Bel · 20.05.2015, 23:28 **[ТС]**

а так у меня почему-то не загружает программу

@Puporev · 21.05.2015, 06:01

А Вы точно в АВС запускаете или в АВС.net?

Добавлено через 4 минуты
Если в net, уберите crt,clrscr,hidecursor, замените delay на sleep

@Polina_Bel · 21.05.2015, 08:12 **[ТС]**

Большое спасибо!)

@Dmitalik · 12.04.2016, 21:46

а можно чтобы он под углом 90 градусов падал, пожалуйста

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Polina_Bel 0 / 0 / 0 Регистрация: 19.05.2015 Сообщений: 16
	20.05.2015, 23:28 [ТС]
	а так у меня почему-то не загружает программу 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	21.05.2015, 06:01
	А Вы точно в АВС запускаете или в АВС.net? Добавлено через 4 минуты Если в net, уберите crt,clrscr,hidecursor, замените delay на sleep 1

@Polina_Bel 0 / 0 / 0 Регистрация: 19.05.2015 Сообщений: 16
	21.05.2015, 08:12 [ТС]
	Большое спасибо!) 0

@Dmitalik 0 / 0 / 0 Регистрация: 10.04.2016 Сообщений: 4
	12.04.2016, 21:46
	а можно чтобы он под углом 90 градусов падал, пожалуйста 0

Свободное падение цветного шара, брошенного горизонтально с определённой скоростью

Решение