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

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

Войти
Регистрация
Восстановить пароль
 
TrueLove
0 / 0 / 0
Регистрация: 20.06.2013
Сообщений: 30
#1

перевести с Pascal на С++ - C++

21.06.2013, 00:08. Просмотров 282. Ответов 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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
uses crt;
var a,s,x:real;
    i:integer;
    eps:real;
function fct(n:integer): real;
var f: real; i: integer;
begin
  f:=1;
  for i:=1 to n do
    f:=f*i;
  fct:=f;
end;
function Pw(a:real;n:integer):real;
var p:real; i: integer;
begin
  p:=1;
  for i:=1 to n do
    p:=p*a;
  pw:=p;
end;
  begin
  writeln('Введите точность e=');
  readln(eps);
  writeln('Введите x abs(x)');
  readln(x);
  a:=x*x/2;
  i:=0;
  s:=0;
while abs(a-1)>eps do begin
 inc(i);
 a:=pw(-1,i)/fct(i)!^2))!/fct(2*i+1)!/fct(2i+2)!/pw(x,2*i+2);
 s:=s+a;
 end;
  writeln(s);
  readln(s);
end.
 
2)
 
uses  crt,graphABC;
var v,x1,x2,y1,y2:integer;
x,dx,y,mx,my,a,b:real;
w,h,x0,y0,i:integer;
st:string;
begin
clrscr;
SetWindowSize(700,560);
writeln('введите скорость от 1 до 10');
readln(v);
i:=0;
dx:=0.008;
h:=560; w:=700;
y1:=-6; y2:=6;            // max и
x1:=-3; x2:=3;           //  min
my:=h/abs(y2-y1);  mx:=w/abs(x2-x1);
{oси координат}
x0:=350;  y0:=230;
line(x0,y0+h,x0,y0-h);
line(x0-w,y0,x0+w,y0);
{Отмечаем деления на Ох}
for i:=-4 to 4 do begin
line(x0+i*121,y0,x0+i*121,y0+12);
textout(x0+i*121,y0+5,IntToStr(i));
end;
{Отмечаем деления на Оy}
for i:=-8 to 8 do begin
if i<>0 then begin
line(x0,y0-i*47,x0+12,y0-i*47);
textout(x0+20,y0-i*47,IntToStr(i));
end;
end;
{надписи}
 SetFontSize(20);
 SetFontColor(clPurple);
 textout(85,375,'y = -x^2-3');
 textout(60,420,'Выполнил Волков Александр, И-1');
 SetFontSize(14);
 SetFontColor(clgreen);
 textout(685,y0,'х');
 textout(x0+35,5,'y');
{график}
x:=x1;
while x<=x2 do begin
y:=(-x*x)+3;
putpixel(x0+round(x*mx),y0-round(y*my),clred);
x:=x+dx;end;
{движение шарика}
x:=x1;
repeat
y:=(-x*x)+3;
SetPenColor(clblack);
SetBrushColor(clLime);
circle(x0+round(x*mx),y0-round(y*my),20);
delay(50);
   {восстановление стертых}
   line(x0,y0+h,x0,y0-h);
   line(x0-w,y0,x0+w,y0);
     SetBrushColor(clWhite);
     SetFontSize(10);
     SetFontColor(clblack);
     for i:=0 to 1 do begin
     line(x0+i*121,y0,x0+i*121,y0+12);
     textout(x0+i*121,y0+5,IntToStr(i));
     end;
     i:=-1;
     line(x0,y0-i*47,x0+12,y0-i*47);
     textout(x0+20,y0-i*47,IntToStr(i));
     a:=x1;
  while a<=x2 do begin
  b:=(-a*a)+3;
  putpixel(x0+round(a*mx),y0-round(b*my),clred);
  a:=a+dx;end;
{затирание}
SetPenColor(clwhite);
circle(x0+round(x*mx),y0-round(y*my),22);
x:=x+dx*v;
until (x>x2);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.06.2013, 00:08
Здравствуйте! Я подобрал для вас темы с ответами на вопрос перевести с Pascal на С++ (C++):

Перевести с Pascal на С++ - C++
помогите пожалуйста с переводом на язык с++ Procedure ReadLong(Var A : Tlong); Var ch : char; i : Integer; Begin FillChar(A,...

Перевести с Pascal на С++ - C++
Помогите пожалуйста Дано натуральное число n, переставить местами первую и последнию цифру местами uses crt; var...

Перевести с Pascal на C++ - C++
Всем привет) есть задачи: 1) Поменять местами в каждом слове первую половину слова со второй. Есть решение этих задач, но нужно мне...

Перевести с Pascal на С++ - C++
Нужно перевести начало, хотяб до процедур из Pascal на С++ Я застрял на пункте x:array of pp; и не могу понять, как это в С++ прописать...

Перевести с Pascal на C++ - C++
Всем привет) есть задачи: 2) Слова, содержащие сочетание ‘кот’, расположить в конце последовательности, сохраняя исходный порядок...

Перевести с pascal на c++ - C++
Помогите тоже перевести из Pascal в с+ visual studio 6.0 Нашел тут похожую на свою задачу, хочу разобраться, но учу только с++ (( ...

2
tzeentch
25 / 25 / 2
Регистрация: 13.04.2013
Сообщений: 79
21.06.2013, 00:57 #2
Не надоело? Я кажись, уже писал: стандартная библиотека C++ рисовать не умеет.
Укажите какую среду (IDE и компилер) вы используете.
0
TrueLove
0 / 0 / 0
Регистрация: 20.06.2013
Сообщений: 30
21.06.2013, 01:04  [ТС] #3
любая без разницы
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.06.2013, 01:04
Привет! Вот еще темы с ответами:

Перевести из Pascal на C++ - C++
Var n,p1,p2,i,k,j:integer; Begin write('Введите N: ');readln(n); For i:=n-1 downto 2 do Begin k:=0; For...

Перевести на C++ из Pascal - C++
Буду очень рад тому, кто переведет из Pascal на C++ :) procedure ChangeToInc(var st:string); var f:boolean; begin f:=true;...

Перевести с Pascal на C++ - C++
uses crt; var a,y:extended; i:longint; begin clrscr; write('a=');readln(a); if a&lt;1 then begin writeln('1'); ...

Перевести с Pascal на C++ - C++
Program kirill; uses crt; function KvSumCif(a,b:integer):boolean; var sum,i,x,code:integer; s:string; begin str(a,s); ...


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

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

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