работа с файлами

[Rinat777]

Даны следующие описания переменных:
var f:file of integer;
x,y:integer;
Пусть файл f содержит два элемента - 3 и 7.Определить, какое значение будет иметь переменная y после выполнения следующих операторов:
a) reset(f);
read(f,y);
if not eof(f) then read(f,y);
if not eof(f) then read(f,y);
б) reset(f);
y:=0;
while not eof(f) do
begin
read(f,y);
y:=y + x
end;
в) reset(f);
y:=1;
repeat
read(f,y);
y:=y * x
until eof(f)

[phomm]

Могу наврать, не проверяю сверхвысокоточно
Для всех примеров должно быть выполнено условие связан ли файл с файловой переменной F.
а) должно быть 7
б) если код выполняется в локальной области видимости, то У не определено, ибо Х не инициализирован, если же глобальная то 10
в) аналогично насчет локального, а глобально - У будет 0

А вообще примеры в и б не скомпилируются, потому что нет точки с запятой в предпоследних строках

[Serge_Bliznykov]

phomm +1

а вообще, я думаю, что в примерах б) и в)
должно быть read(f,x);
это делает код более-менее осмысленным!
и ответы тогда будут 10 и 21 соответственно.

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

вообще примеры в и б не скомпилируются, потому что нет точки с запятой в предпоследних строках

а вот тут позвольте с Вами не согласиться. В данном случае будет прекрасно компилироваться и без неё!

[phomm]

Кошмар действительно, скомпилируется
Я знал конечно что перед end можно не ставить т/з, но не знал про перед until (пример б просто под одну гребенку попал с в, я не удосужился вникнуть).
Я опускаю т/з только если 1 строка в бегин-энд (обычно методы/подпрограммы) и, думаю, лучше ставить везде (кроме перед else, и описанного мной случая подпрограмм или методов) дабы не вводить в заблуждение