Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Низкоуровневое программирование > Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 12.05.2008, 15:33   #1
rip
Новичок
Джуниор
 
Регистрация: 03.05.2008
Сообщений: 1
По умолчанию преобразовать Delphi код в assembler

Код:
for i:=1 to n do
  s:=inttostr(i);
  s1:=inttostr(i*i);
if s=copy(s1,length(s1)-length(s+1,length(s1)-length(s))) then
 writeln(i)

Последний раз редактировалось rpy3uH; 12.05.2008 в 19:45.
rip вне форума Ответить с цитированием
Старый 12.05.2008, 15:46   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

Цитата:
copy(s1,length(s1)-length(s+1,length(s1)-length(s)))
Это работать не будет.

Хотя в принципе если разберешся с этим то в принципе можно сделать это так:
Код:
	include d:\masm32\include\masm32.inc

	includelib d:\masm32\lib\masm32.lib

s				db 20 dup(0)
s1				db 20 dup(0)
ok				db "Равны"

		;

		 xor ebx,ebx
		 mov bx,4
		 .while bx!=0
		  invoke dwtoa, ebx,addr s
		  mov ax,bx
		  mul ax
		  invoke  dwtoa,eax,addr s1
		  mov esi, offset s
		  mov edi, offset s1
		  invoke szCmpi, addr s, addr s1, 20
		  .if eax==0
			invoke SendMessage,hwndlistbox1, LB_ADDSTRING,0, addr ok;
		  .endif

		  dec bx
		 .endw

		;

Последний раз редактировалось Stilet; 12.05.2008 в 16:10.
Stilet вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как преобразовать код SeRhy HTML и CSS 1 17.08.2008 15:50
Как преобразовать типы NeiL Общие вопросы C/C++ 1 31.05.2008 14:43
БД аксесс преобразовать в формат SQL Ane4ka SQL, базы данных 2 26.05.2008 07:50
преобразовать код С++ в С++.Net Alek86 Общие вопросы .NET 4 01.10.2007 12:00
ПРЕОБРАЗОВАТЬ malevich Общие вопросы Delphi 1 07.12.2006 22:08


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS