Записать числа в порядке возрастания

@Сантёр · Регистрация: 09.02.2010

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

Записать числа в порядке возрастания Название: 11111111111111111111111.JPG
Просмотров: 252

Размер: 4.0 Кб

@Сантёр · 09.02.2010, 17:30 **[ТС]**

помогите пожалуста решить задачю нп паскале

@Puporev · 09.02.2010, 17:46

Сантёр, Задание можно нормально написать? Что такое х1, х2, х3, откуда берутся?

@Сантёр · 09.02.2010, 17:47 **[ТС]**

да

@Puporev · 09.02.2010, 17:53

Сантёр, Что Да?

@Сантёр · 09.02.2010, 18:09 **[ТС]**

ну ты ш спросил можно написть или нет ну я сказал да
или ето ты меня просишь написать? если меня то ето и все условие больше нету

@Сантёр · 09.02.2010, 18:18 **[ТС]**

вот типа такого должно получится но тут чючють не правильно

@Puporev · 09.02.2010, 19:00

Pascal

uses crt;
{поскольку стандартное возведение в степень работает только
для положительных чисел, напишем свою функцию}
function Step(x,y:real):real;
var s:real;
begin
if x>0 then s:=exp(ln(x)*y)
else if x<0 then s:=-exp(ln(abs(x))*y);
Step:=s;
end;
 
var x1,x2,x3,a,b,c,mx,mn,sr:real;
begin
clrscr;
repeat
writeln('Введите 3 числа, отличных от ноля:');{на ноль делить нельзя}
readln(x1,x2,x3);
until x1*x2*x3<>0;
{вычисляем числа}
a:=Step(1/x1,exp(ln(5)/5));
b:=Step(1/x2,exp(ln(4)/4));
c:=Step(1/x3,exp(ln(3)/3));
{находим максимальное}
mx:=a;
if b>mx then mx:=b;
if c>mx then mx:=c;
{минимальное}
mn:=a;
if b<mn then mn:=b;
if c<mn then mn:=c;
sr:=a+b+c-mx-mn;{среднее}
write(mn:0:2,'  ',sr:0:2,'  ',mx:0:2);
readln
end.

@Сантёр · 09.02.2010, 19:02 **[ТС]**

спасибо тебе большое

@Сантёр 0 / 0 / 0 Регистрация: 09.02.2010 Сообщений: 61
		1
	Записать числа в порядке возрастания 09.02.2010, 15:00. Показов 3678. Ответов 8 Метки нет (Все метки) Записать числа в порядке возрастания 0

@Сантёр 0 / 0 / 0 Регистрация: 09.02.2010 Сообщений: 61
	09.02.2010, 17:30 [ТС]	2
	помогите пожалуста решить задачю нп паскале 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	09.02.2010, 17:46	3
	Сантёр, Задание можно нормально написать? Что такое х1, х2, х3, откуда берутся? 0

@Сантёр 0 / 0 / 0 Регистрация: 09.02.2010 Сообщений: 61
	09.02.2010, 17:47 [ТС]	4
	да 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	09.02.2010, 17:53	5
	Сантёр, Что Да? 0

@Сантёр 0 / 0 / 0 Регистрация: 09.02.2010 Сообщений: 61
	09.02.2010, 18:09 [ТС]	6
	ну ты ш спросил можно написть или нет ну я сказал да или ето ты меня просишь написать? если меня то ето и все условие больше нету 0

@Сантёр 0 / 0 / 0 Регистрация: 09.02.2010 Сообщений: 61
	09.02.2010, 18:18 [ТС]	7
	вот типа такого должно получится но тут чючють не правильно Миниатюры 0

@Сантёр 0 / 0 / 0 Регистрация: 09.02.2010 Сообщений: 61
	09.02.2010, 19:02 [ТС]	9
	спасибо тебе большое 0

Опции темы