|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.03.2009, 18:56 | #1 |
Форумчанин
Регистрация: 24.02.2009
Сообщений: 269
|
проблема с функциями
Добрый вечер.... Помогите мне пожалуйста справиться с проблемой...
Мне нужно переделать исходный код с функцией обработки, но я где ошибся и прога, мало того что не работает, так она теперь еще и не компилируется.... Вот исходный текст.... program math; const p= 3.14; var r,l,s,v: real; procedure vvod(var r:real); begin writeln ('введите радиус '); readln (r); end; function a (r:real;var l:real):real; begin l:=2*p*r; a:=l; end; function b:real; begin s:=2*p*sqr(r); end; function c:real; begin v:=4/3*p*sqr(r); end; procedure out; begin writeln ('длина окружности* ',a(r):4:2); writeln ('площадь круга* ',b:4:2); writeln ('объем шара* ',c:4:2); readln; end; begin vvod(r); out; end. Заранее спасибо... |
03.03.2009, 19:01 | #2 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
Последний раз редактировалось alex_fcsm; 03.03.2009 в 19:03. |
03.03.2009, 19:10 | #3 |
Форумчанин
Регистрация: 24.02.2009
Сообщений: 269
|
огромное спасибо.... вы мне очень помогли..... У меня еще такой вот вопросик.... А можно ли написать программу не с 3-мя функциями, а с одной? и если можно, то как....
|
03.03.2009, 19:13 | #4 |
Форумчанин
Регистрация: 24.02.2009
Сообщений: 269
|
и назрел еще вопросик по ходу.... как в этой программе избавиться от глобальных переменных? заранее спасибо
|
03.03.2009, 19:14 | #5 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
03.03.2009, 19:16 | #6 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
А смысл? У Вас она и так одна- радиус круга. Если же все-таки захотите избавиться, то придется каждый раз вводить в функции.
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
03.03.2009, 19:34 | #7 |
Форумчанин
Регистрация: 24.02.2009
Сообщений: 269
|
спасибочки огромное, вы меня просто спасли
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Переписать программу с использованием функций, С++ | Vikylik | Помощь студентам | 2 | 09.04.2009 10:39 |
Задача с функциями | Серафимий Долговяз | Помощь студентам | 2 | 31.01.2009 18:32 |
Помогите разобратся с функциями на С++ | ANTI | Общие вопросы C/C++ | 1 | 04.03.2008 17:12 |
Работа с функциями | Worms | Общие вопросы Delphi | 1 | 02.12.2007 15:51 |