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

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

Войти
Регистрация
Восстановить пароль
 
sanbl4
Сообщений: n/a
#1

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

19.06.2010, 19:13. Просмотров 382. Ответов 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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.06.2010, 19:13
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Переделайте программу с паскаля на С++ (C++):

Переделайте из Паскаля - C++
const n=10; k=8; var p:array of integer; i,j,s:integer; begin Randomize; For i:=1 to n do begin ...

Немножко улучшил программу,исправьте ошибки и переделайте по лучше - C++
Создайте класс с именем time, содержащий три поля типа int, предназна- ченные для хранения часов, минут и секунд. Один из конструкторов...

Двумерный массив (Вычислить вектор D, компоненты которого равны сумме элементов строк матрицы). Пожалуйста переделайте готовую программу - C++
Здравствуйте!) помогите пожалуйста с такой проблемой. Лабораторную послезавтра сдавать, а я тему пропустил, очень надо((( Задание следующее...

Переписать программу с Паскаля на С++ - C++
Всем привет! Возникла задача написать код на C++, но данный язык я вообще не знаю. Зато знаю pascal на твёрдую 4ку. Так вот, накидал я код...

Перевести программу с Паскаля на Си++ - C++
Помогите пожалуйста переписать этот код на язык Си++. Я просто не понимаю как его переписать. program Z2; const mx=1000; var a,b:...

Переписать программу из паскаля в с++ - C++
program laba52; uses crt; VAR a:array of real; s:real; i:integer; begin s:=1; randomize; for i:=1 to 10 do

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

Переписать программу из паскаля в с++ - C++
Program L5Z1; var K:array of real; i:real; c:integer; begin writeln('Зформовані масиви: '); i:=1; for c:=0 to 17 do...

Первести программу с Паскаля на Си++ - C++
program mm; uses crt; var m:arrayof longint; i,n:integer; begin clrscr; write('razmernost:'); readln(n); write('1 i 2...

Перевести программу с Паскаля на Си++ - C++
Помогите пожалуйста переписать этот код на язык Си++, не знаю как также объявляется массив :( const a=3; b=4; var x,y,u:array...

Переписать программу из паскаля на с++ - C++
const n = 15; var a:array of integer; i,j,x:integer; begin randomize; writeln('Сфоромований масив:'); for i:=1 to n do ...


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

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

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