Моделирование колебания упругой тонкой струны

@Антон99 · Регистрация: 19.06.2015

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

Помогите составить программу на Паскале!очень надо,сам не понимаю а сдавать надо(((

@APALoff · 19.06.2015, 14:11

Что-то похожее: Секундомер, показывающий время работы программы

@Антон99 · 19.06.2015, 14:57 **[ТС]**

для меня это ничего не дало.может у кого код есть?я ниче не понимаю просто...(

@APALoff · 19.06.2015, 15:03

Не по теме:

Сообщение от Антон99

я ниче не понимаю просто

Сочувствую. Хотя нет, наврал...

@Puporev · 19.06.2015, 15:11

Что-то типа такого нужно?
https://ru.wikipedia.org/wiki/... 0%B8%D0%B5
Смотри картинку в конце статьи.

@Антон99 · 19.06.2015, 15:16 **[ТС]**

да что то типа этого!

@Антон99 · 22.06.2015, 13:49 **[ТС]**

ну что ни кто не сможет помочь??((

@APALoff · 22.06.2015, 14:17

Так вроде бы уже помогли - за Вами осталась реализация.

@Антон99 · 25.06.2015, 10:49 **[ТС]**

APALoff мне твои язвенные ответы ни как не помогают..может не стоит коментировать ни чего тогда?ребят серьезно если кто может помочь помогите пожалуйста

@APALoff · 25.06.2015, 11:31

Антон99, если нужно за Вас все сделать - так и пишите "Прошу сделать мне ...", а не Ваше завуалированное "Помогите".

@Puporev · 25.06.2015, 11:33

А чтобы получить ту картинку, нужно знать необходимое из физики и математики, чтобы получить функцию той волны. Если это будет, то нарисовать в Паскале помогу.

@APALoff · 25.06.2015, 11:34

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

@Puporev · 25.06.2015, 11:41

Если бы функция была проста, типа cos, то это будет выглядеть так.

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
36
37
38
39
uses graphABC,crt;
const m=40/pi;
procedure volna(x0,y0,k:integer);
var xn,xk,x:real;
begin
xn:=-pi/2;
xk:=pi/2;
setpencolor(clRed);
x:=xn;
moveto(x0+round(x*m),y0-round(3*cos(x)*k*m));
while x<=xk do
 begin
  lineto(x0+round(x*m),y0-round(3*cos(x)*k*m));
  x:=x+0.01;
 end;
end;
var x0,y0,k,d:integer;
begin
x0:=20;
y0:=windowheight div 2;
d:=3;
k:=1;
lockdrawing;
repeat
clearwindow;
setpencolor(clRed);
line(0,y0,x0-20,y0);
volna(x0,y0,k);
line(x0+20,y0,windowwidth,y0);
sleep(10);
x0:=x0+d;
if (x0>windowwidth-20)or(x0<20) then
 begin
  d:=-d;
  k:=-k;
 end;
redraw;
until keypressed;
end.

Но нужны плавные переходы слева и справа.

@Антон99 · 03.07.2015, 14:04 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@Антон99 0 / 0 / 0 Регистрация: 19.06.2015 Сообщений: 7

	Моделирование колебания упругой тонкой струны 19.06.2015, 13:58. Показов 3756. Ответов 13 Метки нет (Все метки) Помогите составить программу на Паскале!очень надо,сам не понимаю а сдавать надо((( 0

@APALoff 1648 / 1077 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	19.06.2015, 14:11
	Что-то похожее: Секундомер, показывающий время работы программы 0

@Антон99 0 / 0 / 0 Регистрация: 19.06.2015 Сообщений: 7
	19.06.2015, 14:57 [ТС]
	для меня это ничего не дало.может у кого код есть?я ниче не понимаю просто...( 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	19.06.2015, 15:11
	Что-то типа такого нужно? https://ru.wikipedia.org/wiki/... 0%B8%D0%B5 Смотри картинку в конце статьи. 0

@Антон99 0 / 0 / 0 Регистрация: 19.06.2015 Сообщений: 7
	19.06.2015, 15:16 [ТС]
	да что то типа этого! 0

@Антон99 0 / 0 / 0 Регистрация: 19.06.2015 Сообщений: 7
	22.06.2015, 13:49 [ТС]
	ну что ни кто не сможет помочь??(( 0

@APALoff 1648 / 1077 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	22.06.2015, 14:17
	Так вроде бы уже помогли - за Вами осталась реализация. 0

@Антон99 0 / 0 / 0 Регистрация: 19.06.2015 Сообщений: 7
	25.06.2015, 10:49 [ТС]
	APALoff мне твои язвенные ответы ни как не помогают..может не стоит коментировать ни чего тогда?ребят серьезно если кто может помочь помогите пожалуйста 0

@APALoff 1648 / 1077 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	25.06.2015, 11:31
	Антон99, если нужно за Вас все сделать - так и пишите "Прошу сделать мне ...", а не Ваше завуалированное "Помогите". 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	25.06.2015, 11:33
	А чтобы получить ту картинку, нужно знать необходимое из физики и математики, чтобы получить функцию той волны. Если это будет, то нарисовать в Паскале помогу. 0

@APALoff 1648 / 1077 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	25.06.2015, 11:34
	Материал Вам дали, есть о чём поразмыслить. Естественно это тема не самая легкая и выбивается из общего потока элементарных задач... но мне например лениво разбираться в формулах - это прежде всего нужно Вам - если сами разберете и поймёте, это будет уже пол дела. А реализовать на Паскале математический аппарат уже вторая половина. Ну так сделайте хоть первую часть. 0

@Антон99 0 / 0 / 0 Регистрация: 19.06.2015 Сообщений: 7
	03.07.2015, 14:04 [ТС]
	спасибо большое!! 0