2 вопроса по паскалю, всего 2... Опции

[_Ivan_33]

1) как сделать приведение типов если есть выражение a:=b[i]1000 + b[i+x]; причем а-longint а b - megatype который обявлен как array[1..100] of integer
2) препод говорил про функции приводящие символьную переменную в число и наоборот - подскажите что за ф-ции?

[_Ivan_33]

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

[_Pasha]

у меня блокнот видит иероглифы если я записал прогой файл...

Каким паскалем пользуетесь? Старым BP7 ? Если да - то ничем не могу помочь, пользуюсь FPC. Подробностей с кракозябрами не помню.

и еще как записать в типизированный файл кучу чисел(массив)

Код

const
MaxElement = 9000;
var
f: file of integer;
map: array[1..MaxElement] of integer;
i: integer;
begin
assign(f,'temp.bin');(*назначили имя файла - он будет там же, где и файл программы, т.е. ЕХЕ-шник *)
rewrite(f); (* открыли файл на вывод*)
for i:= 1 to MaxElement do  write(f,map[i]); (*записали все,что надо из массива*)
close(f);(*закрыли файл, но в данном случае это необязательно*)
reset(f);(*открыли файл для чтения, но можно и по-другому, через процедуру seek();*)

(*прочитать можно таким же образом, как и записали но можно и так, если вспомнить
    о том, что в реальном мире размер файла может содержать другое число элементов,
    поэтому проверим условия конца файла и выхода за пределы массива.
*)
i:=1;
repeat
read(f,map[i]);
i := i+1;
until eof(f) or (i > MaxElement);
close(f);
end.

Надеюсь, кто-нить поправит, если допустил ошибку.
вместо того чтоб флудить в ветке "Pascal для AVR"