|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
07.04.2010, 19:56 | #1 |
Пользователь
Регистрация: 25.03.2010
Сообщений: 30
|
функцыя
заменить функцыю на процедуру
var a1,b1,c1:real; function max(a,b,c:real):real; var m :real begin if a>b then m:=a else m=b; if c>m then m=c; max=m; end; begin read(a1,b1,c1); writeln(max(a1,b1,c1)-max(a1+1,b1-2,c1):6:2); readln;end. Последний раз редактировалось misha25525; 07.04.2010 в 20:31. |
07.04.2010, 20:20 | #2 |
Участник клуба
Регистрация: 03.12.2009
Сообщений: 1,013
|
Ну так и в чем проблема? Что не понятно?
P.S. Функция Последний раз редактировалось Базиля; 07.04.2010 в 20:23. |
07.04.2010, 21:13 | #3 |
Пользователь
Регистрация: 29.03.2010
Сообщений: 24
|
Код:
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
подпрограма(функцыя) | misha25525 | Помощь студентам | 0 | 31.03.2010 19:34 |