С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
balash27
0 / 0 / 0
Регистрация: 19.11.2013
Сообщений: 3
1

Перевести в АВС

19.11.2013, 01:03. Просмотров 913. Ответов 5
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Uses crt, graph;
Const m=2; r=0; k=0; Fm=10; dt=0.0001;
Mx=20; Mv=40; Ma=8; Mt=100;
Var x,v,a,F,t : Real; j,Gd,Gm : Integer;
BEGIN Gd:= Detect; InitGraph(Gd,Gm,'c:\bp\bgi');
t:=0; v:=0; x:=-3;
line(30,300,650,300); line(31,500,31,10);
Repeat t:=t+dt; F:=0;
If t<1 then F:= Fm; If t>3 then F:=-Fm;
a:=(F-r*v-k*x)/m; x:=x+v*dt; v:=v+a*dt;
circle(30+round(t*Mt),300-round(x*Mx),1);
circle(30+round(t*Mt),300-round(v*Mv),1);
circle(30+round(t*Mt),300-round(a*Ma),2);
until KeyPressed; CloseGraph;
END.
Зарание спосибо!!!
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.11.2013, 01:03
Ответы с готовыми решениями:

Снова перевести с Турбо Паскаля на Паскаль АВС или Паскаль АВС.Нет
program derevo; uses crt, graph; function cx(length, angle:real):integer;...

Перевести код с Турбо на АВС (с модулем Graph)
ребят можете перекодировать программу а то на моей системе TP не работает....

модуль в паскале авс
почему когда я запускаю программу с модулем unit в паскале вылазит окно &quot;новый...

Задание с графикой в АВС
Здраствуйте!Задание в том что-бы грузовик проехал вправо до конца!Понимаю...

Построение графики в Паскале АВС
Ребят помогите пожалуйста составить программу в Паскале АВС,где надо построить...

5
ildwine
Супер-модератор
3055 / 1931 / 1240
Регистрация: 04.03.2013
Сообщений: 4,725
Записей в блоге: 1
19.11.2013, 06:43 2
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

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
Uses crt, graphABC;
Const
  m=2; r=0; k=0; Fm=10; dt=0.0001;
  Mx=20; Mv=40; Ma=8; Mt=100;
Var
  x,v,a,F,t : Real;
  j : Integer;
BEGIN
  t:=0;
  v:=0;
  x:=-3;
  line(30,300,650,300);
  line(31,500,31,10);
  Repeat
  t:=t+dt;
  F:=0;
  If t<1 then F:= Fm;
  If t>3 then F:=-Fm;
  a := (F-r*v-k*x)/m;
  x:=x+v*dt; v:=v+a*dt;
  circle(30+round(t*Mt),300-round(x*Mx),1);
  circle(30+round(t*Mt),300-round(v*Mv),1);
  circle(30+round(t*Mt),300-round(a*Ma),2)
  until KeyPressed  
END.
0
balash27
0 / 0 / 0
Регистрация: 19.11.2013
Сообщений: 3
19.11.2013, 19:54  [ТС] 3
А на ABC.Net также??? А то что-то не получается...
0
ildwine
Супер-модератор
3055 / 1931 / 1240
Регистрация: 04.03.2013
Сообщений: 4,725
Записей в блоге: 1
19.11.2013, 19:57 4
Раз используется crt, запускайте программу по Shift+F9 (Программа -> Выполнить без связи с оболочкой)
0
balash27
0 / 0 / 0
Регистрация: 19.11.2013
Сообщений: 3
19.11.2013, 20:50  [ТС] 5
Выскакивает окошко. Что теперь делать??? виндовс хр
0
Миниатюры
Перевести в АВС  
ildwine
Супер-модератор
3055 / 1931 / 1240
Регистрация: 04.03.2013
Сообщений: 4,725
Записей в блоге: 1
20.11.2013, 08:57 6
Похоже у вас что-то с библиотеками Microsoft .NET Framework или с самой средой PascalABC.NET. Возможно проблему решит переустановка PascalABC.NET. Причем при установке укажите обязательно пункт об установке Microsoft .NET Framework.
0
Миниатюры
Перевести в АВС  
20.11.2013, 08:57
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.11.2013, 08:57

Файл .exe в Паскаль АВС.
Podskazite kak coxronat v programme Pascal ABC faily v formate *.exe ???

Модуль Граф АВС Мельница
пожалуйста, помогите нарисовать мельницу! в АВС... вот код рисунка... я что...

Не могу установить Паскаль АВС
Уже несколько файлов. Пишет что не может установить, по скольку не найден файл...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru