Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Vovcik0
2 / 2 / 2
Регистрация: 21.10.2015
Сообщений: 213
1

Переписать в с++ из pascal

16.05.2018, 19:44. Просмотров 310. Ответов 0
Метки нет (Все метки)

Ребята можете помочь, сделал код в pascal, но нужно еще в с++, но я не знаком с ним кто может переделать? И Немного изменить треугольник на круг и двигался что бы по горизонтали.
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
uses 
  GraphABC;
 
var
  p: array of point; //координаты вершин многоугольника
 
begin
  SetWindowSize(800, 500);
  CenterWindow;
  SetLength(p, 3); //Количество вершин многоугольника
  Pen.Color := ClRed; //цвет границы
  Pen.Width := 5; //толщина границы
  Brush.Color := ClGreen; //цвет области треугольника
  var x := 10;
  var y := 300;
  LockDrawing;
  while x < WindowWidth  do
  begin
    ClearWindow;
    p[0].X := x; p[0].Y := y;
    p[1].X := x + 220; p[1].Y := y;
    p[2].X := x + 20; p[2].Y := y - 100;
    Polygon(p);
    Redraw;
    Sleep(1000);
    x := x + 10 //шаг
  end
end.
Добавлено через 7 минут
Если что сделал и квадрат
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program lab_10; 
uses GraphABC; 
begin 
Window.Width:=300; 
Window.Height:=310; 
LockDrawing; 
for var x:=1 to WindowWidth-10 do 
begin 
Window.Clear; 
Brush.Color := clRandom;{ГЄГ*êîé öâåò Г*óæåГ* òîò ГЁ Г±ГІГ*ГўГјГІГҐ} 
Circle(160, x+8, 8); 
Redraw; 
Sleep(100);{Г§Г*äåðæêГ* Гў ìèëëèñåêóГ*Г¤Г*Гµ} 
end; 
end.
Добавлено через 26 минут
Вообщем теперь есть такой вот код, правда он не дописан, помогите дописать.
C++
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
39
#include <vcl.h>
#include<math.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
TForm1 *Form1;
int x,y;
int a,b,cntX,cntY;
Double alpha;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
randomize;
 
if(x<ClientHeight) {x+=5;}
 else{
x=random(40)+100;
y=random(50)+100;}
PaintBox1->Canvas->Pen->Color=clBlue;
PaintBox1->Canvas->Ellipse(x+25,y+25,x+60,y+60);
}
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormActivate(TObject *Sender)
{
Timer1->Interval=30;
}
//-
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.05.2018, 19:44
Ответы с готовыми решениями:

Переписать с Pascal на С++
Var f1,f2: File of Real; i,n,k: Integer; x,s: Real; BEGIN Write('Введите кол-во чисел:...

Переписать с pascal на c++
const a=5.7;b0=2;bk=8;h=2;x3=30;b1=4;b2=6; begin writeln('k =...

Переписать с Pascal на C++
uses GraphABC; procedure KeyDown(Key: integer); begin if Key = VK_Enter then halt;...

Переписать с pascal
Здравствуйте! сможете помочь переписать код с pascal на c++ program Zadanie_3; {$reference...

Переписать код с Pascal
я тут написал на паскале нужно на С++ uses crt; var a,b:integer; q:boolean; z:real;...

0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.05.2018, 19:44

Переписать проги с Pascal на С++
Помогите. 1# Переварачивает число. uses crt; var a: word; begin clrscr; write('Vvedite...

Программу pascal переписать под c++
Напечатать в возрастающем порядке все числа от 100 до 999, в десятичной записи в которых нет...

Переписать за меня программу с Pascal на С++
Кто может первести код из Паскаля в си++? uses wincrt; var x : array of byte i,j, m,n...


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

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

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