Страница 1 из 3
Девчонки, поздравляем вас с 8 марта!
Добавлено: 2008-мар-06 13:40
band
//Девчата! С праздничком!
For ii:=1 to 1000000 do
begin
setlength(WishList,ii);
WishList[ii-1]:=
’Быть счастливой, ’+
’дружбы, любви и тепла от окружающих, ’+
‘цветов и тортов побольше и безнаказанно, ’+
‘мешок денег’;
end;
Re: Девчонки, поздравляем вас с 8 марта!
Добавлено: 2008-мар-06 14:08
Nataska_s_k
band писал(а):For ii:=1 to 1000000 do
begin
setlength(WishList,ii);
WishList[ii-1]:=
Уверен в коде? :)
Хорошо протестировал? :)
Re: Девчонки, поздравляем вас с 8 марта!
Добавлено: 2008-мар-06 14:30
cin
извините за корявый почерк
Re: Девчонки, поздравляем вас с 8 марта!
Добавлено: 2008-мар-06 14:43
band
Паша, для девчонок сойдёт поздравлялка и с использованием динамического массива на Delphi, а вот тебе надо на атмеловском асме писать...
Наташа, в Delphi с динамическим массивом (скажем, одномерным для простоты) работают так:
var
MyArray: array of TSomeType;
VSomeType:TSomeType;
...
setlength(MyArray,0); //массив имеет нулевую длину
MyArray:=nil;//то же самое
Free(MyArray); //то же самое
setlength(MyArray,1); //можем записать один элемент, счёт от нуля
MyArray[0]:=VSomeType;
Setlength(MyArray,1003);
MyArray[1002]:=VSomeType;//последний элемент, счёт от нуля
MyArray[1003]:=VSomeType;//так нельзя, баг
P.S. Полностью программу писать не буду, это лишь пример...
P.P.S. В результате будет массив с кучей одинаковых строк одной и той же длины.
Re: Девчонки, поздравляем вас с 8 марта!
Добавлено: 2008-мар-06 15:00
Nataska_s_k
band писал(а):Наташа, в Delphi с динамическим массивом (скажем, одномерным для простоты) работают так:
var MyArray: array of TSomeType;
...
setlength(MyArray,0); //массив имеет нулевую длину
setlength(MyArray,1); //можем записать один элемент, счёт от нуля
MyArray[0]:=VSomeType;
Setlength(MyArray,1003);
MyArray[1002]:=VSomeType;//последний элемент, счёт от нуля
MyArray[1003]:=VSomeType;//так нельзя, баг
ну ошибка как минимум в том, что не описаны переменные :)
про то, что имеется ввиду динамический массив была мысль,
НО просто такая же функция есть в строковых,
в таком случае результат будет
Б
ББ
БББ
...до 100 тысяч Б :)
установленного Delphi, к сожалению, сейчас нет.
давно не пользовалась
Re: Девчонки, поздравляем вас с 8 марта!
Добавлено: 2008-мар-06 15:01
Vlan
Код: Выделить всё
Процедура Сформировать()
Би=СоздатьОбъект("БухгалтерскиеИтоги");
Би.ИспользоватьСубконто(ВидыСубконто.Сотрудники);
Би.ВыполнитьЗапрос(,Дата("08.03.2008"),"70");
Би.ВыбратьСубконто();
Пока Би.ПолучитьСубконто()=1 Цикл
Если Би.Субконто().Пол=Перечисление.Пол.Женский Тогда
Сообщить(Би.Субконто().Наименование+", с праздником Вас!");
Иначе
Сообщить(Би.Субконто().Наименование+", гони 1000 р. на подарок!");
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Re: Девчонки, поздравляем вас с 8 марта!
Добавлено: 2008-мар-06 15:09
Verholazzz
Замысловато вы, коллеги, девченок поздравляете...
Да и рановато. Спускаться с этой горы надо вовремя, и медленно, как в анекдоте
Re: Девчонки, поздравляем вас с 8 марта!
Добавлено: 2008-мар-06 15:14
Nataska_s_k
а можно еще вариант на обычном ассемблере? :)
Re: Девчонки, поздравляем вас с 8 марта!
Добавлено: 2008-мар-06 15:15
band
Это к Паше - я ассемблером пользовался в ещё более древние времена, чем ты Delphi.
Кстати, почему одинэсники листинги пишут по-русски, когда можно (и нужно бы) латиницей?
Re: Девчонки, поздравляем вас с 8 марта!
Добавлено: 2008-мар-06 15:17
cin
я вообще слова такое не знаю. осемблир это кто?
а по русски пишут, потому что так удобно. мы же в россии живем.
поскаль переводили же в лохматом году на русский.
Re: Девчонки, поздравляем вас с 8 марта!
Добавлено: 2008-мар-06 15:20
band
Ага, сидишь с дизассемблером над клиентом слежения, используемом СБ, попутно запустив сниффер по сеточке, и делаешь вид, что ты простой пользователь...
Re: Девчонки, поздравляем вас с 8 марта!
Добавлено: 2008-мар-06 15:22
Vlan
Nataska_s_k писал(а):а можно еще вариант на обычном ассемблере? :)
Код: Выделить всё
.model tiny
.code
.startup
mov ah,09h
mov dx,offset Msg
int 21h
ret
Msg db 'С праздником!'
db '$'
end
Re: Девчонки, поздравляем вас с 8 марта!
Добавлено: 2008-мар-06 15:23
Nataska_s_k
band писал(а):Кстати, почему одинэсники листинги пишут по-русски, когда можно (и нужно бы) латиницей?
ну не повезло им :)
исторически так сложилось.
Re: Девчонки, поздравляем вас с 8 марта!
Добавлено: 2008-мар-06 15:25
Nataska_s_k
Vlan писал(а):Nataska_s_k писал(а):а можно еще вариант на обычном ассемблере? :)
Код: Выделить всё
.model tiny
.code
.startup
mov ah,09h
mov dx,offset Msg
int 21h
ret
Msg db 'С праздником!'
db '$'
end
А теперь добавить графику? :)
Re: Девчонки, поздравляем вас с 8 марта!
Добавлено: 2008-мар-06 15:26
Vlan
Nataska_s_k писал(а):А теперь добавить графику? :)
Вот женщины... По локоть палец норовят укусить. Я и это-то из Hallo World передрал.
Re: Девчонки, поздравляем вас с 8 марта!
Добавлено: 2008-мар-06 15:39
band
;Влад! В наше время использовать досовский ассемблер - моветон, похоже на как надрать цветы из клумбы
;Будет ей графический интерфейс!
Include def32.inc
Include kernel32.inc
Include user32.inc
.386
.model flat
.const
win_title db ‘С праздником, девчонки!’
win_mess db ‘Я вас обожаю!’
.code
_start:
push MB_ICONINFORMATION
push offset win_title
push offset win_mess
push 0
call MessageBox
push 0
call ExitProcess
end _start
Re: Девчонки, поздравляем вас с 8 марта!
Добавлено: 2008-мар-06 15:52
Nataska_s_k
band писал(а):;Влад! В наше время использовать досовский ассемблер - моветон, похоже на как надрать цветы из клумбы
Влан все правильно понял, имелся ввиду именно досовский ассемблер.
Re: Девчонки, поздравляем вас с 8 марта!
Добавлено: 2008-мар-06 16:06
Vlan
(Озираясь) А кто тут Влад?
Re: Девчонки, поздравляем вас с 8 марта!
Добавлено: 2008-мар-06 16:18
Danil
Код: Выделить всё
.model tiny
.code
.startup
mov ah,09h
mov dx,offset Msg
int 21h
ret
Msg db 'С праздником!'
db '$'
end
21 байт
Re: Девчонки, поздравляем вас с 8 марта!
Добавлено: 2008-мар-06 16:27
band
21 байт, int21h... Образ мысли интересен и продолжение предсказуемо... Хватит флудить не по делу, напишите по теме - поздравление девчонок.