решение задач в делфи 7

[irkalubimaya]

задачи в делфи 7!
Помогите пожалуйста в решении задач в делфи 7!
УСЛОВНЫЙ ОПЕРАТОР:
задача 1
Даны действительные числа x и y, не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы , а большее - их удвоенным произведением.

задача 2
даны три числа a,b,c. определить, какое из них равно d. Если ни одно не равно d, то найти max(d-a,d-b,d-c).

задачи в делфи 7!
Помогите пожалуйста в решении задач в делфи 7!
II Линейные алгоритмы:
задача № 1
Вычислить значение выражения по формуле ( все переменные принимают действительные значения):
x+y/y+1 - xy-12/34+x ;

задача № 2
Найти произведение цифр заданного четырехзначного числа.

задача №3

Составить программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае.
Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа.

[maladoy]

{Даны действительные числа x и y, не равные друг другу. 
Меньшее из этих двух чисел заменить половиной их суммы ,
 а большее - их удвоенным произведением.}
tmp:=x*y;
if x>y then begin 
  y:=(x+y)/2;
  x:=2*tmp;
end
else begin
  x:=(x+y)/2;
  y:=2*tmp;
 end;  writeln(x,y);

[DM_bite]

2.

 program Xd;
 var n,a,b,c,d: integer;
 begin
 ReadLn(n);
 a:= n div 1000;
 d:= n mod 10 mod 10;
 c:= n div 10 mod 10;
 b:= n div 100 mod 10;
 WriteLn(b*a*c*d);
 ReadLn;
 end.

x+y/y+1 - xy-12/34+x ;

Что тут трудного?

Program xddd;
var x,y: real;
begin
ReadLn(x,y);
WriteLn((x+y)/(y+1)-(x*y-12)/(34+x));
ReadLn;
end.

Третья, аналогично второй... Получаете цифры div/mod`ом и проверяете.

[ViNcHeStEr]

задача 2
даны три числа a,b,c. определить, какое из них равно d. Если ни одно не равно d, то найти max(d-a,d-b,d-c).
=========================
как-то так:

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtoint(edit2.Text);
b:=strtoint(edit3.Text);
c:=strtoint(edit4.Text);
d:=strtoint(edit1.Text);

if a=d then edit5.text:='a=d';
if b=d then edit5.text:='b=d';
if c=d then edit5.text:='c=d';

if ((a<>d)and(b<>d)and(c<>d)) then
begin
if (((d-a)>(d-b))and((d-a)>(d-c))) then edit5.text:='max d-a';
if (((d-b)>(d-c))and((d-b)>(d-a))) then edit5.text:='max d-b';
if (((d-c)>(d-a))and((d-c)>(d-b))) then edit5.text:='max d-c';
end;
end;

[procomp]

Прошу помощи в решении задачи:

Разработать процедуру, которая определить параметры прямой, которая проходит через отрезок, заданый координатами своих концов. Передачу всех данных сделать через формальне параметры.

[Олфелия]

Прошу помочь с решение простейшего задание, которое мне чего-то не под силу Желательно в Делфи
Y= (ln (b) + ln (a)) / (sin (a) + cos (b))
Большое спасибо =)

[Alex Cones]

procomp, Олфелия если у Вас возник какой-то вопрос, создайте тему в разделе "Помощь студентам" и Вам помогут. И помните: одна тема - один вопрос.

P.S. Олфелия, а в чем проблема?

[ОДИНОЧЕСТВО В СЕТИ]

to Олфелия

var a,b,y:double;
begin
readln(a);
readln(b);
y:=(ln (b) + ln (a)) / (sin (a) + cos (b));
writeln('y=',y:6:3);
readln;
end.

[Олфелия]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

to Олфелия

var a,b,y:double;
begin
readln(a);
readln(b);
y:=(ln (b) + ln (a)) / (sin (a) + cos (b));
writeln('y=',y:6:3);
readln;
end.

Спасибки огромное