Текущий архив: 2008.06.15;
Скачать: CL | DM;
Вниз
Подскажите пожалуйста Найти похожие ветки
← →
koha © (2008-04-30 17:52) [0]Мне бы хороший редактор найта, который исходники конвертировал в картинки или в веб-странички и так, чтобы по красивше было с форматирование и цвета можно было менять.
← →
A-photo (2008-04-30 17:58) [1]Так это просто, камера или в крайнем случае фотоаппарат.
← →
TIF © (2008-04-30 18:01) [2]Статья "Преобразование PAS-файла в HTML-файл" на DelphiWorld.narod.ru
Исходникитам же
Удачи. Поисковики тоже тебе помогут найти эту страничку :)
← →
koha © (2008-04-30 18:08) [3]
> TIF © (30.04.08 18:01) [2]
Ты предлагаешь написать самому, а бы хотел что-нить готовое ведь уже есть готовые софтины, просто если кто пользуется таким подскажите, что нить стоящее...
← →
Zeqfreed © (2008-04-30 18:11) [4]http://www.palfrader.org/code2html/
← →
Наиль (2008-04-30 18:13) [5]http://code.google.com/p/scite-ru/downloads/detail?name=SciTE_176_57Ru_140408.zip
← →
SergeyIT © (2008-04-30 18:14) [6]На любом программерском сайте можно вставлять код в текст сообщения,
который автоматически конвертируется в HTML, а затем копировать его себе.
//сюда можно вставить исходники
← →
koha © (2008-04-30 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 © (2008-04-30 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 © (2008-04-30 18:43) [9]Мля... одно лишнее получилось, сори, я не хотел, я не флудер..
← →
SergeyIT (2008-05-01 01:06) [10]Вы что - шуток не понимаете? Сейчас нас забанят!
← →
БарЛог © (2008-05-01 10:43) [11]Либо я смысла не понял, либо решение в A-photo (30.04.08 17:58) [1]
← →
TUser © (2008-05-01 10:55) [12]> который исходники конвертировал в картинки
Тссс, ..... Канвектор Фарматов!!!
← →
DiamondShark © (2008-05-02 11:38) [13]За исходник в картинках надо... надо... эх...я даже достойный способ умерщвления не могу подобрать, всё как-то не серьёзно для этого случая.
← →
SergeyIT (2008-05-02 22:11) [14]
> За исходник в картинках надо...
А что здесь такого? В книге источники в каком формате?
Или все книги надо.....!?
Страницы: 1 вся ветка
Текущий архив: 2008.06.15;
Скачать: CL | DM;
Память: 0.53 MB
Время: 0.015 c
