Решение задачи различными способами

@Boush · Регистрация: 02.12.2012

Author24 — интернет-сервис помощи студентам

Помогите составить программу решения задачи!
Надо решить 3 способами:
1.Процедура с параметрами
2.Процедура без параметров
3.Функция

Задача: m(a,a-b)+m(a,b-c)/1+m(a+bc,-1,15)

HighPredator · 18.12.2012, 21:15

А что такое "m"?

@Boush · 18.12.2012, 22:03 **[ТС]**

среднее геометрическое

Добавлено через 19 минут
помогите пожалуйста!

@Ce7eH_111 · 18.12.2012, 22:05

А на единицу делить зачем???

@Boush · 18.12.2012, 22:16 **[ТС]**

незнаю! так в задании написанно

HighPredator · 18.12.2012, 22:56

А что именно в виде подпрограмм реализовывать надо?

@Boush · 18.12.2012, 23:11 **[ТС]**

среднее геометрическое

HighPredator · 18.12.2012, 23:17

Ну тогда я вас разочарую: для случаев 1 и 2 адекватно реализовать задачу нереально.

@Boush · 19.12.2012, 15:38 **[ТС]**

ну как сможите

Добавлено через 10 секунд
глядя на задание

Добавлено через 15 часов 51 минуту
помогите очень надо!!

HighPredator · 19.12.2012, 15:43

m как функция с параметрами будет выглядеть так:

Pascal

function m(x,y:real):real;
begin
  if x*y>0 then m:=sqrt(x*y)
  else 
    begin
      writeln('Invalid arguments');
      m:=0;
    end;
end;

Использование примерно такое:

Pascal

var
  a,b,c,res:real;
begin
  {...}
  res:=m(a,a-b)+m(a,b-c)/1+m(a+b*c,-1.15);
  writeln(res:0:4);
  readln;
end.

@Boush · 19.12.2012, 15:46 **[ТС]**

а как же делается процедура?

HighPredator · 19.12.2012, 15:52

Boush, если у вас m будет процедурой, то вы не сможете записать выражение как в задаче - придется извращаться.

Pascal

procedure m(x,y:real; var res:real);
begin
  if x*y>0 then res:=sqrt(x*y)
  else
    begin
      writeln('Invalid arguments');
      res:=0;
    end;
end;

Использовать в таком случае придется так:

Pascal

var
  a,b,c:rs:real;
  x1,x2,x3:real;
begin
  {...}
  m(a,a-b,x1);
  m(a,b-c,x2);
  m(a+b*c,-1.15,x3);
  rs:=x1+x2/1+x3;
  writeln(rs:0:4);
  readln;
end.

@Boush · 19.12.2012, 16:15 **[ТС]**

всё равно не пойму как записать программу

@Boush 0 / 0 / 0 Регистрация: 02.12.2012 Сообщений: 19
	19.12.2012, 16:15 [ТС]	13
	всё равно не пойму как записать программу 0

@Boush 0 / 0 / 0 Регистрация: 02.12.2012 Сообщений: 19
		1
	Решение задачи различными способами 18.12.2012, 21:10. Показов 1505. Ответов 12 Метки нет (Все метки) Помогите составить программу решения задачи! Надо решить 3 способами: 1.Процедура с параметрами 2.Процедура без параметров 3.Функция Задача: m(a,a-b)+m(a,b-c)/1+m(a+bc,-1,15) 0

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	18.12.2012, 21:15	2
	А что такое "m"? 0

@Boush 0 / 0 / 0 Регистрация: 02.12.2012 Сообщений: 19
	18.12.2012, 22:03 [ТС]	3
	среднее геометрическое Добавлено через 19 минут помогите пожалуйста! 0

@Ce7eH_111 34 / 34 / 19 Регистрация: 17.11.2012 Сообщений: 109 Записей в блоге: 2
	18.12.2012, 22:05	4
	А на единицу делить зачем??? 0

@Boush 0 / 0 / 0 Регистрация: 02.12.2012 Сообщений: 19
	18.12.2012, 22:16 [ТС]	5
	незнаю! так в задании написанно 0

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	18.12.2012, 22:56	6
	А что именно в виде подпрограмм реализовывать надо? 0

@Boush 0 / 0 / 0 Регистрация: 02.12.2012 Сообщений: 19
	18.12.2012, 23:11 [ТС]	7
	среднее геометрическое 0

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	18.12.2012, 23:17	8
	Ну тогда я вас разочарую: для случаев 1 и 2 адекватно реализовать задачу нереально. 0

@Boush 0 / 0 / 0 Регистрация: 02.12.2012 Сообщений: 19
	19.12.2012, 15:38 [ТС]	9
	ну как сможите Добавлено через 10 секунд глядя на задание Добавлено через 15 часов 51 минуту помогите очень надо!! 0

@Boush 0 / 0 / 0 Регистрация: 02.12.2012 Сообщений: 19
	19.12.2012, 15:46 [ТС]	11
	а как же делается процедура? 0