Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
edise
0 / 0 / 0
Регистрация: 13.11.2010
Сообщений: 3
#1

перевод из Pascal в С++ - C++

13.11.2010, 15:58. Просмотров 312. Ответов 0
Метки нет (Все метки)

Здравствуйте, помогите пожалуйста!
Есть программа на Pascal'e, моделирующая падение тела, не могли бы вы помочь с переводом ее в С++ Builder, так как ее надо усовершенствовать (сделать выбор формы тела, и изменение плотности среды).

Вот код программы:


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
program telo;
uses crt,graph;
var grDriver,grMode,y:integer;
    g,m,v,v0,a,a0,h,
      dt,S,S0,t,k:real;
begin
 g:=10;h:=2000;k:=10;
 m:=100;dt:=sqrt(2*h/g)/100;
 grDriver:=Detect;
 InitGraph(grDriver,grMode,' ');
 circle(300,100,5);
 setfillstyle(5,2);
 bar(200,320,400,330);
 repeat until keypressed;
 t:=0;S0:=0;v0:=0;a0:=g;
 repeat
  t:=t+dt;
  S:=S0+v0*dt+a0*sqr(dt)/2;
  v:=v0+a0*dt;
  a:=(m*g-k*v)/m;
  y:=round(100+S*(320-100)/h);
  setcolor(15);circle(300,y,5 );
  delay(20);
  setcolor(0);circle(300,y,5);
  S0:=S;a0:=a;v0:=v;
 until (S&gth) or (y&gt319);
 setcolor(15);
 circle(300,y,5);
 readln;
 CloseGraph;
end.

заранее спасибо
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.11.2010, 15:58
Здравствуйте! Я подобрал для вас темы с ответами на вопрос перевод из Pascal в С++ (C++):

Перевод с С++ на Pascal - C++
Спичечная модель Профессор Самоделкин решил изготовить объемную модель кубиков из спичек, используя спички для рёбер кубиков. Длина...

Перевод из Pascal в С++ - C++
Можно пожалуйста перевести в С++ и сделать ее рандомной. Еще у меня не получается вывести на печать номера столбцов в которых заданы...

Перевод из Pascal в C++ - C++
Пж помогите перевести Program SoulCub; Var A,B,C:Real; Begin WriteLn('Введите числa A,B и C: '); ReadLn(A,B,C); If...

Перевод с Pascal на C++ - C++
Код на паскале, помогите его переписать в С ++ . Очень нужно ребят . Последняя задача. const mi = 100; type matrix = array of...

Перевод из Pascal в C++ - C++
Перевод из Pascal в C++ Здравствуйте, помогите пожалуйста с переводом, сам нисколько не знаю паскаль, только в этом году начал...

Перевод с Pascal на C++ - C++
Пишу программу. Принципиальна скорость. Дальнейшие пути оптимизации не наблюдаются. Сообственно код: type Numb = array of int64; ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.11.2010, 15:58
Привет! Вот еще темы с ответами:

Перевод из Pascal в C++ - C++
Добрый день, дорогие форумчане) Буду благодарен за перевод) uses crt; const nmax = 20; type mtr = array of integer;

Перевод с pascal на c++ - C++
Вообще не знаю pasсal, нужен перевод. program aaa; Type mas=array of integer; Var a: array of integer; s, d:mas; {массив элементов...

Перевод из Pascal на C++ - C++
Народ! Помогите пожалуйста перевести код из Паскаля в C++ const w:array of real=(1.5,-1,0.5); type fly=class ...

перевод из Pascal в C++ - C++
Здравствуйте!Задача: Прямоугольный садовый участок шириной N и длиной M метров разбит на квадраты со стороной 1 метр. На этом участке...


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

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

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