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

Кто может перевести с Паскаля на язык Си? - C++

27.03.2015, 19:29. Просмотров 210. Ответов 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
uses
  Graph, crt;
 
var
  X, y, r: integer;
  Dx: integer;
  Dt: integer; 
  grDriver: integer; 
  grMode: integer;
  grPath: string; 
  ErrCode: integer; 
 
begin
  grDriver := detect;
  InitGraph(grDriver, grMode, ' ');
  if ErrCode <> grOk then Halt(l);
  X := 0; Y := 100; 
  R := 10; 
  Dx := 2; 
  Dt := 1000; 
  while x < 639 do
  begin
    SetColor(yellow);
    Circle(x, y, r);
    Delay(dt); 
    SetColor(0); Circle(x, y, r); 
    x := x + dx; 
  end;
  readln;
  CloseGraph;
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
  Graph, crt;
 
const
  Dx = 5; Dy = 5;
 
var
  grDriver: integer; grMode: integer;
  grPath: string; EveCode, x, y: integer;
  Color, BkColor, OldColor: word;
 
procedure Titanik(x, y: integer; color: word);
const
  dx = 5; dy = 5;
var
  OldColor: word;
begin
  SetColor(color);
  Line(x + 10 * dx, y - 5 * dy, x + 10 * dx, y - 10 * dy);
  Moveto(x + 17 * dx, y - 3 * dy);
  Lineto(x + 10 * dx, y - 10 * dy);
  Lineto(x, y - 2 * dy); Setcolor(blue); OldColor := GetColor;
  SetColor(color); Moveto(x, y);
  LineTo(x, y - 2 * dy);
  LineTo(x + 10 * dx, y - 2 * dy);
  LineTo(x + ll * dx, y - 3 * dy);
  LineTo(x + 17 * dx, y - 3 * dy);
  LineTo(x + 14 * dx, y);
  LineTo(x, y);
  MoveTo(x + 3 * dx, y - 2 * dy);
  LineTo(x + i * dx, y - 3 * dy);
  LineTo(x + 4 * dx, y - 4 * dy);
  LineTo(x + 13 * dx, y - 4 * dy);
  LineTo(x + 13 * dx, y - 3 * dy);
  Line(x + 5 * dx, y - 3 * dy, x + 9 * dx, y - 3 * dy);
  Rectahgle(x + 8 * dx, y - 4 * dy, x + ll * dx, y - 5 * dy);
  Rectangle(x + 7 * dx, y - 4 * dy, x + 8 * dx, y - 7 * dy);
  Circle(x + 12 * dx, y - 2 * dy, Trunc(dx / 2));
end;
 
begin
  GrDriver := detect;
  InitGraph(grDriver, grMode, ' ');
  Evecode := GraphResult;
  if EveCode <> grOk then Halt(1);
  X := 10; Y := 200;
  Color := lightgray;
  SetBkColor(Blue);
  BkColor := GetBkColor;
  repeat
    X := X + 1; Titanik(x, y, white);
    Delay(1000); Titanik(x, y, 9);
  until (x > 500);
  OutTextXY(10, 10, '1212! ' );
  Readln;
  CloseGraph;
end.
3
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
  Crt, Graph;
 
var
  Gd, Gm: integer;
  X, y, xl, yl: real;
 
procedure korablik(x, y, m, color: integer);
begin
  Moveto(x, y); setcolor(color);
  lineRel(10 * m, 0 * m);lineRel(0 * m, -20 * m); lineRel(10 * m, 10 * m);
  lineRel(-10 * m, 10 * m);
  lineRel(20 * m, 0 * m); linerel(-10 * m, 10 * m); lineRel(-10 * m, 0 * m);
  LineRel(-10 * m, -10 * m);
end;
 
begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  if GraphResultOgrOk then
    Halt(1);
  Line(0, 240, 640, 240);
  Line(320, 0, 320, 480);
  X := -2 * 3.14; readln;
  while x < 2 * 3.14 do
  begin
    Y := sin(x);
    Korablik(round(50 * x + 320), round(-50 * y + 240), 1, 14 );
    korablik(round(50 * x + 300), round(-50 * sin(x + 3.14 / 2) + 200), 1, 15);
    delay(10000);
    korablik(round(50 * x + 320), round(-50 * y + 240), 1, 0);
    korablik(round(50 * x + 300), round(-50 * sin(x + 3.14 / 2) + 200), 1, 0);
    x := x + 0.01;
  end;
  Readln;
  CloseGraph;
end.

http://www.cyberforum.ru/cpp-beginners/thread906568.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.03.2015, 19:29
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Кто может перевести с Паскаля на язык Си? (C++):

Кто может перевести из паскаля в с++?
uses crt; var i,j,n,k: integer; begin read(n); for i:=1 to n div 2 do ...

перевести на язык С++ с Паскаля
переведите пожалуйста сумму бесконечного ряда uses crt; var a,s,x:real; ...

Кто может преобразовать код из Паскаля на С++?
111

кто может преобразовать код из Паскаля на С++? выручайте
program Nu_pogodi; //3-3 Добавляем модуль Timers uses GraphABC, Timers;...

кто может перевести код в с++
нужно перевести код в С++ В с++ вообще не понимаю ,а вот в паскале набрасал...

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

Может кто перевести эту прогу,для codeblocks
#include &quot;stdafix.h&quot; #include &lt;iostream&gt; using namespace std; int...

Перевести с паскаля на С++
Program p1; Var x,i,n:integer; Begin Write ('n= '); Read (n); x:=10;...

Перевести с Паскаля на Си
Структура элемента массива работник: фамилия, число, месяц и год рождения, пол....

Перевести с Паскаля на Си
uses crt; var a,n:Longint; b:boolean; begin clrscr;...


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

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

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