Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 12.04.2015
Сообщений: 1
1

Перевод из turbo Pascal в PascalABC

12.04.2015, 17:47. Просмотров 1016. Ответов 2
Метки нет (Все метки)

Здравствуйте. Я не очень силен в программировании и перевод занимает долгое время. Очень сильно прошу вашей помощи: буду признателен, если поможете переделать программу, созданную в turbo Pascal, под PascalABC.NET.

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
Program sharik;
Uses graph, crt;
 
Procedure game(t: word);
Var gd, gm, x0, y0, x1, score: integer;
    x, y, dx: array[1..3] of integer;
    s: string[16];
Const r = 5;
Begin
Randomize;
gd := Detect;
InitGraph(gd, gm, '');
x0 := GetMaxX;
y0 := GetMaxY;
For i := 1 to t do
begin
    x[i] := 100 + 2 * r + Random(300);
    y[i] := 60 * (i - 1);
    dx[i] := r * Random(3);
end;
x1 := 200;
score := 0;
Repeat
    {Отрисовка}
 
    ClearViewPort;
    {Игровое поле}
    SetColor(15);
    Line(100, 0, 100, y0);
    Line(x0 - 100, 0, x0 - 100, y0);
    {Корзина}
    SetColor(8);
    MoveTo(x1, 420);
    LineTo(x1 + 40, 420);
    LineTo(x1 + 35, 460);
    LineTo(x1 + 5, 460);
    LineTo(x1, 420);
    {Шарик}
    SetColor(9);
    For i := 1 to t do Circle(x[i], y[i], 2 * r);
    {Счет}
    Str(score, s);
    s := 'Score: ' + s;
    OutTextXY(10, 10, s);
 
    {Расчет передвижения}
 
    {Смещение корзины}
 
    if keypressed then
    begin
        b := readkey;
        if b = #0 then
        begin
            b := b + readkey;
            case b[2] of
                #77: if x1 < 500 then x1 := x1 + 15;
                #75: if x1 > 100 then x1 := x1 - 15;
            end;
        end;
    end;
    {Проверка на удар о стену}
    For i := 1 to t do if (x[i] < 100 + 2 * r) or (x[i] >= x0 - (100 + 2 * r)) then dx[i] := -dx[i];
    {Проверка на попадание в корзину}
    For i := 1 to t do
    begin
        if y[i] >= 425 then
        begin
            if (x[i] + 2 * r >= x1) and (x[i] - 2 * r <= x1 + 40) then score := score + 1;
            x[i] := 100 + 2 * r + Random(300);
            y[i] := 60 * (i - 1);
            dx[i] := r * Random(3);
        end;
    end;
    {Смещение шарика}
    For i := 1 to t do
    begin
        x[i] := x[i] + (dx[i] * t);
        y[i] := y[i] + (r *t);
    end;
    Delay(100);
Until b[1] = #27;
 
Closegraph;
end;
{-------------------------------------------}
End.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.04.2015, 17:47
Ответы с готовыми решениями:

Переделайте программу из Turbo Pascal в PascalABC
ПРОГРАММА: uses crt,TBL,graph; {подключение модулей} function PrintNumbers(const yk:...

В чем отличия Turbo Pascal от PascalABC
хотелось бы знать какие между ними различия)

Переделать код программы из Turbo Pascal в PascalABC
Ребят может кто-нибудь помочь пожалуйста из PascalABC.NET в PascalABC переделать код программы и...

Как переписать программу, написанную в PascalABC, для работы в Turbo Pascal, и наоборот?
работа с модулем Graph.

2
Модератор
62542 / 46715 / 32198
Регистрация: 18.05.2008
Сообщений: 113,062
12.04.2015, 17:51 2
А это чудо в Турбо разве работает?
0
2508 / 1129 / 582
Регистрация: 07.06.2014
Сообщений: 3,281
12.04.2015, 18:27 3
Цитата Сообщение от Puporev Посмотреть сообщение
А это чудо в Турбо разве работает?
нет. оно вообще даже не скомпилируется.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.04.2015, 18:27

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Перевод кода с Turbo Pascal
нужна помощь с переработкой кода из ТурбоПаскаль в ПаскальАБС. тут используеться метод плавающего...

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница?
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo Pascal, Pascal ABC,...

Указатели в Turbo Pascal и PascalABC
Вопрос: почему в Turbo Pascal тактая конструкция const TAB = ^I; begin end. работает, а...

Перевод с Turbo Pascal на PascalABC.NET
господа, можете помочь? у меня тут программа написана на языке турбо паскаль. пожалуйста переводите...


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

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

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