#pas
function Power(st,nm:integer):integer;
var i:integer;
begin
Result := nm;
for i:=1 to st-1 do Result := Result*nm;
end;
Этот топик читают: Гость
Разработчик
Ответов: 4698
Рейтинг: 426
|
|||
А почему нельзя сразу сделать вот так?
|
|||
карма: 10 |
|
Ответов: 1321
Рейтинг: 37
|
|||
Assasin писал(а): Да, и почему Power := nm; ? Вроде бы в дельфи Result := nmЯ учебник по Delphi читал там так написано |
|||
карма: 0 |
|
Ответов: 3349
Рейтинг: 233
|
|||
Assasin, Это старый механизм, более совместимый с Pascal'eм
|
|||
карма: 1 |
|
Разработчик
Ответов: 4698
Рейтинг: 426
|
|||
Ivann писал(а): Assasin, Это старый механизм, более совместимый с Pascal'eмВот именно, я потому и сказал об этом, просто не знал, что в Delphi есть поддержка паскалевской записи Result |
|||
карма: 10 |
|
Разработчик
Ответов: 26113
Рейтинг: 2126
|
|||
Кстати, вы рассматриваете синтаксис обычного Паскаля, а как же объектный Паскаль в котором, кстати, появляется еще одна зарезервированная переменная
|
|||
карма: 22 |
|
Ответов: 3349
Рейтинг: 233
|
|||
nesco писал(а): однаНе одна |
|||
карма: 1 |
|
Разработчик
Ответов: 26113
Рейтинг: 2126
|
|||
Ivann писал(а): Не однаИ какие, я имел в виду Self -- указатель на экземпляр класса или объекта |
|||
карма: 22 |
|
Ответов: 3349
Рейтинг: 233
|
|||
nesco писал(а): я имел в виду SelfТак в Паскале и классов не было |
|||
карма: 1 |
|
Ответов: 1321
Рейтинг: 37
|
|||
Что означает эта функция?
|
|||
карма: 0 |
|
Ответов: 3889
Рейтинг: 362
|
|||
Roma, радует мой глаз)) Это ассемблер, дополнительные десятеричные вычисления. Первая тетрада (4 бита) входного байта превращается в ASCII код символа, кодирующего эти биты, то есть в [0123456789ABCDEF], потом происходит обмен и конвертируется вторая тетрада. На выходе в регистре AX получаем два байта HEX кодов символов, соответствующих входному байту.
|
|||
карма: 1 |
|
Ответов: 1321
Рейтинг: 37
|
|||
[flood]Где научится делать такие?[/flood]
|
|||
карма: 0 |
|
Ответов: 3889
Рейтинг: 362
|
|||
Roma, это чистый ассемблер x86, будет работать начиная с 8086, так как 16-битные вычисления)) Меня ностальгия мучать начинает)
------------ Дoбавленo в 22.25: [offtop]Если Вы научитесь делать такой IC, то Ваши программы смогут соревноваться в скорости, а кое-где и обгонять написанные на CC++ ))[/offtop] |
|||
карма: 1 |
|
Администрация
Ответов: 15295
Рейтинг: 1519
|
|||
1nd1g0 писал(а): Если Вы научитесь делать такой IC, то Ваши программы смогут соревноваться в скорости, а кое-где и обгонять написанные на CC++ ))ээ неет только опытный ASM программист способен написать на нем программу(средней и высокой сложности), превосходящую по скорости C и C++ аналоги. |
|||
карма: 27 |
|
Ответов: 3889
Рейтинг: 362
|
|||
Dilma, не будем недооценивать потенциал Roma раньше времени
|
|||
карма: 1 |
|
Ответов: 1321
Рейтинг: 37
|
|||
А то у меня выдаёт ошибку C:\Program Files\HiAsm\Elements\delphi\code\HiAsmUnit.pas(9) Error: ',' or ':' expected but '=' found ------------ Дoбавленo в 21.28: Или класс может быть только 1? |
|||
карма: 0 |
|