![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 25.09.2011
Сообщений: 16
|
![]()
Помогите решить эту же задачу , только без функций...
Uses CRT; Var x,y,z: integer; g: Real; Function max(x, y: Integer): Integer; begin If (x>=y) then max:=x else max:=y; end; Function min(x, y: Integer): Integer; begin If (x<=y) then min:=x else min:=y; end; Begin ClrScr; WriteLn('Input to x,y,z: '); Read(x, y, z); WriteLn('Max: ', max(x+y+z, x*y*z)); WriteLn('Min: ', min(x+y+z, z*y*z)); g:=max(x+y+z,x*y*z)/min(x+y+z, z*y*z); WriteLn('Result max/min: ', g:1:3); ReadKey; End. |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,830
|
![]()
Вы идиот?
Это же очевидно: не нужны функции - выбросить их, а то, что делалось в них вставить куда надо. |
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 29.10.2009
Сообщений: 259
|
![]()
Во-первых, грубить и так разговаривать - это самое низкое, что может быть, к тому же - это нарушение правил форума. Во-вторых, лично я с человеком полностью согласен. Ладно, может быть поможет:
Код:
Из всех классических книг, посвященных программированию, ненавижу всего одну - русский перевод книги Роберта Седжвика-"Фундаментальные алгоритмы C++". Предпочитаю читать её в оригинале.
Последний раз редактировалось Serge_Bliznykov; 30.10.2012 в 14:15. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Извлечение Ссылки из ячейки с гиперссылкой без дополнительных функций | KuroiRyuu | Microsoft Office Excel | 5 | 16.07.2012 22:17 |
Задача по массивам и сортировка строк без стандартных функций. | AnnieFoxy | Помощь студентам | 3 | 19.01.2011 09:45 |
Как корректно определить границы кучи в любой момент времени без использования функций менеджера дрп в си | DartLenin | Общие вопросы C/C++ | 0 | 18.12.2010 21:15 |
Можно ли сделать скриншот без Windows функций? | Spooner | Общие вопросы Delphi | 8 | 17.08.2010 10:57 |
Как без лишних функций записать файл в string? | TwiX | Общие вопросы Delphi | 10 | 24.08.2009 12:16 |