что значит линейна? и как выглядит "нелинейная" формула?

а вот это ХЗ. афтар (Ускова) не уточняет. в том то и дело!

Может, в смысле что запись формулы не рекурсивна? то есть ты не можешь использовать переменную или функцию, пока её не объявишь?

наверно да. тогда вопрос будет выглядеть так : "Почему на языке Паскаль нельзя использовать переменную или фукнцию, пока ее не объявишь?"
.
но ведь рекурсия в Паскале есть!

Цитата

но ведь рекурсия в Паскале есть!

я аллегорически выразился

Цитата(Vit @ 12.7.2004, 18:14)

А что покажет строка "showmessage(inttostr(i));" без компа кто может сказать?  Код procedure TForm1.Button1Click(Sender: TObject);  var i,j:integer;  Label 1; begin  i:=3; j:=0;  Goto 1;  for j:=0 downto j do    1:if i<abs(j) then break else i:=i + (i mod 4);  showmessage(inttostr(i)); end;

Если я с утра не торможу, то покажет 6.
Добавлено @ 07:33

Цитата(Unknown @ 26.7.2004, 17:42)

"Почему на языке Паскаль нельзя использовать переменную или фукнцию, пока ее не объявишь?"

Так уж Паскаль устроен, и мы ничего не можем изменить.
Хотя с другой стороны очень даже удобно. Я например уже заранее при этом знаю что и где мне понадобиться.

Насчет того, что покажет 6 я не прав.
Кто-нибудь может объяснить, почему после GOTO 1, значение J становиться "-1".

Это сообщение отредактировал(а) Berill - 27.7.2004, 15:39

Цитата(Berill @ 27.7.2004, 07:29)

Цитата(Vit @ 12.7.2004, 18:14) А что покажет строка "showmessage(inttostr(i));" без компа кто может сказать?  Код procedure TForm1.Button1Click(Sender: TObject);  var i,j:integer;  Label 1; begin  i:=3; j:=0;  Goto 1;  for j:=0 downto j do    1:if i<abs(j) then break else i:=i + (i mod 4);  showmessage(inttostr(i)); end; Если я с утра не торможу, то покажет 6. Добавлено @ 07:33 Цитата(Unknown @ 26.7.2004, 17:42) "Почему на языке Паскаль нельзя использовать переменную или фукнцию, пока ее не объявишь?" Так уж Паскаль устроен, и мы ничего не можем изменить. Хотя с другой стороны очень даже удобно. Я например уже заранее при этом знаю что и где мне понадобиться.

это, конечно так, но я бы посмотрел как ьы это преподу на экзамене скажешь...

Цитата

Код procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; Label 1; begin i:=3; j:=0; Goto 1; for j:=0 downto j do   1:if i<abs(j) then break else i:=i + (i mod 4); showmessage(inttostr(i)); end;

Ничего оно не должно показывать. Тут применяется GoTo и Label (перед begin'ом). Получается как бы бесконечный цикл. Кстати, из-за этого его и не рекомендуют использовать. Его даже так и переводят на русский: "Иди на ...".

Цитата(Cheba @ 27.7.2004, 17:19)

Цитата Код procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; Label 1; begin i:=3; j:=0; Goto 1; for j:=0 downto j do   1:if i<abs(j) then break else i:=i + (i mod 4); showmessage(inttostr(i)); end; Ничего оно не должно показывать. Тут применяется GoTo и Label (перед begin'ом). Получается как бы бесконечный цикл. Кстати, из-за этого его и не рекомендуют использовать. Его даже так и переводят на русский: "Иди на ...".

Почему не покажет ? Я проверил - у меня показало 8...
Теперь попытаюсь объяснить:

Код

1) вначале: j = 0, i = 3    после goto происходит проверка:    (3 < 0) = false, i := i + (i mod 4) = 3 + 3 = 6 2) j = -1, i = 6    (6 < 1) = false, i := 6 + 2 = 8 3) j = -2, i = 8    (8 < 2) = false, i := 8 + 0 = 8 4) j = -3, i = 8   (8 < 3) = false, i := 8 + 0 = 8 ... 10) j = -9, i = 8      (8 < 9) = true, делается break

Goto тут смущает тем, что не происходит инициализация переменной цикла (оператором FOR), но она делается до этого принудительно (j := 0;). Но цикл всё равно получился кастрированным, т.к. кроме j у него есть еще внутренняя невидимая переменная, отвечающая за количество оставшихся шагов цикла, она получается неинициализированной, поэтому если бы break не было, то цикл выполнялся бы фиг знает сколько шагов (зависит от мусора в стеке)...

Цитата

Тут применяется GoTo и Label (перед begin'ом).

Если я правильно тебя понял, то ты неправильно понял . Label лишь объявляет метку 1, но сама метка 1 - перед if в цикле...

Цитата(Unknown @ 27.7.2004, 17:00)

это, конечно так, но я бы посмотрел как ьы это преподу на экзамене скажешь...

Понятно, что мой ответ не очень информативен.
Могу только посоветовать(причем и себе тоже) прочитать о структуре компилятора Паскаля.

Цитата

Если я правильно тебя понял, то ты неправильно понял smile.gif. Label лишь объявляет метку 1, но сама метка 1 - перед if в цикле...

Когда начал читать твое объяснение понял свою ошибку. Ну, оно понятно - я про метки только читал, никогда их не использовал.

Цитата(Cheba @ 28.7.2004, 16:32)

Цитата Если я правильно тебя понял, то ты неправильно понял smile.gif. Label лишь объявляет метку 1, но сама метка 1 - перед if в цикле... Когда начал читать твое объяснение понял свою ошибку. Ну, оно понятно - я про метки только читал, никогда их не использовал.

я бы посоветовал Усковой (и вообще всем преподам) _конкретнее_ задавать вопрос..
.
а тем временем......
у меня еще один тупой вопрос : "Какие обозначения используются в форматах вывода?" этот вобще кандидат на первое место в Top10Shit

Unknown
кстати про

Цитата

"Не прибегая к помощи компьютера определите результат выполнения программы :" . var j, n : word; a, b, c : LongInt; begin n := 25: a := 1; b := 1; for j:= 3 to n do begin c := b; b := a + b; a := c; end; WriteLn('F_', n, ' = ', b); ReadLn; end.

результата не будет - там ошибка - n :=25: (надо точку с запятой)
))))))

Цитата

Какие обозначения используются в форматах вывода?

Это типа форматирование строки в writeln? %d, %f или чё-то такое?