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

[n01R]

57.

 Дано действительное число a. Вычислить f(a), если
      {0 при x<=(меньше или равно)0 
f(x)={x при 0<x<=1
       {x4 (4степени) в остальных случаях

47.

Даны действ. положительные числа x,y,z
а) Выяснить, существует ли треугольник с длинами сторон x,y,z
б) Если треугольник существует, то ответить  - явл. ли он остроуголным

44.
Если сумма трех попарно различных действительных чисел x,y,z меньше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других, в противном случае заменить меньшее из x и y полусуммой двух оставшихся значений



(Задачи по программированию Абрамов,Гнездилова,Капустин,Селюн 1988 г.)

Помогите народ!!!!
хоть как нибудь хоть какую нибудь задачку
DELPHI 7.0

[_Dmitry]

Что не получается?
В задаче 57 сделай функцию

function f(x: double): double;
begin
  f:=x*x*x*x;
  if x <= 1 then f:=x;
  if x <= 0 then f:=0;
end;

В задаче 47 упорядочи числа по возрастанию, x-min, z-max, тогда треугольник существует, если (x+y)>z. Остроугольность можно проверить по теореме Пифагора: если x^2+y^2>z^2 - остроугольный, если x^2+y^2=z^2 - прямоугольный, если x^2+y^2<z^2 - тупоугольный.

Ну, и помозгуй над 44, тоже ничего сложного.

[n01R]

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

[n01R]

т.е. в 57 должно получиться так:

var f,x,a,double:real;

begin

a:=StrToInt(Edit1.Text);
while a<>0 do
  f(x: double): double;
  begin
     f:=x*x*x*x;
     if x <= 1 then f:=x;
     if x <= 0 then f:=0;
     end;
end;
end.

?

[_Dmitry]

А вы откомпилировать это пробовали?
Бросьте на форму 2 Edit-а и кнопку Button, дважды щелкните на кнопке и напишите:

.......
implementation

{$R *.dfm}

function f(x: double): double;
begin
  f:=x*x*x*x;
  if x <= 1 then f:=x;
  if x <= 0 then f:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  a: double;
begin
  a:=StrToFloat(Edit1.Text);
  Edit2.Text:=FloatToStr(f(a));
end;

end.

[n01R]

спасибо незнал что такие безкорыстные люди еще существуют
Вопрос только один за что отвечает Double я просто этого еще не проходил
и какое число нужно вписать в поле edit1 что бы получился правильный ответ?

[_Dmitry]

double это тип вещественной переменной, замена real. Тип real тащится за Delphi еще со времен Паскаля. Он создан для работы с вещественными числами на компьютерах без математического сопроцессора, т.е. десятичная дробь переводится в целое число, над ним выполняются необходимые действия и полученное целое число опять переводится в десятичную дробь (это если сказать по-простому). Все современные процессоры поддерживают операции с плавающей точкой, поэтому в Delphi тип real по умолчанию отключен и заменен double. Если нужно все же включить real, то нужно использовать директиву компилятора: {$REALCOMPATIBILITY ON}

По поводу второго вопроса - прочитайте условие вашей задачи:
Дано действительное число a. Вычислить f(a).
Чему равно а, то значение и вводите в Edit1.

[Stilet]

за что отвечает Double

За то что переменка будет содержать как двойное вещественное.

какое число нужно вписать в поле edit1 что бы получился правильный ответ?

Ну любое вещественное например 12.36

[Alex21]

какое число нужно вписать в поле edit1 что бы получился правильный ответ?

Либо с запятой, смотря как настроен decimalseparator

[n01R]

47.

Даны действ. положительные числа x,y,z
а) Выяснить, существует ли треугольник с длинами сторон x,y,z
б) Если треугольник существует, то ответить - явл. ли он остроуголным

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

В задаче 47 упорядочи числа по возрастанию, x-min, z-max, тогда треугольник существует, если (x+y)>z. Остроугольность можно проверить по теореме Пифагора: если x^2+y^2>z^2 - остроугольный, если x^2+y^2=z^2 - прямоугольный, если x^2+y^2<z^2 - тупоугольный.

в этой проге код будет выглядет примерно вот так?

var x,y,z;
begin
if ( ((x+y)>z) and ((x+z)>y) and ((y+z)>x)) then
begin
ShowMessage('Треугольник Существует'); 
end
end;

а вот как вписать явл ли он остроуголным?