основной форум
Архив сообщений 2004-2006 года

Алгоритмы, методы, исходники


Разное >> Замечания о работе сайта

Страницы: 1
it4_kp
опытный
*****

Рег.: 03/31/05
Сообщений: 221
Из: Архангельск
Странности в тэге [code]
      #6041 - 06/11/05 10:23 AM

Я написал прогу, которая автоматически подсвечивает синтаксис
паскалевского исходника, относительно правил UBBCode,
но возникла проблема: внутри тэга code не воспринимаются
тэги [ b ], [ i ] но воспринимается [ цвет ]!?
Если не использовать тэга code, то отлично все подсвечивается,
но пробелы игнорируются и получается каша!

Предложение: подправьте немного этот UBBCode, чтобы внутри
тэга [ code ] работали тэги [ b ] и [ i ]!


Операции над сообщением Печать сообщения   Добавить тему в напоминания!   Известить модератора  
SergeyevАдминистратор
заслуженный
****

Рег.: 07/31/04
Сообщений: 1361
Из: Россия, Самара
Re: Странности в тэге [code] [Re: it4_kp]
      #6045 - 06/11/05 09:38 PM

Да, такие глюки имеют место.
Исправить будет трудно, да и проблема это не первой важности. К сожалению, пока придется обходиться без этого.
Программа с подсветкой синтаксиса как в Паскале - это было бы полезно. Насколько я понимаю, там "жирность" и "курсив" не очень важны, главное цвет. Не могли бы вы оставить в программе только изменения цвета, и представить ее публике форума?


Операции над сообщением Печать сообщения   Добавить тему в напоминания!   Известить модератора  
it4_kp
опытный
*****

Рег.: 03/31/05
Сообщений: 221
Из: Архангельск
Re: Странности в тэге [code] [Re: Sergeyev]
      #6046 - 06/12/05 02:27 AM Вложение (123 загрузки)

Дельфовский файл dpr (с расширением *.txt) во вложении.
Ниже показано как программа раскрасила мое решение
задачи 275 с acm.sgu.ru
Если в процедуре init поменять строчку
CurRule:= RULE_UBB на CurRule:= RULE_HTML,
то на выходе будет раскраска по правилам HTML.

Code:
program kp275;

// To xor or not to xor

// accepted

{$APPTYPE CONSOLE}

label finish;

var
n: integer;
a: array [1..100] of int64;
res: int64;
bin: array [0..60] of int64;

procedure init;
var
i: integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
bin[0]:= 1;
for i:= 1 to 60 do bin[i]:= bin[i-1] shl 1;
res:= 0;
end;

procedure solve;
var
i, k, j: integer;
buf: int64;
begin
k:= 60;
while k>=0 do begin
for i:= 1 to n do
if a[i] and bin[k] <> 0 then begin
buf:= a[i];
for j:= 1 to n do
if a[j] and bin[k] <> 0 then a[j]:= a[j] xor buf;
if (res and bin[k]) = 0 then res:= res xor buf;
break;
end;
dec(k);
end;
end;

procedure print;
begin
write(res);
end;

begin
{$IFNDEF ONLINE_JUDGE}
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
{$ENDIF}

init;
solve;
print;

finish:
{$IFNDEF ONLINE_JUDGE}
close(input); close(output);
{$ENDIF}
.end



Операции над сообщением Печать сообщения   Добавить тему в напоминания!   Известить модератора  
SergeyevАдминистратор
заслуженный
****

Рег.: 07/31/04
Сообщений: 1361
Из: Россия, Самара
Re: Странности в тэге [code] [Re: it4_kp]
      #6047 - 06/12/05 02:53 AM

Полезная прога. Лучше сделать два режима - как в Delphi и как в TP7 по умолчанию. Для стиля Delphi нужен тэг , очевижно пока не получится, а вот цвета TP7 можно поставить.

Операции над сообщением Печать сообщения   Добавить тему в напоминания!   Известить модератора  
it4_kp
опытный
*****

Рег.: 03/31/05
Сообщений: 221
Из: Архангельск
Re: Странности в тэге [code] [Re: Sergeyev]
      #6048 - 06/12/05 03:07 AM

Мне ужасно стыдно, но свою "карьеру" программиста
я начал сразу с Delphi 4 и не совсем понимаю о чем вы говорите!
Я не работал в обычном паскале.
Не могли бы вы поподробнее пояснить различия в стилях.


Операции над сообщением Печать сообщения   Добавить тему в напоминания!   Известить модератора  
Страницы: 1



Дополнительная информация
0 зарегистрированных и 372 анонимных пользователей просматривают этот форум.

Модератор:  Илья Кантор, Sergeyev 

Распечатать тему

Права
      Вы не можете создавать новые темы
      Вы не можете отвечать на сообщения
      HTML выключен
      UBBCode включен

Рейтинг:
Просмотры темы: 10550

Rate this topic

Переход в