function

[SmileSTR]

здраствуйте! вот есть задача

uses crt;
function F(n:integer):real;
begin
F:=cos(cos(n)/sin(n));
end;
var n:integer;
begin
clrscr;
n:=1;
if F(n)<0 then writeln('n=1  F(n)=',F(n):0:3)
else
 begin
  while F(n)>=0 do
  n:=n+1;
  writeln('n=',n,'  F(n)=',F(n):0:3);
 end;
readln
end.

МоЖНо ли заменить вот эту строчку ?? function F(n:integer):real; если да то как?




________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[TinMan]

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

МоЖНо ли заменить вот эту строчку ?? function F(n:integer):real; если да то как?

Ты чего, друг? первый раз компьютер видишь?..
Клавиши BackSpace и Delete стирают буковки. Чтоб напечатать новые, используй те клавиши, на которых написаны нужные тебе буквы.

[Serge_Bliznykov]

Здравствуйте.

вот есть задача

ошибаетесь. никакой задачи в вашем сообщении нет!
Есть исходный код на Паскале, который находит вычисление какой-то функции..

МоЖНо ли заменить вот эту строчку ?? function F(n:integer):real; если да то как?

можно, конечно.
можно удалить старую строчку и вместо неё написать новую.

надеюсь, я Вам ответил на ваш вопрос?

[SmileSTR]

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

Ты чего, друг? первый раз компьютер видишь?..
Клавиши BackSpace и Delete стирают буковки. Чтоб напечатать новые, используй те клавиши, на которых написаны нужные тебе буквы.

я имею ввиду как убрать function F(n:integer):real; так чтобы потом программа работала...

[BDA]

uses crt;
var n:integer;
begin
clrscr;
n:=1;
if cos(cos(n)/sin(n))<0 then writeln('n=1  F(n)=',cos(cos(n)/sin(n)):0:3)
else
 begin
  while cos(cos(n)/sin(n))>=0 do
  n:=n+1;
  writeln('n=',n,'  F(n)=',cos(cos(n)/sin(n)):0:3);
 end;
readln
end.

Нужно четче выражать свои мысли.

[Leshii]

Не успел)


TinMan и Serge_Bliznykov здравствуйте

[TinMan]

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

я имею ввиду как убрать function F(n:integer):real; так чтобы потом программа работала...

Можно ли убрать из дома пылесос так, чтоб в доме оставалось чисто?
Можно. Придется принести веник, а может и ртом поработать..

[SmileSTR]

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

Можно ли убрать из дома пылесос так, чтоб в доме оставалось чисто?
Можно. Придется принести веник, а может и ртом поработать..

ты типо за петросяна?

[SmileSTR]

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

uses crt;
var n:integer;
begin
clrscr;
n:=1;
if cos(cos(n)/sin(n))<0 then writeln('n=1  F(n)=',cos(cos(n)/sin(n)):0:3)
else
 begin
  while cos(cos(n)/sin(n))>=0 do
  n:=n+1;
  writeln('n=',n,'  F(n)=',cos(cos(n)/sin(n)):0:3);
 end;
readln
end.

Нужно четче выражать свои мысли.

спасибо)))