Кто может перевести с Паскаля на язык Си?
27.03.2015, 19:29. Показов 345. Ответов 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. |
|
0
|