| Библиотека программирование, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Инсталяция BDE под ХР Текстовое поле с кнопкой для копирования файла, Нужно скопировать файл в папку, а путь в проблема с полями БД TFTP Вычисление дня недели Консольные приложения RichEdit, вставка картинок из ворда Не могу установить RxLib для Delphi6 Вставить текст, В чужое окно Вывод по страницам с листанием., Очень нужна помощь. Обход дерева Работа с командной строкой Ошибка, Access Volation Редактирование текста, Delphi Dial-Up диалог соединения, Не работает в XP :( ПРО стоки!, В широком смысле этого слова! MDI-приложение Перевод в другую кодировку.., DOS -> Widows... Как отловить ошибку? Delphi 8, господи :) Шарики, столкновени шаров Как Вы относитесь к курящим девушкам? Решите задачку!!!, Пожалуйста!!! Анимированная иконка в таскбаре, Не получается красивое обновление пароль на входе в программу Работа с модулем DOS, помогите решить задачку... Access97 & ActiveReports Маленький вопрос, ПРо интернет TQRCOmpositeReport FastReport Изменение атрибутов окна, как изменить кнопки в правом верхнем угл Сохранение игры, игра DOS ская Создание архива при помощи внешней програмы-арх., помогите задачу сделать. Socket, потоки Рисунок в TRichEdit, Рисунок в TRichEdit работа с SQLServer 2000 без ADO, что-то типа MSSQLServer API CreateOleObject('Word.Application') Иконки WinXP и TImageList (MyClass as TMyclass).savetostream ? работа с Socket, ошибка переполнения памяти Массив байт Что это за TBookmarkStr, Что это за TBookmarkStr Помогите с DBgrid пожалуйста., Помогите с DBgrid пожалуйста. Доп клавиши на клаве, как использовать? Опять проблемы с ДЛЛ Вопрос о RichEdit Подгружаемые модули, subj Задача на Pascal, Составить перекодер Обман Win2000 Работа с функциями, Как подключить функцию к другим модулям Как сделать иконку своей компоненте, Где это задается FileRead, работа с буфером Buttons, (о кнопках) TImage, не берет большие файлы BMP ToolBar Приложение тормозит, аж не свернуть Парсинг... Парсинг... Парсинг..., ...XML-подобного файла Вставляем битмап в RichEdit! HELP!!!, Вставляем битмап в RichEdit! HELP!!! Как сохранить картинку в поле БД Игра-змейка Файлы в списке, Folder -> ListBox Глобыльная ловушка, Подскажите в чем проблема Передача даннных между приложениями Копирование из ListView в ListView, зная только хендл Вставить текст, В Internet Explorer проверка наличия данных в TEdit, TComboBox ... WinExec, PChar, String ?, Не зняю как преобразовать ! Как Вы относитесь к курящим девушкам? Получить HTML код странички Вот такая библиотека, Как ее написать? |
Платные хостинги Раскрутка сайта Книги по программированию Решите задачку!!!, Пожалуйста!!!
- Кто может помочь - помогите.Решите задачу по паскалю,Пожалуйста. "Из заданного интервала натуральных чисел выбрать все числа, являющиеся совершенными. Подсчитать их количество".Если чё пишите на extrax@inbox.ru - А что значит совершенные? - Да в этом и прикол что я сам не знаю что такое совершенные числа. - - Код VAR I,N,Summa: LONGINT; Delitel: INTEGER; begin FOR I:=3 TO 34000000 DO BEGIN Summa:=1; FOR Delitel:=2 TO SQRT(I) DO BEGIN N:=(I DIV Delitel); IF N*Delitel=I THEN Summa:=Summa + Delitel + (I DIV Delitel); END; IF INT(SQRT(I))=SQRT(I) THEN Summa:=Summa-INT(SQRT(I)); IF I=Summa THEN WRITELN(I,’ - ‘,Summa); END;END.highlightSyntax('delphizMjI1N','delphi');Вот короче код (не проверял).А вот линк http://arbuz.ferghana.ru/z_sov1.html - Огромное спасибо за помощь!!! - Вот ещё на всякий...Код unit Perfect;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; Label2: TLabel; Edit2: TEdit; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); function IsPerfect(CurrentNumber: integer): boolean; private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);begin Edit1.Text := ''; Edit2.Text := '';end;function TForm1.IsPerfect(CurrentNumber: integer): boolean;var i: integer; DivisorsSum: integer; b: boolean;begin b:=false; DivisorsSum:=0; for i:=1 to CurrentNumber do if (CurrentNumber mod i = 0) and (CurrentNumber <> i) then DivisorsSum := DivisorsSum + i; if DivisorsSum = CurrentNumber then b:=true; IsPerfect:=b;end;procedure TForm1.Button1Click(Sender: TObject);var CurrentNumber: integer; MaxLimit: integer; DivisorsSum: integer;begin DivisorsSum:=0; MaxLimit := StrToInt(Edit1.Text); for CurrentNumber := 1 to MaxLimit do begin if IsPerfect(CurrentNumber) then Edit2.Text := Edit2.Text + IntToStr(CurrentNumber) + ' '; end;end;end.highlightSyntax('delphiYmFlYm','delphi'); - А по-русски, то есть по-подробнее, что сделать-то надо. Потому кк мне не очень ясно: если функции линейные и хотя бы одна не параллельна Ox, то на бесконечности они уходят в + и - бесконечность... Так какая огибающая может быть? Что я не так понял? Или найти в какой точке огибающая ниже всего? Т.е. тогда просто найти точку в которой графики всех функций ниже всего... Вообщем, можно поподробнее. И ещё, нет ли там интервальчика кокого нибудь?  |