Moxon
Вот условие с ним надо протабилировать на отрезке от -n до n с шагом n/32
31 Окт 2012, 19:17Fever
var iN:integer;
rStep:real;
begin
readln(iN);
rStep := -iN;
while (rStep <= iN) do begin
if (rStep >= 0) then writeln(2*sin(rStep)*sin(rStep)*sin(rStep));
else writeln(-1/tan(rStep)*tan(rStep))
rStep := rStep + abs(rStep)/32;
end;
end.
З.Ы.
пишу без IDE, в Delphi это бы работало при наличии Math класса, в паскале не помню что и как.
Lexan
var
n: real;
x: real;
begin
writeln('Введите n');
readln(n);
n := abs(n);
x := -1 * n;
writeln('x':8, 'y':8);
while (x <= n) do
begin
write(x:8:3);
if (x >= 0) then writeln(2 * sin(x) * sin(x) * sin(x):8:3)
else writeln(-1 / (tan(x) * tan(x)):8:3);
x := x + n / 32;
end;
end.
Fever
Moxon, sin()/cos()
также, тогда нужно будет проверять условие деление на ноль.
Moxon
мне надо в старый Turbo Pascal))
Вообщем напишите кто то прогу, а я скину парочку рубликов, рублей 60)
Lexan
Moxon, var
n: word;
x: real;
begin
writeln('Введите натуральное число n');
readln(n);
x := -1 * n;
writeln('x':8, 'y':8);
while (x <= n) do
begin
write(x:8:3);
if (x >= 0) then writeln(2 * sin(x) * sin(x) * sin(x):8:3)
else if sin(x) <> 0 then writeln(-1 * sqr(cos(x) / sin(x)):8:3)
else writeln('-':8);
x := x + n / 32;
end;
end.