Процедуры Опции

[Sir-j]

Люди помогите!! Где можно найти как решать задачи через процедуры!!! не понимаю!!

[volvo]

Ты конечно не обижайся, но код должен обладать массовостью, а не какой-то одной конкретно решеной задачей.

Это такая новая форма бреда? Какой массовостью должен обладать код? Ты сам-то понял, что сказал?

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

Вот !!! Вот, что я так долго и упорно искал в интернете, и никак не мог найти !!! То-то я смотрю, почти все стандартные процедуры и функции недоделанные какие-то... SetColor() например... Я хотел ее как-то применить для решения другой задачи (ну, музыку какую-нибудь пропиликать на спикере) - ничего не вышло... Может не так пробовал?

А вообще я советую переписать данную процедуру. Ну например только параметры
procedure  writeRoots (a, b, c: real; Var x1, x2: real);
тогда хотяб вместо скверного одново вывода можешь получить хотяб значение корней. Можно добавить какой-нибудь flag типа boolean который будет сообщать имеет ли уравнение корни или нет.

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