Блиц-опрос! Опции

[Altair]

обращение к структуре/классу/объекту в каком-либо структуре/классе/объекте.

Честно говоря, я не думал, что внутрь объекта можно запихнуть объект.
Но догадывался об этом.
А так я все варианты предусмотрел, я хотел поймать кого-нибудь на тройном входе вглубь структуры, но никто больше не ответил.

[Altair]

Что выведется на экран?

НЕ ПОЛЬЗОВАТЬСЯ КОМПИЛЯТОРОМ!!!

Все на вашей СОВЕСТИ. ;)

var i,a:integer;
label 1,2,3,0;
begin
 3: inc(a,ord('2')-ord('0')); goto 1;
 2: for i:=1 to 20 do begin
 1: If i=0 then a:=a+i; end; goto 0;
 0: if i=0 then goto 2; writeln(a);
end.

[Флогримм]

1 ;) (без смайлика есессно)

[volvo]

Флогримм - неправда ваша

[Флогримм]

тогда свой вариант

[volvo]

Мой вариант: 2... Кто больше? :D

[Altair]

***1 (без смайлика есессно)
интересно почему Флогги так решил?

[mj]

Тут не заданы начальные параметры... а если предположить что они равны 0, то конечно ответ 2, там из кода то всего 2 строчки учавствовать будут

[Altair]

Если так, как написанно, то учавствуют 3 строчки.
А интерес здесь представляет переход внутрь цикла... и из него...

[klem4]

a=0;
3: inc(a,ord('2')-ord('0')); goto 1;
ord('2')=50 , ord('0')=48 =>=1 => a=2;

goto 1
if i=0 (да) then a:=a+i=> a=2; (i до сих пор равно нулю.)
goto 0;
=>
if i=0 (да) goto 2 + ВЫВОД (а=)2.

Ответ : Вывод числа 2.

Дальше цикл выполнятся не будет. так как for i:=1 to 20 ... if i=0...
PS. посмотрел чему равно ord('2') и ord ('0'), просто не знал.

[volvo]

PS. посмотрел чему равно ord('2') и ord ('0'), просто не знал.

Да какая разница, чему они равны? Разность-то от этого не изменится...

[klem4]

Ну мне то от куда знать было.... мало-ли там чего...))))

Сообщение отредактировано: klem4 - 20.02.2005 21:40

[trminator]

Неизвестно, что выведется: а не определено, вывод зависит от компилятора

[Altair]

Раз не оговариваем компилятор, значит имеем ввиду СТАНДАРТ языка Паскаль.
там все переменные обнуляются.
так что твой ответ не принят

[Флогримм]

***1 (без смайлика есессно)
интересно почему Флогги так решил?

а вот почему... я-то ответ правильный знал с самого начала... думаю, если киты программирования (читай Volvo, mj и т.д.) ответят вторыми (после меня, имею ввиду), им будет стыдно, а зачем мне смущать таких хороших людей...

[Altair]

бред...
наоборот "стариков" (в хорошем смысле) программивоания пора обгонять, Флогги...
имхо они только рады будут

[mj]

Олег, компиляторы паскаля от borland, обнуляют только глобальные переменные. Если мы будем использовать код в функции, то начальные значения переменных будут непредсказуемые...

[trminator]

Раз не оговариваем компилятор, значит имеем ввиду СТАНДАРТ языка Паскаль.

Искал в стандарте, не нашел, что переменные должны обнуляться (те документики, что я тебе недавно кидал). Смотрел только стандарт Паскаля (не Extended)

[Altair]

Лето - время отдыха, конкурсов и призов от форум "Все о Паскале"
вопрос.

Примерно 40 миллионов человек на земле каждую НОЧЬ делаю ЭТО!
Некоторые занимаются ЭТИМ что бы быть ближе, некоторые, потмоу что это их работа.
что ЭТО ?

:D :P
первый правильно ответивший получает бонус - почтовый ящик на pascal.net.ru


(бонус только для зарегистрированных на форуме до 1.03.2005).

[xds]

Проводят время в Интернете :D