IPB
ЛогинПароль:

> Что выдаст программа? СОРЕВНОВАНИЕ :)
Что быдет на экране после выпонения?
Что быдет на экране после выпонения?
Нельзя ответить на этот вопрос. (напишите почему) [ 1 ] ** [14.29%]
Будет выведенно слово. (напишите какое) [ 4 ] ** [57.14%]
В программе ошибка. (напишите какая) [ 0 ] ** [0.00%]
Достал ты всех со своими вопросами (не требует пояснения) [ 2 ] ** [28.57%]
Всего голосов: 7
Гости не могут голосовать 
Altair
сообщение 19.06.2004 13:42
Сообщение #1


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Вот код:

Код


{ 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.


НЕ ПОЛЬЗОВАТЬСЯ КОМПИЛЕРОМ!!!!!!


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 6:45
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"