PHP DM Gate v0.9 » Подскажите пожалуйста

koha © (30.04.08 17:52) [0]

Мне бы хороший редактор найта, который исходники конвертировал в картинки или в веб-странички и так, чтобы по красивше было с форматирование и цвета можно было менять.

<Цитата>
A-photo (30.04.08 17:58) [1]

Так это просто, камера или в крайнем случае фотоаппарат.

<Цитата>
TIF © (30.04.08 18:01) [2]

Статья "Преобразование PAS-файла в HTML-файл" на DelphiWorld.narod.ru

Исходникитам же

Удачи. Поисковики тоже тебе помогут найти эту страничку :)

<Цитата>
koha © (30.04.08 18:08) [3]

> TIF © (30.04.08 18:01) [2]

Ты предлагаешь написать самому, а бы хотел что-нить готовое ведь уже есть готовые софтины, просто если кто пользуется таким подскажите, что нить стоящее...

<Цитата>
Zeqfreed © (30.04.08 18:11) [4]

http://www.palfrader.org/code2html/

<Цитата>
Наиль (30.04.08 18:13) [5]

http://code.google.com/p/scite-ru/downloads/detail?name=SciTE_176_57Ru_140408.zip

<Цитата>
SergeyIT © (30.04.08 18:14) [6]

На любом программерском сайте можно вставлять код в текст сообщения,
который автоматически конвертируется в HTML, а затем копировать его себе.

//сюда можно вставить исходники

<Цитата>
koha © (30.04.08 18:42) [7]

program Lab3_1;
Uses CRT, SysModul;
{****************************************************************}
{ SYSMODUL.TPU The module with the additional expanded functions }
{ http://www.elsetrue.narod.ru Copyrihgt: ELSETRUE-SOFTWARE }
{****************************************************************}
Var
Key: Char; {Код нажатая клавиша}
X,Y: Integer; {Для позиции курсора}
const
Left = 4; {Левый отступ для выравнивания}
MaxRead = 6; {Максимальная длина вводимого числа}
Title = '-------------------------- LAB 3-1 ----------------------------';
DlgInsA = 'Введите сторону A = ';
DlgInsB = 'Введите сторону B = ';
DlgInsR = 'Введите радиус R = ';
DlgInsH = 'Введите (высоту) h = ';
DlgResult = 'Результат: площадь S = ';
DlgNext = 'Нажмите любую клавишу для продолжения...';
DlgExit = 'Для выхода нажмите [Esc]';
Esc = #27; {Код выхода}
Null = #0; {Код полного нуля}
{---------------------- Parallepipeds ---------------------}
procedure SParallepipeds(X,Y: integer);
var A,B: integer;
ReadTrue: Boolean;
Const
Title = '----------- Вы выбрали 1-й пункт меню. -----------';
begin
WriteLnStr((80 - Length(Title)) div 2,Y,Title);
WriteLnStr(Left,WhereY,'Формула площади параллепипеда: S = A*B');
WriteLnStr(Left,WhereY,DlgInsA); {from unit SysModul.tpu}
WriteLnStr(Left,WhereY,DlgInsB); {from unit SysModul.tpu}
ReadIntEx(Left+Length(DlgInsA),WhereY-2,MaxRead,A,Key); {from unit SysModul.tpu}
ReadIntEx(Left+Length(DlgInsA),WhereY+1,MaxRead,B,Key); {from unit SysModul.tpu}
if Key = Esc then begin
Key := Null; {Key обнуляется}
ClrPos(X,Y); {Очистка экрана от позиции курсора до конца области экрана SysModul.tpu}
Exit; {Выход из процедуры}
end;
WriteStr(Left,WhereY+1,DlgResult); {Вывод диалога "результат" from unit SysModul.tpu}
WriteLn(A*B); {вычисление}
WriteStr(Left,WhereY,DlgNext); {Вывод диалога "продолжить" unit SysModul.tpu}
ReadKey; {Ожидание нажаттия клавиши}
end;

procedure STriangle(X,Y: integer);
Var a,h: integer;
Const Title = '----------- Вы выбрали 2-й пункт меню. -----------';
begin
WriteLnStr((80 - Length(Title)) div 2,Y,Title);
WriteLnStr(Left,WhereY,'Формула площади треугольника: S = A*(h/2)');
WriteLnStr(Left,WhereY,DlgInsA); {from unit SysModul.tpu}
WriteLnStr(Left,WhereY,DlgInsH); {from unit SysModul.tpu}
ReadIntEx(Left+Length(DlgInsA),WhereY-2,MaxRead,A,Key); {from unit SysModul.tpu}
ReadIntEx(Left+Length(DlgInsA),WhereY+1,MaxRead,h,Key); {from unit SysModul.tpu}
if Key = Esc then begin
Key := Null; {Key обнуляется}
ClrPos(X,Y); {Очистка экрана от позиции курсора до конца области экрана SysModul.tpu}
Exit; {Выход из процедуры}
end;
WriteStr(Left,WhereY+1,DlgResult); {Вывод диалога "результат" from unit SysModul.tpu}
WriteLn(A*(h/2):6:2); {вычисление}
WriteStr(Left,WhereY,DlgNext); {Вывод диалога "продолжить" unit SysModul.tpu}
ReadKey; {Ожидание нажаттия клавиши}
end;

procedure STrapeze(X,Y: integer);
Var A,B,H: Integer;
Const Title = '----------- Вы выбрали 3-й пункт меню. -----------';
begin
WriteLnStr((80 - Length(Title)) div 2,Y,Title);
WriteLnStr(Left,WhereY,'Формула площади трапеции: S = (A+B)*(h/2)');
WriteLnStr(Left,WhereY,DlgInsA); {from unit SysModul.tpu}
WriteLnStr(Left,WhereY,DlgInsB); {from unit SysModul.tpu}
WriteLnStr(Left,WhereY,DlgInsH); {from unit SysModul.tpu}
ReadIntEx(Left+Length(DlgInsA),WhereY-3,MaxRead,A,Key); {from unit SysModul.tpu}
ReadIntEx(Left+Length(DlgInsA),WhereY+1,MaxRead,B,Key); {from unit SysModul.tpu}
ReadIntEx(Left+Length(DlgInsA),WhereY+1,MaxRead,H,Key); {from unit SysModul.tpu}
if Key = Esc then begin
Key := Null; {Key обнуляется}
ClrPos(X,Y); {Очистка экрана от позиции курсора до конца области экрана SysModul.tpu}
Exit; {Выход из процедуры}
end;
WriteStr(Left,WhereY+1,DlgResult); {Вывод диалога "результат" from unit SysModul.tpu}
WriteLn((A*B)/(h/2):6:2); {вычисление}
WriteStr(Left,WhereY,DlgNext); {Вывод диалога "продолжить" from unit SysModul.tpu}
ReadKey; {Ожидание нажаттия клавиши}
end;

procedure SCircle(X,Y: integer);
Var R: Integer;
Const Title = '----------- Вы выбрали 4-й пункт меню. -----------';
begin
WriteLnStr((80 - Length(Title)) div 2,Y,Title);
WriteLnStr(Left,WhereY,'Формула площади круга: S = Pi*R^2');
WriteLnStr(Left,WhereY,DlgInsR); {from unit SysModul.tpu}
ReadIntEx(Left+Length(DlgInsA),WhereY-1,MaxRead,R,Key); {from unit SysModul.tpu}
if Key = Esc then begin
Key := Null; {Key обнуляется}
ClrPos(X,Y); {Очистка экрана от позиции курсора до конца области экрана SysModul.tpu}
Exit; {Выход из процедуры}
end;
WriteStr(Left,WhereY+1,DlgResult); {Вывод диалога "результат" from unit SysModul.tpu}
WriteLn(PI*Sqr(R):6:2); {вычисление}
WriteStr(Left,WhereY,DlgNext); {Вывод диалога "продолжить" from unit SysModul.tpu}
ReadKey; {Ожидание нажаттия клавиши}
end;

procedure SSector(X,Y: integer);
Var A,R: Integer;
Const Title = '----------- Вы выбрали 5-й пункт меню. -----------';
begin
WriteLnStr((80 - Length(Title)) div 2,Y,Title);
WriteLnStr(Left,WhereY,'Формула площади круга: S = Pi*R^2*(А/360)');
WriteLnStr(Left,WhereY,DlgInsA); {from unit SysModul.tpu}
WriteLnStr(Left,WhereY,DlgInsR); {from unit SysModul.tpu}
ReadIntEx(Left+Length(DlgInsA),WhereY-2,MaxRead,A,Key); {from unit SysModul.tpu}
ReadIntEx(Left+Length(DlgInsA),WhereY+1,MaxRead,R,Key); {from unit SysModul.tpu}
if Key = Esc then begin
Key := Null; {Key обнуляется}
ClrPos(X,Y); {Очистка экрана от позиции курсора до конца области экрана. SysModul.tpu}
Exit; {Выход из процедуры}
end;
WriteStr(Left,WhereY+1,DlgResult); {Вывод диалога "результат" from unit SysModul.tpu}
WriteLn(PI*Sqr(R)*(A/360):6:2); {вычисление}
WriteStr(Left,WhereY,DlgNext); {Вывод диалога "продолжить" from unit SysModul.tpu}
ReadKey; {Ожидание нажаттия клавиши}
end;

BEGIN
{Основной цикл программы}
Repeat
ClrScr; {Очистка экрана}
{Вывод на экран основного меню программы}
WriteLnStr((80 - Length(Title)) div 2,1,title); {from unit SysModul.tpu}
WriteLnStr(Left,WhereY,'1. Решение задачи площади параллепипеда');
WritelnStr(Left,WhereY,'2. Решение здачи площади треугольника');
WriteLnStr(Left,WhereY,'3. Решение задачи площади трапеции');
WriteLnStr(Left,WhereY,'4. Решение задачи площади круга');
WriteLnStr(Left,WhereY,'5. Решение задачи площади сектора');
WriteLnStr(Left,WhereY,'Для выбора нужного пункта нажмите соответствующие цифры: 1,2,3,4,5 ');
WriteStr(left,WhereY,DlgExit);
Key:=ReadKey; {Ожидание ввода с клавиатуры}
{Функция CharToInt из модуля SysModul.tpu}
Case CharToInt(Key) of
1: SParallepipeds(Left, WhereY+2);
2: STriangle(Left, WhereY+2);
3: STrapeze(Left, WhereY+2);
4: SCircle(Left, WhereY+2);
5: SSector(Left, WhereY+2);
end;
until Key = Esc;
end.

<Цитата>
koha © (30.04.08 18:42) [8]

program Lab3_1;
Uses CRT, SysModul;
{****************************************************************}
{ SYSMODUL.TPU The module with the additional expanded functions }
{ http://www.elsetrue.narod.ru Copyrihgt: ELSETRUE-SOFTWARE }
{****************************************************************}
Var
Key: Char; {Код нажатая клавиша}
X,Y: Integer; {Для позиции курсора}
const
Left = 4; {Левый отступ для выравнивания}
MaxRead = 6; {Максимальная длина вводимого числа}
Title = '-------------------------- LAB 3-1 ----------------------------';
DlgInsA = 'Введите сторону A = ';
DlgInsB = 'Введите сторону B = ';
DlgInsR = 'Введите радиус R = ';
DlgInsH = 'Введите (высоту) h = ';
DlgResult = 'Результат: площадь S = ';
DlgNext = 'Нажмите любую клавишу для продолжения...';
DlgExit = 'Для выхода нажмите [Esc]';
Esc = #27; {Код выхода}
Null = #0; {Код полного нуля}
{---------------------- Parallepipeds ---------------------}
procedure SParallepipeds(X,Y: integer);
var A,B: integer;
ReadTrue: Boolean;
Const
Title = '----------- Вы выбрали 1-й пункт меню. -----------';
begin
WriteLnStr((80 - Length(Title)) div 2,Y,Title);
WriteLnStr(Left,WhereY,'Формула площади параллепипеда: S = A*B');
WriteLnStr(Left,WhereY,DlgInsA); {from unit SysModul.tpu}
WriteLnStr(Left,WhereY,DlgInsB); {from unit SysModul.tpu}
ReadIntEx(Left+Length(DlgInsA),WhereY-2,MaxRead,A,Key); {from unit SysModul.tpu}
ReadIntEx(Left+Length(DlgInsA),WhereY+1,MaxRead,B,Key); {from unit SysModul.tpu}
if Key = Esc then begin
Key := Null; {Key обнуляется}
ClrPos(X,Y); {Очистка экрана от позиции курсора до конца области экрана SysModul.tpu}
Exit; {Выход из процедуры}
end;
WriteStr(Left,WhereY+1,DlgResult); {Вывод диалога "результат" from unit SysModul.tpu}
WriteLn(A*B); {вычисление}
WriteStr(Left,WhereY,DlgNext); {Вывод диалога "продолжить" unit SysModul.tpu}
ReadKey; {Ожидание нажаттия клавиши}
end;

procedure STriangle(X,Y: integer);
Var a,h: integer;
Const Title = '----------- Вы выбрали 2-й пункт меню. -----------';
begin
WriteLnStr((80 - Length(Title)) div 2,Y,Title);
WriteLnStr(Left,WhereY,'Формула площади треугольника: S = A*(h/2)');
WriteLnStr(Left,WhereY,DlgInsA); {from unit SysModul.tpu}
WriteLnStr(Left,WhereY,DlgInsH); {from unit SysModul.tpu}
ReadIntEx(Left+Length(DlgInsA),WhereY-2,MaxRead,A,Key); {from unit SysModul.tpu}
ReadIntEx(Left+Length(DlgInsA),WhereY+1,MaxRead,h,Key); {from unit SysModul.tpu}
if Key = Esc then begin
Key := Null; {Key обнуляется}
ClrPos(X,Y); {Очистка экрана от позиции курсора до конца области экрана SysModul.tpu}
Exit; {Выход из процедуры}
end;
WriteStr(Left,WhereY+1,DlgResult); {Вывод диалога "результат" from unit SysModul.tpu}
WriteLn(A*(h/2):6:2); {вычисление}
WriteStr(Left,WhereY,DlgNext); {Вывод диалога "продолжить" unit SysModul.tpu}
ReadKey; {Ожидание нажаттия клавиши}
end;

procedure STrapeze(X,Y: integer);
Var A,B,H: Integer;
Const Title = '----------- Вы выбрали 3-й пункт меню. -----------';
begin
WriteLnStr((80 - Length(Title)) div 2,Y,Title);
WriteLnStr(Left,WhereY,'Формула площади трапеции: S = (A+B)*(h/2)');
WriteLnStr(Left,WhereY,DlgInsA); {from unit SysModul.tpu}
WriteLnStr(Left,WhereY,DlgInsB); {from unit SysModul.tpu}
WriteLnStr(Left,WhereY,DlgInsH); {from unit SysModul.tpu}
ReadIntEx(Left+Length(DlgInsA),WhereY-3,MaxRead,A,Key); {from unit SysModul.tpu}
ReadIntEx(Left+Length(DlgInsA),WhereY+1,MaxRead,B,Key); {from unit SysModul.tpu}
ReadIntEx(Left+Length(DlgInsA),WhereY+1,MaxRead,H,Key); {from unit SysModul.tpu}
if Key = Esc then begin
Key := Null; {Key обнуляется}
ClrPos(X,Y); {Очистка экрана от позиции курсора до конца области экрана SysModul.tpu}
Exit; {Выход из процедуры}
end;
WriteStr(Left,WhereY+1,DlgResult); {Вывод диалога "результат" from unit SysModul.tpu}
WriteLn((A*B)/(h/2):6:2); {вычисление}
WriteStr(Left,WhereY,DlgNext); {Вывод диалога "продолжить" from unit SysModul.tpu}
ReadKey; {Ожидание нажаттия клавиши}
end;

procedure SCircle(X,Y: integer);
Var R: Integer;
Const Title = '----------- Вы выбрали 4-й пункт меню. -----------';
begin
WriteLnStr((80 - Length(Title)) div 2,Y,Title);
WriteLnStr(Left,WhereY,'Формула площади круга: S = Pi*R^2');
WriteLnStr(Left,WhereY,DlgInsR); {from unit SysModul.tpu}
ReadIntEx(Left+Length(DlgInsA),WhereY-1,MaxRead,R,Key); {from unit SysModul.tpu}
if Key = Esc then begin
Key := Null; {Key обнуляется}
ClrPos(X,Y); {Очистка экрана от позиции курсора до конца области экрана SysModul.tpu}
Exit; {Выход из процедуры}
end;
WriteStr(Left,WhereY+1,DlgResult); {Вывод диалога "результат" from unit SysModul.tpu}
WriteLn(PI*Sqr(R):6:2); {вычисление}
WriteStr(Left,WhereY,DlgNext); {Вывод диалога "продолжить" from unit SysModul.tpu}
ReadKey; {Ожидание нажаттия клавиши}
end;

procedure SSector(X,Y: integer);
Var A,R: Integer;
Const Title = '----------- Вы выбрали 5-й пункт меню. -----------';
begin
WriteLnStr((80 - Length(Title)) div 2,Y,Title);
WriteLnStr(Left,WhereY,'Формула площади круга: S = Pi*R^2*(А/360)');
WriteLnStr(Left,WhereY,DlgInsA); {from unit SysModul.tpu}
WriteLnStr(Left,WhereY,DlgInsR); {from unit SysModul.tpu}
ReadIntEx(Left+Length(DlgInsA),WhereY-2,MaxRead,A,Key); {from unit SysModul.tpu}
ReadIntEx(Left+Length(DlgInsA),WhereY+1,MaxRead,R,Key); {from unit SysModul.tpu}
if Key = Esc then begin
Key := Null; {Key обнуляется}
ClrPos(X,Y); {Очистка экрана от позиции курсора до конца области экрана. SysModul.tpu}
Exit; {Выход из процедуры}
end;
WriteStr(Left,WhereY+1,DlgResult); {Вывод диалога "результат" from unit SysModul.tpu}
WriteLn(PI*Sqr(R)*(A/360):6:2); {вычисление}
WriteStr(Left,WhereY,DlgNext); {Вывод диалога "продолжить" from unit SysModul.tpu}
ReadKey; {Ожидание нажаттия клавиши}
end;

BEGIN
{Основной цикл программы}
Repeat
ClrScr; {Очистка экрана}
{Вывод на экран основного меню программы}
WriteLnStr((80 - Length(Title)) div 2,1,title); {from unit SysModul.tpu}
WriteLnStr(Left,WhereY,'1. Решение задачи площади параллепипеда');
WritelnStr(Left,WhereY,'2. Решение здачи площади треугольника');
WriteLnStr(Left,WhereY,'3. Решение задачи площади трапеции');
WriteLnStr(Left,WhereY,'4. Решение задачи площади круга');
WriteLnStr(Left,WhereY,'5. Решение задачи площади сектора');
WriteLnStr(Left,WhereY,'Для выбора нужного пункта нажмите соответствующие цифры: 1,2,3,4,5 ');
WriteStr(left,WhereY,DlgExit);
Key:=ReadKey; {Ожидание ввода с клавиатуры}
{Функция CharToInt из модуля SysModul.tpu}
Case CharToInt(Key) of
1: SParallepipeds(Left, WhereY+2);
2: STriangle(Left, WhereY+2);
3: STrapeze(Left, WhereY+2);
4: SCircle(Left, WhereY+2);
5: SSector(Left, WhereY+2);
end;
until Key = Esc;
end.

<Цитата>
koha © (30.04.08 18:43) [9]

Мля... одно лишнее получилось, сори, я не хотел, я не флудер..

<Цитата>
SergeyIT (01.05.08 01:06) [10]

Вы что - шуток не понимаете? Сейчас нас забанят!

<Цитата>
БарЛог © (01.05.08 10:43) [11]

Либо я смысла не понял, либо решение в A-photo (30.04.08 17:58) [1]

<Цитата>
TUser © (01.05.08 10:55) [12]

> который исходники конвертировал в картинки

Тссс, ..... Канвектор Фарматов!!!

<Цитата>