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

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

Войти
Регистрация
Восстановить пароль
 
Людка
0 / 0 / 0
Регистрация: 07.12.2012
Сообщений: 25
#1

нужно перевести с паскаля на с++ - C++

17.06.2013, 21:55. Просмотров 194. Ответов 0
Метки нет (Все метки)

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
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:=-4; y2:=4;            // max и
x1:=-2; x2:=2;           //  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:=-2 to 2 do begin
line(x0+i*175,y0,x0+i*175,y0+12);
textout(x0+i*175,y0+5,IntToStr(i));
end;
{Отмечаем деления на Оy}
for i:=-4 to 4 do begin
if i<>0 then begin
line(x0,y0-i*31,x0+12,y0-i*31);
textout(x0+20,y0-i*31,IntToStr(i));
end;
end;
{надписи}
 SetFontSize(20);
 SetFontColor(clPurple);
 textout(105,55,'y = |x|');
 textout(130,90,'Выполнила ...');
 SetFontSize(14);
 SetFontColor(clgreen);
 textout(685,y0,'х');
 textout(x0+35,5,'y');
{график}
x:=x1;
while x<=x2 do begin
y:=Abs(x);
putpixel(x0+round(x*mx),y0-round(y*my),clred);
x:=x+dx;end;
{движение шарика}
x:=x1;
repeat
y:=Abs(x);
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*175,y0,x0+i*175,y0+12);
     textout(x0+i*175,y0+5,IntToStr(i));
     end;
     i:=-1;
     line(x0,y0-i*31,x0+12,y0-i*31);
     textout(x0+20,y0-i*31,IntToStr(i));
     a:=x1;
  while a<=x2 do begin
  b:=Abs(a);
  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
17.06.2013, 21:55
Здравствуйте! Я подобрал для вас темы с ответами на вопрос нужно перевести с паскаля на с++ (C++):

нужно перевести с Паскаля на С++ - C++
Найти в массиве: 1) сумму элементов с нечётными номерами 2) Сумму элементов между первым и последним отрицательными элементами 3) в...

нужно перевести с паскаля на с++ - C++
uses crt; var E,x,p,t:real; k:integer; { Возведение х в степень к } function step(x:real;k:integer):real; var i: integer; ...

Нужно перевести программу из Паскаля в С++ - C++
К сожалению С++ только начали изучать, а программ задали много Delphi знаю хорошо Задача 1.Составить программу упорядочения по...

Нужно перевести программу из Паскаля в С++ - C++
Помогите пожалуйста перевести. Из Паскаля в С++ Код программы Паскаля: program Hello; var i:integer; begin ...

Нужно перевести коды программ с паскаля, в С++! - C++
Если целое число M делится нацело на целое число N, то вывести на экран частное от деления, в противном случае - сообщение ''M на N нацело...

Нужно перевести из паскаля в Си. Определить сумму положительных элементов - C++
uses crt; const nmax=20; var a:array of integer; b,ab:array of integer; m,n,i,j,k:byte; begin clrscr; randomize; ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.06.2013, 21:55
Привет! Вот еще темы с ответами:

перевести на c++ с паскаля - C++
переведите пожалуйста как написать эти строчки на с++ for i:=1 to Length(s) do for j:=length(sl) downto 1 do Добавлено...

перевести с Паскаля в с++ - C++
Var s:string; i,k:integer; b:boolean; Begin write('Введите строку: ');readln(s); if Length(s) in then k:=1 else...

Перевести с Паскаля на C++ - C++
как заменить этот же код на С++ ?? const nmax = 100; type arr = array of real; var a:arr; i,j,n,imax,jmax:integer; ...

перевести из паскаля в с++ - C++
program spektr; uses crt; type vect=arrayof integer; var f,g:vect; j,i,n:integer; BEGIN clrscr; write('n=');...


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

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

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