Из трех чисел вывести среднее по величине

@maksim0308 · Регистрация: 10.07.2011

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

Ввести три числа. Вывести среднее из них, т.е. то, которое располагается между минимальным и максимальным.

Хотел сделать что-то типа этого:

Pascal

uses crt;
var a,b,c:integer;
 
BEGIN
   clrscr;
    read(a,b,c);
     if a>b and a<c then write(a);
     if a>c and a<b then write(a);
 
   readkey;
END.

Но не получается, скажите пожалуйста в чем ошибка и как написать программу проще.

@Puporev · 21.07.2011, 15:38

Pascal

1
2
3

if ((a>=b) and (a<=c))or((a>=c) and (a<=b)) then write(a)
     else if ((b>=a) and (b<=c))or((b>=c) and (b<=a)) then write(b)
     else if ((c>=a) and (c<=b))or((c>=b) and (c<=a)) then write(c);

@maksim0308 · 21.07.2011, 15:39 **[ТС]**

Спасибо, все ясно!

@Puporev · 21.07.2011, 15:41

Или можно так.

Pascal

var a,b,c,mn,mx:integer;
 
BEGIN
   clrscr;
    read(a,b,c);
    if a<b then mn:=a else mn:=b;
    if c<mn then mn:=c;
    if a>b then mx:=a else mx:=b;
    if c>mx then mx:=c;
    write(a+b+c-mn-mx);
   readkey;
END.

@Просто лис · 21.07.2011, 15:47

Puporev, 1 решение более оптимизировано.

@Puporev · 21.07.2011, 16:00

Наверное, второй вариант в принципе только для целых, для вещественных за счет округления может вывести немного не то число..

murderer · 21.07.2011, 20:32

Если a<>b<>c то можно так

Pascal

var
  a,b,c,x,y,z,w: integer;
begin
  readln(a,b,c);
  x:=a-b;
  y:=a-c;
  z:=b-a;
  w:=b-c;
  if x xor y<0 then
    write(a)
  else if z xor w<0 then
    write(b)
  else if y xor w<0 then
    write(c);
  readln;
end.

@maksim0308 · 21.07.2011, 22:06 **[ТС]**

Меня устроил первый вариант

@Kolbasnik98 · 01.08.2011, 20:25

Извиняюсь, я новенький, только сегодня начал заниматься этим, а полностью текст программы можно, а то я не допираю?

@Puporev · 01.08.2011, 20:37

Сообщение от Kolbasnik98

а полностью текст программы можно,

Так здесь три кода полностью, а в четвертом только середина меняется. Что еще нужно?

@maksim0308 · 01.08.2011, 20:37 **[ТС]**

Текст и так полный.

@Kolbasnik98 · 01.08.2011, 20:39

Всё вместе скиньте чтобы от Program до end

@Puporev · 01.08.2011, 20:40

Сообщение от Kolbasnik98

от Program

А зачем это? Совершенно не нужная строка.

@Kolbasnik98 · 01.08.2011, 20:41

пишет:
error 3

@maksim0308 · 01.08.2011, 20:41 **[ТС]**

Строку program писать не обязательно.

@Kolbasnik98 · 01.08.2011, 20:41

Сообщение от Puporev

А зачем это? Совершенно не нужная строка.

Всымсле не нужная?

@Puporev · 01.08.2011, 20:44

maksim0308, А зачем ты снова эту ерунду написал?

@Kolbasnik98 · 01.08.2011, 20:45

Теперь еррор 57

@maksim0308 · 01.08.2011, 20:45 **[ТС]**

Извиняюсь, перепутал.

@Kolbasnik98 · 01.08.2011, 20:47

Так как надо???

@Kolbasnik98 -1 / 0 / 0 Регистрация: 01.08.2011 Сообщений: 42
	01.08.2011, 20:39	12
	Всё вместе скиньте чтобы от Program до end 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	01.08.2011, 20:40	13
	Сообщение от Kolbasnik98 от Program А зачем это? Совершенно не нужная строка. 0

@Kolbasnik98 -1 / 0 / 0 Регистрация: 01.08.2011 Сообщений: 42
	01.08.2011, 20:41	14
	пишет: error 3 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	01.08.2011, 20:44	17
	maksim0308, А зачем ты снова эту ерунду написал? 0

@Kolbasnik98 -1 / 0 / 0 Регистрация: 01.08.2011 Сообщений: 42
	01.08.2011, 20:45	18
	Теперь еррор 57 0

@maksim0308 13 / 13 / 7 Регистрация: 10.07.2011 Сообщений: 104
	21.07.2011, 15:39 [ТС]	3
	Спасибо, все ясно! 0

@Просто лис Путешественник вселенной 189 / 160 / 119 Регистрация: 01.03.2011 Сообщений: 664
	21.07.2011, 15:47	5
	Puporev, 1 решение более оптимизировано. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	21.07.2011, 16:00	6
	Наверное, второй вариант в принципе только для целых, для вещественных за счет округления может вывести немного не то число.. 0

@maksim0308 13 / 13 / 7 Регистрация: 10.07.2011 Сообщений: 104
	21.07.2011, 22:06 [ТС]	8
	Меня устроил первый вариант 0

@Kolbasnik98 -1 / 0 / 0 Регистрация: 01.08.2011 Сообщений: 42
	01.08.2011, 20:25	9
	Извиняюсь, я новенький, только сегодня начал заниматься этим, а полностью текст программы можно, а то я не допираю? 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	01.08.2011, 20:37	10
	Сообщение от Kolbasnik98 а полностью текст программы можно, Так здесь три кода полностью, а в четвертом только середина меняется. Что еще нужно? 0

@maksim0308 13 / 13 / 7 Регистрация: 10.07.2011 Сообщений: 104
	01.08.2011, 20:37 [ТС]	11
	Текст и так полный. 0

@maksim0308 13 / 13 / 7 Регистрация: 10.07.2011 Сообщений: 104
	01.08.2011, 20:41 [ТС]	15
	Строку program писать не обязательно. 0

@Kolbasnik98 -1 / 0 / 0 Регистрация: 01.08.2011 Сообщений: 42
	01.08.2011, 20:41	16
	Сообщение от Puporev А зачем это? Совершенно не нужная строка. Всымсле не нужная? 0

@maksim0308 13 / 13 / 7 Регистрация: 10.07.2011 Сообщений: 104
	01.08.2011, 20:45 [ТС]	19
	Извиняюсь, перепутал. 0

	01.08.2011, 20:47

@Kolbasnik98 -1 / 0 / 0 Регистрация: 01.08.2011 Сообщений: 42
	01.08.2011, 20:47	20
	Так как надо??? 0

Из трех чисел вывести среднее по величине

Решение