Форум «Всё о Паскале» > регистрация... дата.

Altair

13.10.2005 2:08

Помогите востановить дату моей регистрации на форуме изначальной..
Может кто помнит?
это было на пару дней раньше чем мой первый пост:
http://forum.pascal.net.ru/index.php?showt...indpost&p=10937
А именно раньшге чем 21.12.2003
Значит даже учитывая это, мне скоро будет 2 года на форуме...
эх...
К чему это я? к тому, что скоро год, как у нас появился klem4

Будет сейшн, все кто будет в Москве - присодиняйтесь!

klem4

13.10.2005 11:15

Хмм интересно, почему в той теме никто так и не написал ord(s[0]) :=10; Терминатор во втором посте на это намекнул

а разбазарили тему еще на 10 постов))

а год мне будет 2-го ноября

Altair

13.10.2005 12:33

Цитата

Хмм интересно, почему в той теме никто так и не написал ord(s[0]) :=10;

А так логичнее:

Код

s[0]:=CHR(10);

Потому что строка все-таки набор символов и логоичнее элементу строки присваивать символ а не коду символа элемента строки прсваивать номер...

:smoke:

Malice

13.10.2005 12:33

Цитата(klem4 @ 13.10.2005 8:15)

Хмм интересно, почему в той теме никто так и не написал ord(s[0]) :=10;

Потому что именно _так_ точно писать нельзя

Altair

13.10.2005 12:39

Malice прав.. клем с тебя кефир!

klem4

13.10.2005 12:40

мм щас проверю ..

вот так все замечательоно работает

Код

s := '';

ord(s[0]) := 10;

for b:=1 to 10 do readln(s[b]);

writeln(s);

так что с вас 2 кефира.

Altair

13.10.2005 12:48

да нифига не работает!

Код

╔═[■]════════════════════════════ NONAME00.PAS ══════════════════════════1═[↕]═╗
║ Error 122: Invalid variable reference. ▲
║var ■
║ s:string; ▒
║ begin ▒
║ ord(s[0]):=10; ▒
║ end. ▒
║ ▒
║ ▒
║ ▒
║ ▒
║ ▒
║ ▒
║ ▒
║ ▒
║ ▒
║ ▒
║ ▒
║ ▒
║ ▒
║ ▒
║ ▼
╚═☼═════ 5:12 ════◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►─┘

с тебя 3 кефира за спор с администрацией и пользователями

:D :D :D

Altair

13.10.2005 12:50

Ик...
Нажмите для просмотра прикрепленного файла
:p10:

klem4

13.10.2005 12:53

С тебя 4 кефира :

Altair

13.10.2005 12:55

С тебя 5 кефиров:
Нажмите для просмотра прикрепленного файла
а FREE PASCAL НЕ является стандартом языка Pascal!

я готовлю стаканы уже..
Нажмите для просмотра прикрепленного файла

klem4

13.10.2005 13:01

:fire:

Altair

13.10.2005 13:02

:D :flowers: :p10:

Malice

13.10.2005 13:27

Блин, прикольно

, выложи exe-шник, только поставь так:
ord(s[0]):=10; s[0]:=chr(10);
интересно посмотреть как оно там внутри получается

klem4

13.10.2005 13:31

Вот вам, любители 16-битных компиляторов!

:low:

Код

uses crt;
var
s:string;
begin
byte(s[0]) := 10;
writeln(length(s));
end.

volvo

13.10.2005 15:11

klem4, с тебя 6 кефиров, оно в FPC вообще не компилится. :D У меня, например, при попытке скомпилить вот такое:

var s: string;
begin
  s := '';
  ord(s[0]):=10;
  s[0]:=chr(10);
end.

вот что получается:

Цитата(Errors)

__srt.pp(5,10) Error: Element zero of an ansi/wide- or longstring can't be accessed, use (set)length instead
__srt.pp(6,6) Error: Element zero of an ansi/wide- or longstring can't be accessed, use (set)length instead
__srt.pp(8,4) Fatal: There were 2 errors compiling module, stopping
__srt.pp(8,4) Error: Compilation aborted

Что я делаю не так? :D (FPC 2.0.0 Target - Win32)

P.S. Ты с какими опциями, вообще работаешь?

Altair

13.10.2005 15:12

volvo, объедимся

:D

klem4

13.10.2005 15:15

а где вы в моих листингах видели такое

Код

ord(s[0]):=10; s[0]:=chr(10);

Altair

13.10.2005 15:17

Цитата

ord(s[0]) := 10;

это лучше? Значение 10 присваивается функции...

Malice

13.10.2005 15:27

А я exe-шник просил...
ps мне кефира не надо, если что.

trminator

13.10.2005 15:37

klem4, а что "любители 32-битных"? FPC в {$MODE DELPHI} говорит -- compile failed =) как-то ИМХО s[0] := char(10) корректнее...

Не в режиме Дельфи, впрочем, работает

klem4

13.10.2005 17:58

Ладно-ладно, верю

Но кстати FPC {$MODE TP} проходит без проблем.

Shura

13.10.2005 18:13

Ну и ну, всегда делали ch:=chr(...), а тут... Зачем присваивать возвращаемому значению (функции) ещё какое-то значение? В чём тогда смысл "функции"?.. Это похоже на что-то вроде "0:=10"....

klem4

13.10.2005 19:40

Цитата(Shura @ 13.10.2005 15:13)

Ну и ну, всегда делали ch:=chr(...), а тут... Зачем присваивать возвращаемому значению (функции) ещё какое-то значение? В чём тогда смысл "функции"?.. Это похоже на что-то вроде "0:=10"....

ну все же вроде обсудили уже ... зачем повторяться и тем не менее в отличии от "0 := 10" , ord(s[0]) := 10 в некоторых случаях компилируется и работает без ошибок. :p2:

Altair

13.10.2005 20:39

да все обсудили.... 5 литров кефира... как подумаю плохо становиться...

Скорее бы 2 ноября...

klem4

13.10.2005 20:46

мдя ... мне еще Volvo бандеролью отправлять ... вот только боюсь прокиснет