Задание к сессии

[IIaJIbI4]

Задание к сессии

Люди добрые помогите пожалуйста студенту...

Вариант 13 -Ларшин Юрий

Выполнить задания в среде Delphi поместив некоторые свои функции и процедуры по каждому заданию в отдельный модуль, а затем
использовать процедуры и функции модуля в своем проекте. Выбор выполняемого задания должен осуществляться через главное меню.
Меню содержит пункты и подпункты: Задания (задание1, ...,задание 5); помощь(автор, о программе); выход. При запуске программы
экран отображает меню и надпись на форме, содержащую информацию об авторе и названии проекта. Задания открываються в том же окне
подпункты Автор и О программе в отдельных окнах, содержащих только кнопку ОК.

И если можно то не фрагментами а полностью. Заранее благодарю...

Задание 1. Составьте программу, которая создает файл 'RANDOM2.DAT', состоящий из 100 случайных цифр типа integer в диапозоне 0...300.
Исследуйте получившийся файл с целью обнаружения в нем простых чисел 23,31,37,41,53,107,127,151,197. В конце программы уничтожьте
созданный файл.
Задание 2. Дан одномерный массив целых чисел. Проверьте, являеться ли он упорядоченным по убыванию.
Задание 3. Вычеркните из заданного слова все буквы, совпадающие с его последней буквой.
Задание 4. В матрице n-го порядка переставить строки так, чтобы на главной диагонали матрицы были расположены элементы, наименьшие
по абсолютной величине.
Задание 5. Вывести график функции. Для построения графика используется вся доступная область формы, причем если во время работы
программы пользователь изменит размер окна, то график должен быть перерисован заново с учетом размеров окна. y=в числителе e в степени sin в кубе x в знаменателе 1+a*e в степени натуральный логорифм 4.2-x по модулю. P.S. Sory за такое написание формулы...

 

[MrSTEP]

....
Задания открываються в том же окне
...

в одном окне (форме) 5 заданий? это обязательно?
и еще. когда сдавать нужно?

 

[MrSTEP]

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

 

[Long Cat]

- задание с графиком. напишите эту программу, и выложите его сюда, пожалуйста, а уж я разгребу

Экземпляр рисующего объекта называется canvas.
Следует обратить внимание на методы

form1.canvas.moveto()

и

form1.canvas.lineto()

 

[MrSTEP]

так, думаю что moveto перемещает курсор в точку на графике, а lineto - проводи туда же линию?

 

[Long Cat]

Именно так.

 

[MrSTEP]

понятно, будем пробовать. а какая процедура удаляет файл в Object Pascal?

 

[Long Cat]

DeleteFile()

Эта функция из WINAPI, она не имеет отношения к конкретному языку программирования.

 

[MrSTEP]

WINAPI.. а просто так ее получится употребить в проекте?

 

[Long Cat]

Программа ведь для Windows? Тогда можно.

 

[MrSTEP]

конечно для винды. а еще вопрос: есть ли у формы свойство, запрещающее менять ее размер?

 

[Long Cat]

Есть. Нужно внимательно изучить Object Inspector.
К сожалению, я не помню названия.

 

[MrSTEP]

ладно, это уже не надо. но есть дргой вопрос: у нас есть компонент Memo и текст, который в ходе работы надо будет вывести в этом Мемо. Как сделать так, что бы вывести текст в несколько строк?

 

[Long Cat]

Вставить в текст символы перевода строки:

s:='abc'+chr(13)+chr(10)+'cde'

;
Результат:

abc
cde

 

[MrSTEP]

всего лишь chr(13)+chr(10)?? ура, наконец-то я узнал эту тайну она оказалась намного проще, чем я думал спасибо

 

[AlexZir]

для автоматического переноса строк в Memo достаточно свойству wordwrap присвоить true.

 

[MrSTEP]

нене, мне надо перенести именно в нужном месте. а совет не работает. может быть WordWrap зависимо от других свойств?

 

[AlexZir]

Для запрещения увеличения окна можно отключить кнопки управления окном в свойствах формы, сделать толщину бордюра формы равной 0 (для запрещения увеличения мышью) и отслеживать события увеличения окна.
Другой способ: вы должны перехватывать сообщение WM_GETMINMAXINFO
вот листинг из Delphi World

[B]private[/B]
  [COLOR=#000080][I]{ Private declarations }[/I][/COLOR]
  [B]procedure[/B] WMGetMinMaxInfo([B]var[/B] Info: TWMGetMinMaxInfo); [B]message[/B] wm_GetMinMaxInfo;

[B]implementation[/B]

[COLOR=#000080][I]{$R *.DFM}[/I][/COLOR]

[B]procedure[/B] TForm1.WMGetMinMaxInfo([B]var[/B] Info:TWMGetMinMaxInfo);
[B]begin[/B]
  [B]with[/B] Info.MinMaxInfo^ [B]do[/B]
  [B]begin[/B]
      ptMinTrackSize.x := 400;
      ptMinTrackSize.y := 200;
      ptMaxTrackSize.x := 400;
      ptMaxTrackSize.y := 200;
      ptMaxPosition.x := BoundsRect.Left;
      ptMaxPosition.y := BoundsRect.top;
  [B]end[/B];
  [B]inherited[/B];
[B]end[/B];[FONT=verdana]

[/FONT]

 

[AlexZir]

Вывод сведений о программе и об авторе можно реализовать при помощи вызова модального окна showmessage('text')

 

[MrSTEP]

Вывод сведений о программе и об авторе можно реализовать при помощи вызова модального окна showmessage('text')

это я уже так и сделал