Prosím o pomoc s programem v Delphi

[JuReeeC]

ahaa, nemá tam být if cotan (x*x) =0 then

No dívej, chápu to tak cotg x2 je vlastně cos x2/sin x2...takže sin x2 se nesmí rovnat 0 přece

[Reklama]

[JuReeeC]

Tak nenapadá Vás něco co s tim?

--- Doplnění předchozího příspěvku (30 Bře 2013 22:43) ---

Tak nenapadá Vás něco co s tim?

[CZechBoY]

ukaž ten opravenej kod

[JuReeeC]

Mám to takhle, ale učitel říkal, že si mám zkusit nahradit to cotg x do nějaké proměnné, takže to nevím:

program Program1;

{$APPTYPE CONSOLE}

uses
SysUtils,
math;

var
i:integer;
A:array[1..5] of Real;
X:Real;

begin
writeln('Zadej 5 cisel z intervalu (-100, 100):');
writeln;
i:=1;
while i<>6 do
begin
write('X',i,': ');
readln(X);
if (X>-100) and (X<100) then
begin
A[i]:=X;
i:=i+1;
end
else
writeln('Cislo nenalezi do intervalu (-100, 100)!');
end;
writeln;
for i:= 1 to 70 do
Write('-');
writeln;
writeln('x':5,' | ','cotg(x)',' | ','sqrt(cotg(x))',' | ','cotg(x*x)');
for i:=1 to 70 do
write('-');
writeln;
for i:=1 to 5 do
begin
X:=A[i];
write(X:8:3);
if sin(x)<>0 then
begin
write('| ',cotan(x):14);
if cotan(x)>=0 then
write (' | ',sqrt(cotan(x)):14,' ')
else
write(' | --- ');
end
else
write('| --- | --- ');
if sin(x*x)<>0 then
write('| ',cotan(x*x):14)
else
write('| ---');
writeln;
end;
for i:=1 to 70 do
write('-');
readln;
end.

[CZechBoY]

nevim jak se v delphi programuje, ale tipl bych to na

kotangens:Real
kotangens=cotg(x)

[JuReeeC]

Konečná podoba je takhle:

program program1;

{$APPTYPE CONSOLE}

uses
SysUtils,
math;

var
i:integer;
A:array[1..5] of Real;
X,y:Real;

begin
writeln('Zadej 5 cisel z intervalu (-100, 100):');
writeln;
i:=1;
while i<>6 do
begin
write('X',i,': ');
readln(X);
if (X>-100) and (X<100) then
begin
A[i]:=X;
i:=i+1;
end
else
writeln('Cislo nenalezi do intervalu (-100, 100)!');
end;
writeln;
for i:= 1 to 70 do
Write('-');
writeln;
writeln('x':5,'|':4,'cotg(x)':14,'|':7,'sqrt(cotg(x))':17,'|':4,'cotg(x^2)':15);
for i:=1 to 70 do
write('-');
writeln;
for i:=1 to 5 do
begin
X:=A[i];
write(X:8:3);
if sin(x)<>0 then
begin
y:=cotan(x);
write('| ',y:14);
if y>=0 then
write (' | ',sqrt(y):14,' ')
else
write(' | --- ');
end
else
write('| --- | --- ');
if sin(x*x)<>0 then
write('| ',cotan(x*x):14)
else
write('| ---');
writeln;
end;
for i:=1 to 70 do
write('-');
readln;
end.


Může být?

[CZechBoY]

a už ti to funguje?
já delphi neumim, nemám ani překladač takže nemám jak vyzkoušet