Вывод цифр в порядке возрастания.

@Xleborezka · Регистрация: 19.06.2011

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

Задаешь три числа,как сделать чтобы числа выводились в порядке возрастания?

@Puporev · 09.10.2011, 10:44

Pascal

var a,b,c,mn,sr,mx:real;
begin
.......................
if a>b then mx:=a else mx:=b;
if c>mx then mx:=c;
if a<b then mn:=a else mn:=b;
if c<mn then mn:=c;
sr:=a+b+c-mn-mx;
writeln(mn:0:2,' ',sr:0:2,' ',mx:0:2);
end.

Добавлено через 2 минуты
Если это продолжение задачи о треугольнике, то там у тебя 4 числа (+площадь). В этом случае удобнее использовать массив

Pascal

1	var a:array[1..4];

и сортировать его, хотя можно извратиться и без массива.

@Xleborezka · 09.10.2011, 11:15 **[ТС]**

Объясните ,что такое массив?
И как его применить к данной задаче?

@Puporev · 09.10.2011, 11:17

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

что такое массив?

Ну ты даешь!!!!

@Xleborezka · 09.10.2011, 11:18 **[ТС]**

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

Ну ты даешь!!!!

Объясните,оч надо)

@Puporev · 09.10.2011, 11:19

Ты уже сколько часов изучаешь паскаль? Ты что никогда не видел задачи на массивы и их сортировку?

@Xleborezka · 09.10.2011, 11:21 **[ТС]**

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

Ты уже сколько часов изучаешь паскаль? Ты что никогда не видел задачи на массивы и их сортировку?

Я изучать начал его ,ну месяц назад где то)

@Puporev · 09.10.2011, 11:21

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

@Xleborezka · 09.10.2011, 11:26 **[ТС]**

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

var a,b,c,mn,sr,mx:real;
begin
.......................
if a>b then mx:=a else mx:=b;
if c>mx then mx:=c;
if a<b then mn:=a else mn:=b;
if c<mn then mn:=c;
sr:=a+b+c-mn-mx;
writeln(mn:0:2,' ',sr:0:2,' ',mx:0:2);
end.
Добавлено через 2 минуты

Я вбил это ,но программа не запускается.

@Puporev · 09.10.2011, 12:39

Xleborezka, Ты вообще с головой дружишь, или только с хлебом и ножом?
Там же нет ввода, стоит многоточие.
Ты введи числа, а потом пиши всякую ерунду. Извини, но нет никакого желания больше с тобой общаться.

@ЮЮллиияя · 12.04.2013, 14:11

Puporev, здравствуйте, можно ли у вас спросить, как будет выглядеть программа ели потребуется расположить 4 числа в порядке возрастания, я составила программу , но у меня не получается. Исправьте,пожалуйста,ошибки, я работаю в Paskal ABC.

Pascal

program trt;
var
x,c,a,b,mn,mx,vtoroe,tretie:real;
begin
writeln('Введите четыре числа');
read(x,c,a,b);
if a>b then mx:=a else mx:=b;
if c>mx then mx:=c else mx:=mx;
if x>mx then mx:=x else mx:=mx;
if a<b then mn:=a else mn:=b;
if c<mx then mn:=c else mn:=mn;
if x<mx then mn:=x else mn:=mn;
vtoroe:=x+c+a+b-mn-mx-tretie;
tretie:=x+c+a+b-mn-mx-vtoroe;
writeln(mn , 'mn', vtoroe  , 'vtoroe' ,tretie   , 'tretie',mx  ,'mx');
end.

@Xleborezka 6 / 6 / 0 Регистрация: 19.06.2011 Сообщений: 231
		1
	Вывод цифр в порядке возрастания. 09.10.2011, 10:33. Показов 8358. Ответов 10 Метки нет (Все метки) Задаешь три числа,как сделать чтобы числа выводились в порядке возрастания? 0

@Xleborezka 6 / 6 / 0 Регистрация: 19.06.2011 Сообщений: 231
	09.10.2011, 11:15 [ТС]	3
	Объясните ,что такое массив? И как его применить к данной задаче? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	09.10.2011, 11:17	4
	Сообщение от Xleborezka что такое массив? Ну ты даешь!!!! 0

@Xleborezka 6 / 6 / 0 Регистрация: 19.06.2011 Сообщений: 231
	09.10.2011, 11:18 [ТС]	5
	Сообщение от Puporev Ну ты даешь!!!! Объясните,оч надо) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	09.10.2011, 11:19	6
	Ты уже сколько часов изучаешь паскаль? Ты что никогда не видел задачи на массивы и их сортировку? 0

@Xleborezka 6 / 6 / 0 Регистрация: 19.06.2011 Сообщений: 231
	09.10.2011, 11:21 [ТС]	7
	Сообщение от Puporev Ты уже сколько часов изучаешь паскаль? Ты что никогда не видел задачи на массивы и их сортировку? Я изучать начал его ,ну месяц назад где то) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	09.10.2011, 11:21	8
	Если нет, то нужно придумывать сортировку четырех чисел без массива. 0

@Xleborezka 6 / 6 / 0 Регистрация: 19.06.2011 Сообщений: 231
	09.10.2011, 11:26 [ТС]	9
	Сообщение от Puporev var a,b,c,mn,sr,mx:real; begin ....................... if a>b then mx:=a else mx:=b; if c>mx then mx:=c; if a<b then mn:=a else mn:=b; if c<mn then mn:=c; sr:=a+b+c-mn-mx; writeln(mn:0:2,' ',sr:0:2,' ',mx:0:2); end. Добавлено через 2 минуты Я вбил это ,но программа не запускается. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	09.10.2011, 12:39	10
	Xleborezka, Ты вообще с головой дружишь, или только с хлебом и ножом? Там же нет ввода, стоит многоточие. Ты введи числа, а потом пиши всякую ерунду. Извини, но нет никакого желания больше с тобой общаться. 0

	12.04.2013, 14:11