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

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

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

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

05.12.2012, 18:49. Просмотров 369. Ответов 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.12.2012, 18:49
Здравствуйте! Я подобрал для вас темы с ответами на вопрос как написать готовый код паскаль на с++? (C++):

Готовый код.Подскажите,как ограничить ввод строки. - C++
Как правильно ограничить строку при помощи strncpy,&quot;вводимую&quot; сразу в переменную структуры? #include &lt;cstdlib&gt; #include...

Готовый код.Как перестроить структуру под класс.wxDex-C++ - C++
Всем доброго вечера и хорошего настроения! Знатоки C/C++ подскажите как &quot;переделать&quot; готовую программку для использования её с...

Есть готовый код C++ (Code Composer Studio). Копирование матрицы. Как исправить ошибки? - C++
т.е. это часть проекта для ЦСП на языке С, но файл исполняемой программы .out не создается из за ошибок в коде :( В С никогда не работал,...

отредактировать готовый код - C++
Отредактируйте пожалуйста готовый код.ТЗ:Написать программу,коротая выводит с клавиатуры массив из 10 целых чисел,считает среднее...

Немножко дописать готовый код(максимальное число) - C++
Выводит число как показано на картинке что-то не сходится слишком большое число максимальное подскажите что я забыл там в коде или что не...

Считывание предложений из текстового файла(готовый код) - C++
Здравствуйте господа. Подскажите пожалуйста возможно ли подправить этот код таким образом чтобы количество считываемых предложений из...

1
yekka
386 / 150 / 8
Регистрация: 12.05.2011
Сообщений: 450
05.12.2012, 20:41 #2
Цитата Сообщение от Gulka Посмотреть сообщение
как написать готовый код паскаль на с++?
я твой дом трюба шатал!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.12.2012, 20:41
Привет! Вот еще темы с ответами:

Есть готовый код, с вводом данных что-то - C++
Есть готовый код,программа запускается и почти работает.То есть дает возможность ввести данные о первой кафедре, после нажатия Энтер...

CRC32 C++. Не могу заставить работать готовый код - C++
Добрый день. Нашел вот такую ссылку: http://web.archive.org/web/20080303102530/http://c.snippets.org/snip_lister.php?fname=crc_32.c ...

Вычислить значение функции(исправить готовый код) - C++
Вычислить значение функции y=(x+5.2)\(x+1)(3x+4), на промежутке с шагом h=0.3. Результаты расчетов вывести в виде таблицы пар х и у....

Немножко дописать готовый код(максимальное число) - C++
Привет ребята,помогите мне пожалуйста. Нашла тут на форуме готовый код своей задачи,только немножко не подходит к моему условию=( Вот...


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

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

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