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

как написать готовый код паскаль на с++? - C++

Восстановить пароль Регистрация
 
Gulka
0 / 0 / 0
Регистрация: 14.04.2012
Сообщений: 33
05.12.2012, 18:49     как написать готовый код паскаль на с++? #1
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 elmgmv;
uses Grt,Graph;
var gd,gm,xd,yd:Integer;
x,y,z,mx,t,dt,q,m,v,al,vx,vy,vz,fx,fy,fz:real;
e,ex,ey,ez,b,bx,by,bz:real;
Begin
q:=-1.6e-19; m:=9.1e-31; v:=1e8; al:=85;
al:=al*pi/180;mx:=1e4;
ex:=2e3;ey:=0;ez:=0;
bx:=0.1; by:=0; bz:=0;
gd:=ega; gm:=1; InitGraph(Gd,Gm,");
{SetColor()11;}LINE(0,225,630,225);
LINE(150,175,20,305);
x:=0;y:=0;z:=0;dt=1e-12;
vx=v*cos(al);vy:=v*sin(al);vz:=0;
repeat
fx:=q*(ex+(vy*bz-vz*by)); vx:=vx+fx*dt/m;
x:=x+vx*dt;
fy:=q*(ey+(vz*bx-vx*bz)); vy:=vy+fy*dt/m;
y:=y+vy*dt;
fz:=q*(ez+(vx*by-vy*bx)); vz:=vz+fz*dt/m;
z:=z+vz*dt;
xd:=100+Round((x-z/3)*mx);
yd:=225-Round((y-z/3)*mx);
putpixel(xd,yd,12);
if(xd<0)or(xd>630)or(yd<0)or(yd>450)
then
break;
t:=t+dt;
until t>5e-8;
Readlen;CloseGraph;End.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.12.2012, 18:49     как написать готовый код паскаль на с++?
Посмотрите здесь:

Готовый код.Подскажите,как ограничить ввод строки. C++
Готовый код.Как перестроить структуру под класс.wxDex-C++ C++
C++ Есть готовый код C++ (Code Composer Studio). Копирование матрицы. Как исправить ошибки?
C++ Считывание предложений из текстового файла(готовый код)
Немножко дописать готовый код(максимальное число) C++
C++ Немножко дописать готовый код(максимальное число)
C++ отредактировать готовый код
CRC32 C++. Не могу заставить работать готовый код C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
yekka
384 / 148 / 8
Регистрация: 12.05.2011
Сообщений: 450
05.12.2012, 20:41     как написать готовый код паскаль на с++? #2
Цитата Сообщение от Gulka Посмотреть сообщение
как написать готовый код паскаль на с++?
я твой дом трюба шатал!
Yandex
Объявления
05.12.2012, 20:41     как написать готовый код паскаль на с++?
Ответ Создать тему
Опции темы

Текущее время: 08:04. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru