| Типы программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Исходник программы тестирования 3 задачи, помогите решить проблемму Как провести анализ вычислительной сложности алгоритмов на графах, вопрос из темы "Реализация некоторых алгоритмов теории графов&quo Формирование матрицы. Можно ли перемещаться в тексте? Алгоритм нахожднеия всех путей графа оптимизация ппрограмм под паскаль синтаксис в описании модуля, большая проблема! помогите с прогой, оконная прога на Pascal'e Используете ли Вы Assembler в своих программах?, asm тесты по Repeat и While, где найти? аналог pow в C++, ... Работа со строками, преобразования в числа Строки, вывод строки Алгоритм Дейкстры Интересная задачка, Для понимающих программистов функция особого опасного типа, розыск! производная Архиватор, архивация bmp Формирование матрицы в TP. 2VIT, загрузка файлов и рисунков на форум... Реализация некоторых алгоритмов теории графов, на Паскале Как Вы относитесь к курящим девушкам? Маятник Капицы, помогите плз термины, помогите определить Работа со строкой, Простейшие задачки Что б не пустовал раздел :), не ужели паскаль теряет свою мощь? помогите с сортировкой Pascal, указатели и динамическая память Pascal : русский язык, на компе 3 языка lg в паскале COM-port, Юзаем ком Помогите решить задачку, помогите новичку ООП, для начинающих на Паскале (для фака) Как задать параметры синусоиды Что такое стек и как с ним работать? Как удалять, нужно добавить и удалить элементы стека Выход из графического режима. Организация Базы Данных Своё прерывание 1Ch Подскажите решение задачи, Паскаль не моя стихия Опции компилятора., Тема для FAQ Stack overflow error, Работа с процедурами и функциями Как в Excel сохранить книгу под произвольным имене Русификация Pascal, Где найти полную версию русификатора? Turbo Vision!!! Процедурный тип данных, Что это такое и с чем его едят Помогите :: все ходы коня на шахматной доске, Помогите :: через 2 дня здача а я......( что такое очередь?, и как ей пользоваться... Иероглифы вместо русских букв!!!, При открытии Pascal на полный экран!!! подсчет вычисляет размер графического растрового, подсчет размера графического файла Директории, Как прописывать директории Решение задачи, Найти площадь... Pascal и DBF файлы, Как паскаль может работать с дбф ПопАп-меню, Создание попап-меню Вхождение точки в заданную область, Помогите написать программу на паскале.. Help, Сложная программа помогите!!!!!!!!! Real to String, Конвертация с округление решето Эратосфена, на turbo pascal Задачка, Список Организация деревьев, в Паскаль ПОМОГИТЕ. СРОЧНО. ПЛИЗ Asm & TPascal, Можно в Паскале делать вставки на асме? защита программы от копирования, серийный № Как узнать выполняется ли процедура Update FAQ!, Сделал Update FAQ - около 50 новых тем! оператор case, пример использования case Задачи !, налетайте ! Как Вы относитесь к курящим девушкам? к узнать размер кластера fat системы? непонятка с FillChar, блоки, как заполнить блок? |
Платные хостинги Раскрутка сайта Книги по программированию оптимизация ппрограмм под паскаль
- не давно писал простейшуюю програму с массивамино надо было создать маленькое мень выбора задания масива программа простая а писанинны дофига так вот вопрос в чём может кто видел сайты или сам что придумал по поводу оптимизации программ если не жалко поделитесь )))) - ???? А в чем проблема ????Код procedure Runvar nafig:boolean; Ch:char; begin nafig:=false; repeat View; Ch:=ReadKey; case Ch of #0: { Function keys } begin Ch:=ReadKey; case Ch of #45: nafig:=True; { Alt-X } #63: PrintPages(5); {F5} #72: if page>1 then PrevPage; { Up } #73: if page>1 then PrevPage; { Page Up } #80: if not eof(t) then NextPage; { Down } #81: if not eof(t) then NextPages(10); { Page Down } end; end; end; #3: nafig:=True; { Ctrl-C } #27: nafig:=True; { Esc } end; {case} until nafig; end;highlightSyntax('delphimI0MjI','delphi'); - я в обшем меню у меня написано просто проги какието громосткие и трудно читабильные ))) получаються - Используй модульный принцип - Преобразуй повторяющиеся и однотипные фрагменты программы в процедуры и функции. Группируй процедуры и функции по назначению и выноси в отдельные модули. Используй ООП. - Remiznik, можешь выложить свой неоптимизированный код - поможем его упростить. - я могу код выло жить но я в обшем смысле имел веду типа зачем писать sqr(x) когда можно x*x что то в этом роде Код program Project21;{$APPTYPE CONSOLE}uses SysUtils;procedure myarctan(x,e:real ;var s:real); var n1,n:real; begin begin s:=0; n1:=x; n:=1; while abs(n1)>E*n do begin s:=s+n1/n; n1:=(n1*(-sqr(x))); n:=n+2; end; end; end;function myarctan1(x:real):real; var n1,n,s,e:real; begin s:=0; e:=0.000000000000001; n1:=x; n:=1; while abs(n1)>E*n do begin s:=s+n1/n; n1:=(n1*(-sqr(x))); n:=n+2; end; myarctan1:=s; end; var q,a,x,e,s,s1,s2,s3:real; z: byte; begin repeat repeat writeln ('1 - Procedure'); writeln ('2 - Function'); Writeln ('3 - Exit'); readln (z) until (z=1) or (z=2) or (z=3); if (z=1) or (z=2) then begin case z of 1: begin write ('vvedute x '); readln(x); writeln; if x<1 then begin e:=0.0000000000000001; myarctan(x,e,s); s1:=s; x:=2*x; myarctan(x,e,s); s2:=s; x:=(x/2)*3; myarctan(x,e,s); s3:=s; x:=x/3; a:=arctan(x)+arctan(2*x)+arctan(3*x); q:=s1+s2+s3; writeln ('standart arctan y= ',a); writeln (' my arctan y= ',q); writeln ; end else begin writeln('|x|<1'); writeln('poprobui ehe raz'); writeln; end; end;2: beginwrite ('vvedute x '); readln(x); writeln ; if x<1 then begin q:=myarctan1(x)+myarctan1(2*x)+myarctan1(3*x); a:=arctan(x)+arctan(2*x)+arctan(3*x); writeln ('standart arctan y= ',a); writeln (' my arctan y= ',q); writeln; end else begin writeln('|x|<1'); writeln('poprobui ehe raz'); writeln; end;end;3: exit; end; end;until z=3; { TODO -oUser -cConsole Main : Insert code here }end.highlightSyntax('delphicyOWRi','delphi'); Это сообщение отредактировал Fedor - 31.5.2005, 07:48 - Sqr() оптимальнее в ассемлерном коде, чем x*xЗаменил быe:=0.000000000000001; на e:=1e-15;until (z=1) or (z=2) or (z=3); на until z in [1..3]; {со множествами работа быстрее}if (z=1) or (z=2) then на if (z<>3) thenНу это мелочи. Главное - это алгоритм!  |