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

Переделайте программу с паскаля на С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Не получается работа со стороками http://www.cyberforum.ru/cpp-beginners/thread147453.html
Люди, последняя работа шобы до экзамена допустили помогите кто может, зараннее благодарин=) 12. Дана строка, состоящая из слов, разделенных пробелом. Определить количество слов, которые начинаются...
C++ Функция вычисления процента от числа х Помогите пожалуйста с задачкой;( Банк предлагает договор сроком на 12 месяцев, соответственно которому физическим лицам начисляется процентная ставка по истечению срока договора в зависимости от... http://www.cyberforum.ru/cpp-beginners/thread147441.html
C++ Использование указателей в функциях
Составить программу, в которой сформировать прямоугольную таблицу С с n × m целых чисел в динамической памяти, в отдельной функции организовать подсчет суммы элементов, удовлетворяющих условию -4<c<=5
C++ Динамически изменяемое окно диалога
Собственно в заголовке всё сказано. Как реализовать в Qt динамически изменяемое содержание диалогового окна, допустим при нажатии кнопок "Назад" и "Далее". Просьба помидорами не закидывать. З.Ы....
C++ Определить количество слов, которые начинаются и заканчиваются одной и той же буквой http://www.cyberforum.ru/cpp-beginners/thread147423.html
Дана строка, состоящая из слов, разделенных пробелом. Определить количество слов, которые начинаются и заканчиваются одной и той же буквой. Помогите хотя бы начать! Или через какую функцию делать:...
C++ Матрица Составить программу,которая выводит матрицу полученную из исходной вычеркиванием строк и столбцов содержащих нулевые элементы. TC, пожалуйста.... Заранее благодарен! подробнее

Показать сообщение отдельно
sanbl4
0 / 0 / 0
Регистрация: 16.06.2010
Сообщений: 2

Переделайте программу с паскаля на С++ - C++

19.06.2010, 19:13. Просмотров 396. Ответов 0
Метки (Все метки)

только шарик катается по КРУГЛОМУ столу, спс

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
32
33
34
35
36
37
38
program sharik;
uses crt,graph;
const
  a=480;
  b=640;
var
   grDriver : integer;
   grMode   : integer;
   x1,y1,x2,y2:real;
   v0,alfa:real;
   x11,y11,x21,y21:integer;
   dt:real;
begin
  grDriver:= Detect;
  grMode:= 12;
  InitGraph( grDriver, grMode, 'E:\Install\Lab\BP\BGI' );
    x1:=320; y1:=200;
    dt:=1;
    v0:=1;
    alfa:=5;
    while not keypressed do begin
      x2:=x1+v0*cos(alfa*pi/180)*dt;
      y2:=y1+v0*sin(alfa*pi/180)*dt;
        x21:=round(x2); x11:=round(x1);
        y21:=round(y2); y11:=round(y1);
        line(x11,y11,x21,y21);
        if ((y2<0) or (y2>a)) then begin
      alfa:=360-alfa;
        end;
        if ((x2<0) or (x2>b)) then begin
      alfa:=360-alfa;
            v0:=-v0;
        end;
        x1:=x2;
        y1:=y2;
        delay(100);
    end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.