Девчонки, поздравляем вас с 8 марта!

[band]

//Девчата! С праздничком!

For ii:=1 to 1000000 do
begin

setlength(WishList,ii);
WishList[ii-1]:=

’Быть счастливой, ’+

’дружбы, любви и тепла от окружающих, ’+

‘цветов и тортов побольше и безнаказанно, ’+

‘мешок денег’;

end;

[Nataska_s_k]

For ii:=1 to 1000000 do
begin
setlength(WishList,ii);
WishList[ii-1]:=

Уверен в коде? :)
Хорошо протестировал? :)

[cin]

Код: Выделить всё

for(;;){pregnant(CHILD); wishlist++;}

извините за корявый почерк

[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. В результате будет массив с кучей одинаковых строк одной и той же длины.

[Nataska_s_k]

Наташа, в 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, к сожалению, сейчас нет.
давно не пользовалась

[Vlan]

Код: Выделить всё

Процедура Сформировать() 
Би=СоздатьОбъект("БухгалтерскиеИтоги");
Би.ИспользоватьСубконто(ВидыСубконто.Сотрудники);
Би.ВыполнитьЗапрос(,Дата("08.03.2008"),"70");
Би.ВыбратьСубконто();
Пока Би.ПолучитьСубконто()=1 Цикл
	Если Би.Субконто().Пол=Перечисление.Пол.Женский Тогда
		Сообщить(Би.Субконто().Наименование+", с праздником Вас!");
	Иначе
		Сообщить(Би.Субконто().Наименование+", гони 1000 р. на подарок!");
	КонецЕсли;
КонецЦикла;
КонецПроцедуры

[Verholazzz]

Замысловато вы, коллеги, девченок поздравляете...

Да и рановато. Спускаться с этой горы надо вовремя, и медленно, как в анекдоте

[Nataska_s_k]

а можно еще вариант на обычном ассемблере? :)

[band]

Это к Паше - я ассемблером пользовался в ещё более древние времена, чем ты Delphi.

Кстати, почему одинэсники листинги пишут по-русски, когда можно (и нужно бы) латиницей?

[cin]

я вообще слова такое не знаю. осемблир это кто?

а по русски пишут, потому что так удобно. мы же в россии живем.
поскаль переводили же в лохматом году на русский.

[band]

Ага, сидишь с дизассемблером над клиентом слежения, используемом СБ, попутно запустив сниффер по сеточке, и делаешь вид, что ты простой пользователь...

[Vlan]

а можно еще вариант на обычном ассемблере? :)

Код: Выделить всё

.model tiny
.code
.startup	
	mov ah,09h
	mov dx,offset Msg
	int 21h
	ret
Msg	db 'С праздником!'
	db '$'			
end

[Nataska_s_k]

Кстати, почему одинэсники листинги пишут по-русски, когда можно (и нужно бы) латиницей?

ну не повезло им :)
исторически так сложилось.

[Nataska_s_k]

а можно еще вариант на обычном ассемблере? :)

Код: Выделить всё

.model tiny
.code
.startup	
	mov ah,09h
	mov dx,offset Msg
	int 21h
	ret
Msg	db 'С праздником!'
	db '$'			
end

А теперь добавить графику? :)

[Vlan]

А теперь добавить графику? :)

Вот женщины... По локоть палец норовят укусить. Я и это-то из Hallo World передрал.

[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

[Nataska_s_k]

;Влад! В наше время использовать досовский ассемблер - моветон, похоже на как надрать цветы из клумбы

Влан все правильно понял, имелся ввиду именно досовский ассемблер.

[Vlan]

(Озираясь) А кто тут Влад?

[Danil]

Код: Выделить всё

.model tiny
.code
.startup	
	mov ah,09h
	mov dx,offset Msg
	int 21h
	ret
Msg	db 'С праздником!'
	db '$'			
end

21 байт

[band]

21 байт, int21h... Образ мысли интересен и продолжение предсказуемо... Хватит флудить не по делу, напишите по теме - поздравление девчонок.