Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Заполнить массив из N элементов последовательными натуральными числами https://www.cyberforum.ru/ pascalabc/ thread1419168.html
Напишите программу, которая заполняет массив из N элементов последовательными натуральными числами, начиная с X , и выводит его. Помогите найти ошибку! Var i,n,x:longint; A:array of longint;...
Pascal ABC Вычислить значение выражения
Написать программу Pascal, которая вычисляет значение следующего выражения: {\log }_{5}(xy)-\frac{1}{5}{e}^{\pi }
Pascal ABC Вычислить значение выражения
Написать программу в Pascal, которая вычисляет значение следующего выражения: \sqrt{x+y}-\frac{\pi }{{2}^{y}}
Pascal ABC Вычислить значение выражения Еслит можно, то по быстрей)) https://www.cyberforum.ru/ pascalabc/ thread1418950.html
Pascal ABC В каждой строке матрицы определить количество элементов, больших среднего арифметического https://www.cyberforum.ru/ pascalabc/ thread1418869.html
помогите решить(
Pascal ABC В чём причина невыполнения программы?
program lb7; uses crt; var C:array of integer; A:array of integer; B:array of integer; m,i,j: integer; begin writeln('Введите 10 элементов массива A: '); For i:=1 to 10 do begin
Как заставить работать 2 части программы одновременно? Pascal ABC
Так, как программа линейная то все получается по порядку, а меня это не устраивает. Мне нужно чтобы 1 часть и 2 часть стартанули одновременно Для примера: uses crt; begin{первая часть}...
Pascal ABC Вычисление суммы элементов массива по формуле Программа на языке Паскаль АБС Даны х1,х2,…,х10. Определеить S=\sum_{i=1}^{10}\left(x_i-2 \right)^3+\sum_{i=1}^{10}x^2_i https://www.cyberforum.ru/ pascalabc/ thread1418544.html
Pascal ABC Почему не работает программа? https://www.cyberforum.ru/ pascalabc/ thread1418487.html
Пишет ошибку,почему? uses crt; var n,i,dl,ball1,ball2:integer; a:string; begin ClrScr; Write(' Введите количество человек: '); readln(i); for n:=1 to 1 do begin dl:=12;
Pascal ABC Интегралы. Составить рекурсивную функцию с понижением порядка первообразной функции int x^m*sin(alpha*x)dx = система ур-ий: -(x^m/alpha)*cos(alpha*x)+ m/alpha*int x^(m-1)*cos(alpha*x)dx, если m>=1 -(cos(alpha*x)/alpha)+ C, если m=0. Решить интеграл, используя косвенную... https://www.cyberforum.ru/ pascalabc/ thread1418434.html
0 / 0 / 0
Регистрация: 12.04.2015
Сообщений: 1
0

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

12.04.2015, 17:47. Просмотров 1027. Ответов 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.


Вернуться к обсуждению:
Перевод из turbo Pascal в PascalABC
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
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.