-1 / 0 / 0
Регистрация: 28.01.2016
Сообщений: 85
1

Построение графических примитивов,построение графика в среде Turbo С++ 4.0

30.05.2016, 18:10. Показов 1297. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Ребята помогите пожалуйста нужно переделать две программы, они написаны в PascalABC.NET нужно переделать в Turbo C++ 4.0
Помогите пожалуйста буду очень благодарна) Помогите пожалуйста.

1)
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
uses GraphAbc;
procedure TextP(x,y:integer;s:string);
begin
  SetBrushColor(clAquamarine);
  TextOut(x,y,s);
end;
 
begin
  SetBrushColor(clBlue);
  Ellipse(20,20,160,60);
  TextP(70,70,'Эллипс');
  
  SetBrushColor(clRed);
  SetPenWidth(2);
  SetPenStyle(psDash);
  Rectangle(200,20,360,60);
  TextP(240,70,'Прямоугольник');
  
  SetBrushColor(clGreen);
  SetPenWidth(3);
  SetPenStyle(psDashDot);
  Circle(30,110,30);
  TextP(20,150,'Круг');
  
  SetBrushColor(clViolet);
  SetPenWidth(2);
  SetPenStyle(psDashDotDot);
  RoundRect(200,90,360,130,10,10);
  TextP(200,140,'Прямоугольник с скругленными краями');
 
  SetBrushColor(clYellow);
  SetPenWidth(2);
  SetPenStyle(psDot);
  Pie(30,280,90,100,10);
  TextP(30,300,'Сектор');
end.


2)
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
uses graphABC;
function F1(x:real):real;
begin
F1:=cos(x);
end;
const kx=10; ky=20;
var xn,xk,x,mx,dx:real;
    x0,y0,my,i:integer;
    s:string;
    c:char;
begin
x0:=windowwidth div 2;{центр экрана}
y0:=windowheight div 2;
xn:=-2*pi;
xk:=2*pi;
mx:=(x0-200)/xk;
my:=y0-200;{по У}
repeat
line(0,y0,windowwidth,y0);{оси}
line(x0,0,X0,windowheight);
line(x0-3,y0+my,x0+3,y0+my);
textout(x0-15,y0+my,'-1');
line(x0-3,y0-my,x0+3,y0-my);
textout(x0-15,y0-my,'1');
for i:=1 to 7 do
  begin
    line(x0+round(i*mx),y0-3,x0+round(i*mx),Y0+3); 
    line(x0-round(i*mx),y0-3,x0-round(i*mx),Y0+3);
    str(i,s);
    {подпись оси Х}
    textout(x0+round(i*mx)-15,y0+10,s);
    textout(x0-round(i*mx),y0+10,'-'+s);
  end;
{центр}
textout(x0+5,y0+10,'0');
{подпись концов осей}
textout(windowwidth-10,y0-10,'X');
textout(x0-10,10, 'Y');
{графики}
x:=xn;
dx:=0.01;
while x<=xk do
   begin
     x:=x+dx; 
     setpixel(x0+round(x*mx),y0-round(F1(x)*my),clBlue);
   end;
setfontcolor(clBlue);
textout(x0-80,30,'f''''(x)=cos(x)');
Read(c);
case c of
 '+': begin mx:=mx+kx; my:=my+ky; end;
 '-': begin mx:=mx-kx; my:=my-ky; end;
end;
c:=#0;
ClearWindow;
until false;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.05.2016, 18:10
Ответы с готовыми решениями:

Построение графических примитивов
Ребята помогите пожалуйста нужно две программы вообщем задание такое :1) Построение графичнных...

Построение графических примитивов
Ребята помогите пожалуйста нужно две программы вообщем задание такое :1) Построение графинных...

Построение графических примитивов на OpenGL
У меня такои вопрос. Есть листинг програмы на делфи, типо построение графических примитивов на...

Построение основных графических примитивов
С помощью процедуры нарисовать узор

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2016, 18:10
Помогаю со студенческими работами здесь

Построение графика и нахождение скорости в водной среде
условие задачи такое: Построить график изменения скорости моторного судна массой M, если...

Построение графических зависимостей
Вычислить значение функции на отрезке . Табулирование оформить в виде подпрограммы-процедуры,...

Построение графических изображений
Вобщем кто знает подскажите код программы рисунков в паскале Прикрепляйте файлы к теме, нечего...

Построение графических изображений
Помогите разобраться с построением графика Квадратрисы Диностраты. Я как-то пытался наколдовать...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru