[Viajero]

А зачем удалять условие?
Вот это эгоистично и непорядочно, я считаю.

Всем привет.
Народ помогите по Delphi.

Вообщем задания такие:
1. http://clck.ru/d/SW05VrRZ18L_T
Решила так:

Код:
program Zadanie1;

{$APPTYPE CONSOLE}

uses
SysUtils, Math;

const
a=12.5;
b=1.3;
c=14.1;
d=2.7;

var
x,y,t1,t2, ax : Double;
begin
Writeln('Vvedite x:');
Readln(x);
Writeln('Vvedite y:');
Readln(y);
ax:=a*x;
t1:=(ax/y)+(b/(y*y)*ln(y*x+c));
//t1:=(b*ln(ax+b)/a+d*ln(y*x+d)/y)/c;
ax:=Sqrt((c-b)*(c+b))*tan(ax);
t2:=Ln((ax+b)/(ax-b))/2/a/b;
Writeln('t1= = ', t1:8:4);
Writeln('t2= = ', t2:8:4);
Writeln('Ha}|{MITE LYUBUYU KNOPKU');
Readln;
end.
2. http://clck.ru/d/6kLchtnu18M6n
Вот с этим проблемы =(

3. http://clck.ru/d/WkhvtcyR18MQP
И с этим проблемы =(

4. http://clck.ru/d/hGpQVQi118MfL
Сделала так:

Код:
program Massiv;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
i, min:Integer;
Ar:array[1..50] of Integer;
begin
Writeln('Pervyj massiv:');
for i:=1 to 50 do
begin
Randomize;
Ar[i]:=Random(201)-100;
write(Ar[i]:5);
end;
Writeln(#13#10'Izmenennyj massiv:');
min:=200;
for i:=1 to Length(Ar) do
if(Ar[i]>0) and (Ar[i]<min) then
min:=Ar[i];
for i:=1 to 50 do
if(Ar[i]>=0)then write(Ar[i]:5)
else
begin
Ar[i]:=min;
write(Ar[i]:5);
end;
Readln;
end.
Кто сможет помогите плиз решить 2 и 3 задание, и правильность 1 и 4 задания
Хотя бы какие формулы...
С математикой туго