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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ Поиск по бинарному дереву целочисленных значений http://www.cyberforum.ru/cpp-beginners/thread720549.html
Здравствуйте! Очень нужна помощь данном, надеюсь что простом, задании. Заранее спасибо!:-[ Реализовать поиск по бинарному дереву целочисленных значений, генерируемых случайным образом. Кол-во чисел и диапазон задаётся пользователем. Этапы решения: 1) Построить бинарное дерево по созданному случайным образом массиве. 2) Реализовать алгоритм поиска значения, введённого пользователем с выч....
C++ поиск по имени в базе данных через хэш - таблицы #include <iostream> #include <cstring> using namespace std; struct Player { char *name; int age; int soccer_number; http://www.cyberforum.ru/cpp-beginners/thread720540.html
Даны натуральное число n, действительные числа a[1],.,a[n]. Вычислить по правилу C++
Объясните чего от меня хотят? Даны натуральное число n, действительные числа a,...,a. Вы- числить -a,a,-a,...,(-1)^na. -1 в степени na? _что?
Unsigned long (Найти шестнадцатеричное представление числа) C++
Нужно написать код програмы на С++ Помогите пожалуйста, очень сильно нужно(((( Задано число диапазона unsigned long. Найти его шестнадцатеричное представление.
C++ Программа «Факультет» http://www.cyberforum.ru/cpp-beginners/thread720509.html
Вот такое задание. Свойства: ФИО студентов, предметы, оценки, название групп. Предусмотреть вывод рейтингов студентов предмету по группам по факультету. Поиск студента по фамилии с выводом информации о нём: группа, оценки по предметам. Есть у кого то идеи как это реализовать? :/
C++ Удаление элементов классе Vector Из числовой последовательности найти удалить все элементы, лежащие в промежутке , где X – среднее арифметическое элементов последовательности, A и B – задаваемые пользователем коэффициенты. Собственно не работает удаление i элемента(Функция Delete). Как правильно сделать? #include <cassert> #include <stdio.h> #include <conio.h> #include <iostream> using namespace std; подробнее

Показать сообщение отдельно
Gulka
0 / 0 / 0
Регистрация: 14.04.2012
Сообщений: 33
05.12.2012, 18:49     как написать готовый код паскаль на с++?
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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 13:52. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru