![]() |
![]() |
Altair |
![]()
Сообщение
#1
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
Вот код:
Код { program. Compiler - Turbo Pascal 7.0 } Procedure ClrScr; assembler; {Ќг Ґв® зв®Ўл CRT Ґ Ї®¤Є«оз вм :) } asm MOV AL,$00 MOV AH,$06 MOV BH,$07 MOV CX,$0000 MOV DX,$184F int $10 MOV AH,$02 MOV BH,$00 MOV DH,$00 MOV DL,$ int $10 end; var s:string; b:array[1..6] of byte absolute s; a:word; d:byte absolute a; I:byte; s1:string; begin ClrScr; asm mov ah,$00 mov al,$50 mov a, ax end; b[1]:=Lo(a); b[2]:=ORD('a'); b[3]:=115+Lo(a)-d; b[4]:=99; b[5]:=ORD(#97); b[6]:=$6C; for i:=0 to 5 do begin s1[succ(i)]:=s[i]; inc(s1[0]) end; writeln(s1,' !'); end. НЕ ПОЛЬЗОВАТЬСЯ КОМПИЛЕРОМ!!!!!! -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
![]() ![]() |
P@sh@ |
![]()
Сообщение
#2
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 180 Пол: Мужской Репутация: ![]() ![]() ![]() |
Именно "Pascal", компиляторы не нужны, достаточно в таблицу кодов символов заглянуть, или в ближайшем редакторе с ALTом эти коды набрать
|
![]() ![]() |
![]() |
Текстовая версия | 22.06.2025 23:11 |