![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#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. Заранее спасибо... |
![]() |
![]() |
![]() |
#2 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
![]() Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
Последний раз редактировалось alex_fcsm; 03.03.2009 в 19:03. |
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 24.02.2009
Сообщений: 269
|
![]()
огромное спасибо.... вы мне очень помогли..... У меня еще такой вот вопросик.... А можно ли написать программу не с 3-мя функциями, а с одной? и если можно, то как....
|
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 24.02.2009
Сообщений: 269
|
![]()
и назрел еще вопросик по ходу.... как в этой программе избавиться от глобальных переменных? заранее спасибо
|
![]() |
![]() |
![]() |
#5 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
![]() Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
![]() |
![]() |
![]() |
#6 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
![]()
А смысл? У Вас она и так одна- радиус круга. Если же все-таки захотите избавиться, то придется каждый раз вводить в функции.
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
![]() |
![]() |
![]() |
#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 |