Ide pascal для андроид

Краткое описание:
Pascal IDE на Android

Приложение является портом среды программирования Pascal для платформы Android. Оно даёт возможность обучаться и практиковаться без компьютера, что позволяет заниматься созданием программ абсолютно в любом месте.

Сейчас приложение активно развивается и переодически дополняется недостающими параметрами, функциями, типами данных и т.д. Стоит подчеркнуть, что это порт, а потому весь функционал настольного Pascal не будет перенесён, т.к. некоторые функции не несут серьёзного значения (type cursor, for..in loop, with..do .. statement, . ).

Compile Pascal programs and run them without Internet.
Error when compiling
Powerful editor with many smart features:
1. File menu: create a new program file, open, save, automatically save file
2. Menu edit: Undo, redo, copy, paste
3. Auto suggest: Display a small popup window that suggests words that coincide with the word being typed
4. Auto format: automatically reformat the code for easier viewing
5. Find / Find and replace: Regular Expression support
6. Goto line: Move the cursor to a line
7. Highlight code: highlight the keywords
8. Code style: many interface for the editor
9. Font size, font, word wrap

Ctrl-C, Ctrl-V, Ctrl-X for Copy, Paste and Cut
Ctrl-S, Ctrl-O for File Save / Open
Ctrl-B to compile, check for errors
Ctrl-R to run the program
Ctrl-D to duplicate the current line
Ctrl-Z, Ctrl-Y for Undo / Redo
Ctrl-L for «go to line»
Ctrl-F to Find
Ctrl-A to select all

Pointers
Exceptions
Set, and Variant types
for . in . do loops
with . do statements
goto, label (it will never supported)

The «aTTSpeech» library converts text to speech. See example text_to_speech.pas
The «aRecognition» library converts speech to text (requires Google Voice). See example speech_to_text.pas.
The «aVibrate» library supports vibration control. You see example vibrate.pas
The «aSensor» library supports processing of Android sensors (light, acceleration, . ). See accelerometer_sensor.pas for accelerometer sensor example
The «aNotify» library helps display notifications in the status bar. See the example notify.pas
The «aClipboard» library works with the clipboard in Android. See the clipboard.pas example
The «aBattery» library retrieves the battery information of the device. See battery.pas example

Русский интерфейс: Да

Версия 4.2.7 Premium: Pascal N-IDE (Пост Alex0047 #70249159)
Версия 4.1.7: Pascal N-IDE (Пост Alex0047 #65551024)
Версия 3.4.0: Pascal N-IDE_3.4.0.apk ( 2.62 МБ )

Версия 3.4.0 рус: Pascal N-IDE_3.4.0-рус.apk ( 2.51 МБ )

Версия 3.4.2: Pascal N-IDE_3.4.2.apk ( 2.62 МБ )

Версия 3.4.2 рус: Pascal N-IDE_3.4.2-рус.apk ( 2.51 МБ )

Версия 3.4.5: Pascal N-IDE_3.4.5.apk ( 2.55 МБ )

Версия 3.4.7: Pascal N-IDE_3.4.7.apk ( 2.26 МБ )

Версия 3.4.8: Pascal N-IDE_3.4.8.apk ( 2.27 МБ )

Версия 3.4.9: Pascal N-IDE_3.4.9.apk ( 2.27 МБ )

Версия 3.5.0: Pascal N-IDE_3.5.0.apk ( 2.27 МБ )

Версия 3.5.3: (без русского языка — косяк разраба) Pascal N-IDE_3.5.3.apk ( 2.36 МБ )

Версия 3.5.7: Pascal N-IDE_3.5.7.apk ( 2.67 МБ )

Версия 3.5.9: Pascal N-IDE_3.5.9.apk ( 2.8 МБ )

Версия 3.6.2: Pascal N-IDE_3.6.2.apk ( 2.78 МБ )

Версия 3.6.5: Pascal N-IDE_3.6.5.apk ( 2.79 МБ )

Версия 3.6.7: Pascal N-IDE_3.6.7.apk ( 2.9 МБ )

Версия 3.6.7 [fix]: Pascal N-IDE_3.6.7[fix].apk ( 4.8 МБ )

Версия 3.6.8: Pascal N-IDE_3.6.8.apk ( 4.79 МБ )

Версия 3.7.0: Pascal N-IDE_3.7.0.apk ( 4.98 МБ )

Версия 3.7.2: Pascal N-IDE_3.7.2.apk ( 5.01 МБ )

Версия 3.7.7: Pascal N-IDE_3.7.7.apk ( 5.31 МБ )

Версия 4.0.7: Pascal N-IDE_4.0.7.apk ( 6.49 МБ )

Сообщение отредактировал _blank — 17.04.19, 11:01

const
coeff: array[1..2, 1..12] of -2..2 =
((0, 1, 2, 2, 2, 1, 0, -1, -2, -2, -2, -1),
(2, 2, 1, 0, -1, -2, -2, -2, -1, 0, 1, 2));
delays: array[1..12] of byte =
(50, 56, 56, 50, 56, 56, 50, 56, 56, 50, 56, 56);
lm = 200; <максимальная длина змейки>
k = 4; <радиус тела змейки>
snake_color = 11; <цвет тела змейки>
apple_color = 14; <цвет яблока>
liter_color = 2;

var
i, x, y, d, m: integer;
kl: char;
j, n, sp: byte;
snake: array[1..2, 1..lm] of integer; <массив координат тел змейки>
appl: boolean; <наличие яблока на поле>
apple: array[1..2] of integer;
points: word; <текущее число очков>
spoints: string;

procedure nach; forward;

procedure ending;
begin
sound(400);
delay(800);
NoSound;
setcolor(liter_color);
OutTextXY(100, 10, ‘Игра окончена! Число очков: ‘ + spoints);
OutTextXY(100, 24, ‘Сыграть ещё? (Y / N)’);
readln(kl);
closegraph;
if kl = ‘Y’ then nach
else halt;
end;

procedure krug(a, b: integer; c: shortint);
begin
setcolor(c);
circle(a, b, k);
end;

function color_pt: boolean; <для яблока>
var
i, j: integer;
begin
color_pt := true;
for i := 1 to k + 1 do
for j := 1 to k + 1 do
if getpixel(apple[1] — 3 + i, apple[2] — 3 + j) <> 0 then
color_pt := false;
end;

procedure scanner; <сканирование первого тела на собственный цвет>
var
t: integer;
begin
for t := -k + 2 to k — 2 do
begin
if getpixel(x + t, y) = snake_color then ending;
if getpixel(x, y + t) = snake_color then ending;
end;
if (x = 630 — k) or <если голова вышла за пределы поля>
(y = 470 — k) then ending;
end;

procedure point; <изменение кол-ва очков и вывод на экран>
begin
inc(points, 5 * sp);
sp := (points div 100) + 1;
str(points, spoints);
setcolor(red);
rectangle(1, 1, 100, 35);
setfillstyle(0, black);
floodfill(2, 2, red);
setcolor(black);
rectangle(1, 1, 100, 35);
setcolor(liter_color);
OutTextXY(10, 10, ‘Очки: ‘ + spoints);
end;

procedure appling; <помещение яблока на поле>
begin
repeat
apple[2] := 55 + random(400);
apple[1] := 25 + random(590)
until color_pt = true;
krug(apple[1], apple[2], apple_color);
appl := true;
end;

procedure moving;
begin
while not keypressed do
begin
inc(j);
if j = lm + 1 then j := 1;
snake[1, j] := x;
snake[2, j] := y;
krug(x, y, snake_color);
if j 22.03.17, 21:49 | #4
●

Дело в том, что это довольно сырая версия, но ввиду того, что последнее обновление было недавно, есть надежда на улучшение. Кстати, в приложении есть багрепорт, так что о невыполнении или некорректности какой либо из команд, лучше писать туда, напрямую разработчику.

Сообщение отредактировал _blank — 22.03.17, 21:49

Источник