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

Перевод кода из Паскаля в С++

27.05.2015, 18:52. Просмотров 195. Ответов 1
Метки нет (Все метки)

uses crt,graph;
type TPoint=record
x,y:integer;
end;
var p1,p2,p3,p4:array[1..5]of TPoint;
gd,gm:integer;
i,x0,y0,x1,y1,x2,y2,x3,y3:integer;
begin
clrscr;
InitGraph(gd,gm,'');
{Osi}
x0:=200;y0:=240;
x1:=x0+300;y1:=y0;x2:=x0-round((x1-x0)*0.71*0.71);y2:=y0+round((x1-x0)*0.71*0.71);
x3:=x0;y3:=y0-230;
setlinestyle(0,0,1);
line(x0,y0,x1,y1);line(x0,y0,x2,y2);line(x0,y0,x3,y3);
OuttextXY(x1-5,y1-15,'Y');OuttextXY(x2-5,y2-15,'X');OuttextXY(x3+10,y3,'Z');
{Piramida}
{Sechenie}
p4[1].x:=150;p4[1].y:=180;
p4[2].x:=290; p4[2].y:=40;
p4[3].x:=450;p4[3].y:=220;
p4[4].x:=310;p4[4].y:=400;
setcolor(12);
setlinestyle(1,0,1);
setfillstyle(3,12);
fillpoly(4,p4);
{pered}
setlinestyle(0,0,1);
p1[1].x:=150;p1[1].y:=400;
p1[2].x:=310;p1[2].y:=400;
p1[3].x:=310;p1[3].y:=180;
p1[4].x:=150;p1[4].y:=180;
p1[5].x:=150;p1[5].y:=400;
setcolor(11);
moveto(p1[1].x,p1[1].y);
for i:=1 to 5 do
lineto(p1[i].x,p1[i].y);
{verh}
p2[1].x:=150;p2[1].y:=180;
p2[2].x:=290;p2[2].y:=40;
p2[3].x:=450;p2[3].y:=40;
p2[4].x:=310;p2[4].y:=180;
setcolor(11);
moveto(p2[1].x,p2[1].y);
for i:=1 to 4 do
lineto(p2[i].x,p2[i].y);
{pravo}
p3[1].x:=450;p3[1].y:=40;
p3[2].x:=450;p3[2].y:=220;
p3[3].x:=310;p3[3].y:=400;
setcolor(11);
moveto(p3[1].x,p3[1].y);
for i:=1 to 3 do
lineto(p3[i].x,p3[i].y);
{vnutri}
setlinestyle(1,0,1);
line(150,400,290,220);
line(290,220,290,40);
line(290,220,450,220);
readln;
Closegraph
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.05.2015, 18:52
Ответы с готовыми решениями:

Перевод кода с паскаля в С++
помогите перевести код с Паскаля в С++, пожалуйста! Program pr1; uses crt;...

Перевод кода с Паскаля на C++
Помогите пожалуйста перевести код программы из паскаля в с++ Uses crt;...

Перевод кода с Паскаля на С++
Помогите перевести код с Паскаля на С++: Var s,s1,s2:string; ...

Перевод кода из паскаля в с++
Незнаю как перевести из паскаля в с++ ar x, y: real; begin readln(x,...

Перевод кода из Паскаля в С++
Я в С++ не бум бум, написал прогу на паскале а нуно на Си++ помогите перевести...

1
k4pral_levi
1 / 1 / 2
Регистрация: 27.05.2015
Сообщений: 47
28.05.2015, 22:32  [ТС] 2
аууу
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2015, 22:32

Перевод кода из Паскаля в C++
помогите пожалуйста перевести код в c++ integer procedure F2(ref(position)...

Перевод кода из паскаля в c++
Собственно надо перевести этот код из паскаля в c++, чтобы программа выдавала...

Перевод кода с Паскаля на С++
помогите перевести код программы с Паскаля в с++, пожалуйста! Program pr1;...


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

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

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