Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
FuziWuzi
0 / 0 / 0
Регистрация: 13.05.2015
Сообщений: 17
1

Переделайте программу из TurboPascal в PascalABC.Net

13.05.2015, 13:36. Просмотров 873. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста!Переделайте программу из TurboPascal в PascalABC.Net
Вот программа

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
uses graph;
var x1,y1,x2,y2,x3,y3,x4,y4:integer;
    p:array[1..4] of pointtype;
begin
initgraph(x1,y1,'');
{определим координаты 4 вершин пирамиды}
x3:=getmaxX div 2+200;{низ право}
y3:=getmaxY div 2;
x1:=x3-200;y1:=y3+200;{низ лево}
x2:=x1-100;y2:=y3+50;{низ задняя}
x4:=(x1+x2+x3)div 3;{верх}
y4:=y3-200;
{определим координаты полигона-сечения}
p[1].x:=(x1+x4) div 2;p[1].y:=(y1+y4) div 2;
p[2].x:=(x2+x4) div 2;p[2].y:=(y2+y4) div 2;
p[3].x:=(x4+x3) div 2; p[3].y:=(y4+y3) div 2;
p[4]:=p[1];{замкнем его}
setcolor(12);{нарисуем полигон-сечение}
setfillstyle(3,12);
fillpoly(4,p);
setcolor(9);{нарисуем пирамиду}
line(x1,y1,x4,y4);
line(x2,y2,x4,y4);
line(x3,y3,x4,y4);
line(x1,y1,x2,y2);
line(x3,y3,x1,y1);
setlinestyle(2,0,1);{задняя линия пунктиром}
line(x2,y2,x3,y3);
readln
end.
Заранее спасибо!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.05.2015, 13:36
Ответы с готовыми решениями:

Переделайте "Старт ракеты" для PascalABC.net
uses graph,crt; procedure raketa(x,y,c:integer); begin setcolor(c);...

Сделать программу под PascalABC.NET
program ElGamal; Var p,g,a,k,k1,y,key:LongInt; y1,y2:Char; i:Word; ...

Составить программу с циклами в PascalABC.NET
Необходимо составить таблицу в Pascal: 1 2 2 3 3 3 4 4 4 4 5 5 5 5 5 ...

Как развернуть программу на весь экран в pascalabc.net?
Здравствуйте обитатели форума, реально ли как-нибудь в pascalabc.net программу...

Как написать блок-схему на программу PascalABC.NET?
uses crt; type mat=array of integer; const n=5; m=7; var...

3
FuziWuzi
0 / 0 / 0
Регистрация: 13.05.2015
Сообщений: 17
14.05.2015, 18:00  [ТС] 2
Изменю условие задачи, мне нужно сделать вот такое задание, пожалуйста ,помогите, очень нужно решение!
Построить чертеж:в треугольной пирамиде построить сечение, параллельное основанию в PascalABC.net
Заранее спасибо.
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26351 / 17679 / 7001
Регистрация: 22.10.2011
Сообщений: 31,113
Записей в блоге: 6
14.05.2015, 18:14 3
Лучший ответ Сообщение было отмечено FuziWuzi как решение

Решение

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
uses
  graphabc;
 
var
  x1, y1, x2, y2, x3, y3, x4, y4: integer;
  p: array of point := new Point[4];
 
begin
  {определим координаты 4 вершин пирамиды}
  x3 := Window.Width div 2 + 200;{низ право}
  y3 := Window.Height div 2;
  x1 := x3 - 200;y1 := y3 + 200;{низ лево}
  x2 := x1 - 100;y2 := y3 + 50;{низ задняя}
  x4 := (x1 + x2 + x3) div 3;{верх}
  y4 := y3 - 200;
  {определим координаты полигона-сечения}
  p[0].x := (x1 + x4) div 2;p[0].y := (y1 + y4) div 2;
  p[1].x := (x2 + x4) div 2;p[1].y := (y2 + y4) div 2;
  p[2].x := (x4 + x3) div 2; p[2].y := (y4 + y3) div 2;
  p[3] := p[0];{замкнем его}
  SetPenColor(clRed);{нарисуем полигон-сечение} // 12
  SetBrushColor(clCyan);
  SetBrushStyle(bsSolid);
  FillPolygon(p);
  DrawPolygon(p);
  SetPenColor(clLightBlue);
  SetPenWidth(2);
  line(x1, y1, x4, y4);
  line(x2, y2, x4, y4);
  line(x3, y3, x4, y4);
  line(x1, y1, x2, y2);
  line(x3, y3, x1, y1);
  SetPenStyle(DashStyle.Dot); {задняя линия точками}
  SetPenWidth(1);
  line(x2, y2, x3, y3);
  readln
end.
1
FuziWuzi
0 / 0 / 0
Регистрация: 13.05.2015
Сообщений: 17
14.05.2015, 18:16  [ТС] 4
Спасибо большое, выручили^_^
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.05.2015, 18:16

Как откомпилировать программу без IDE pascalabc.net?
Просто скомпилировать код, который написан, допустим, в обычном блокноте?

Написать программу из задачника среды PascalABC.NET для задания integer8:
Написать программу из задачника среды PascalABC.NET для задания integer8:...

В чем разница PascalABC.net и PascalABC
Скажите в чем разница PascalABC.net И PascalABC. Помню когда-то давно программы...


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

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

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