data, read, restore. Как эти функции выглядят в Pascal?

[Uma_an]

Здравия всем.

data, read, restore...были когда-то такие функции в обычном Basic. Как эти функции выглядят в MicroPascal for pic?
---------
чтоб было нагляднее вышеописанному, то нужно последовательно присвоить относительно большой объем переменной, т.е. по очереди я хочу считать вот это с основного кода программы, т.к. в еепром (128 байт) все данные не влазят. В одну строку для операторов DIM или ARRAY тоже. Можно в 3 строки реализовать, но хотелось бы не так "криво"...

Спойлер

data 134,214,1,1,2,1,1,3,1,1,2,1,1,1,1,2,1,2,5,1,1,2,1,16,2,2,1,2,2,2,1,1,2,3,1,1,1,1,3,2,1,2,1,17,2,1,1,3,1,1,1,1,4,2,2,1,1,1,1,1,1,1,1,3,2,16,1,2,1,1,1,1,2,2,3,1,3,2,1,1,3,2,1,1,1,18,2,1,1,2,1,1,1,2,1,4,3,1,1,1,2,1,1,1,4,17,2,7,1,1,2,3,5,1,1,1,3,1,1,19,5,1,4,1,1,2,1,1,2,2,1,1,2,4,1,1,2,16,1,1,4,2,2,1,5,1,2,3,4,5,1,16,3,5,2,1,3,2,1,1,3,1,1,1,1,1,1,2,2,17,1,1,5,2,1,1,4,1,3,3,2,1,2,3,1,17,1,1,1,4,1,3,6,1,3,1,4,1,1,20,1,1,1,6,1,1,3,2,1,1,3,1,3,4,2,17,1,2,1,2,1,4,2,4,2,1,1,1,2,1,7,16,1,2,6,2,7,4,4,1,1,20,1,3,1,1,1,1,2,1,4,1,1,1,1,1,1,1,2,1,1,4,2,16,1,1,2,2,4,1,2,2,1,3,2,1,2,4,1,1,2,16,1,1,1,1,1,2,2,2,1,6,1,1,1,1,1,1,1,4,3,16,2,1,1,1,2,4,1,2,2,1,1,2,1,1,2,1,4,2,1,16,1,2,1,1,2,1,1,2,1,1,1,1,1,1,1,2,1,1,1,2,1,1,1,1,1,1,1,16,2,1,7,1,4,2,1,4,1,1,2,4,2,16,4,1,1,5,1,1,1,1,2,2,1,2,6,1,3,16,3,2,2,1,2,1,3,1,2,1,2,2,1,2,3,1,1,18,1,1,1,1,2,1,3,1,3,2,1,1,1,3,3,3,1,1,1,17,1,1,1,6,1,1,2,1,2,2,3,1,3,3,1,2,1,16,1,2,1,1,2,2,1,1,5,1,1,2,1,1,2,1,2,4,1,16,3,2,1,1,3,1,1,6,2,2,3,1,6,16,3,1,1,1,1,4,2,1,3,1,1,1,1,1,1,2,2,21,2,4,3,2,2,1,7,1,1,4,4,17,2,2,1,3,2,1,1,6,1,1,1,1,4,2,3,17,2,1,2,1,1,4,1,3,1,1,1,4,8,1,1,16,2,1,3,1,1,1,1,1,3,2,2,4,1,2,2,2,2,17,1,2,2,3,2,1,1,2,4,4,1,2,1,2,1,19,2,6,1,2,1,5,4,1,4,1,2,2,1,16,3,1,6,1,2,1,2,2,1,3,1,6,1,1,1,16,1,2,1,2,2,1,1,1,2,1,2,1,2,1,1,1,2,2,1,1,1,2,1,16,3,1,1,1,1,1,2,1,1,1,2,3,1,1,1,1,2,1,1,1,2,1,2,16,1,2,4,4,2,4,1,4,3,1,6,16,1,2,1,3,3,1,1,3,1,1,2,1,1,1,1,1,1,3,2,1,1,16,5,1,2,3,4,1,2,2,1,1,1,3,2,2,2,16,2,2,1,2,1,1,1,1,1,2,1,1,1,1,1,1,1,1,3,1,1,1,1,1,2,16,1,2,1,1,2,1,1,2,1,5,1,2,1,1,1,2,1,1,5,16,1,4,2,1,2,1,1,1,2,1,4,2,1,2,1,5,1,16,7,4,1,3,4,3,2,1,5,18,1,4,3,1,1,1,3,1,1,1,3,2,2,2,1,2,2,17,5,1,1,1,1,2,2,3,2,2,1,1,1,2,1,1,5,16,2,1,1,1,1,2,1,2,5,1,1,2,1,1,1,1,2,1,1,3,1,16,1,1,3,3,1,2,1,1,2,2,1,2,1,1,1,1,2,1,1,2,1,17,3,1,2,1,1,1,1,1,1,4,1,1,1,3,3,1,1,3,1,17,1,2,1,3,1,3,2,1,1,1,3,1,1,1,3,1,3,1,1,17,1,4,1,3,1,1,4,2,3,2,5,21,1,1,1,1,4,1,1,1,4,3,1,3,2,2,1,1,4,16,2,1,4,2,1,1,1,1,1,3,1,4,3,1,1,2,3,16,8,1,1,1,1,2,2,1,2,3,2,2,1,1,1,2,1,16,4,2,3,2,1,1,1,2,1,2,2,1,2,3,1,20,1,1,1,2,1,1,2,2,2,1,3,1,2,2,3,1,1,1,1,19,3,1,1,1,2,1,1,1,2,1,3,1,1,1,1,1,1,3,2,20,2,1,2,1,3,2,3,2,2,4,1,1,1,2,1,1,2,17,3,1,2,5,1,1,1,4,1,3,7,1,2,16,2,2,2,1,1,3,1,3,2,5,3,1,4,18,4,1,5,1,1,2,3,2,1,2,2,4,1,1,2,16,1,2,1,3,1,3,2,4,2,1,1,1,3,1,6,16,2,1,5,3,1,1,1,1,3,4,6,1,1,18,4,1,1,1,1,1,1,1,1,1,1,5,1,2,3,1,1,2,1,18,3,4,2,2,2,2,2,1,3,1,1,1,6,18,3,4,2,2,1,4,1,1,3,1,9,17,1,1,1,1,5,2

P.s. сильно не пинать за ламерство )

[ARV]

в обычном паскале это выглядит либо так

Код:

var data : array[0..NN] of char = (1,2,3,4,5....);

либо так

Код:

const data : array[0..NN] of char = (1,2,3,4,5...);

как же вы взялись писать программу на языке, которого не знаете?!

[aen]

ARV писал(а):

в обычном паскале это выглядит либо так

Код:

var data : array[0..NN] of char = (1,2,3,4,5....);

либо так

Код:

const data : array[0..NN] of char = (1,2,3,4,5...);

как же вы взялись писать программу на языке, которого не знаете?!

Спасибки Полностью прокатило на Pascale. На MicroPascale пришлось урезать количество данных, т.к. даже в ROM pic`a не влазило, с 1153 байт до 934, чтоб "влезло тело программы" (про eeprom я уже говорил: 128 байт).
...Не знал, что можно "просто" нажимать Enter и вводить данные далее...
...Интересен еще момент: (потом проверю), что после "For next" компилятор не ругается на "step 2" ... (это имхо в микроБейсике). Не ругается или ему пофиг.
... HEX на Паскале получился больше, чем на Бейсике... Я больше Паскалю доверяю, возможно, операторов было немного. Больше было данных.

как же вы взялись писать программу на языке, которого не знаете?![/uquote]
...как-то и не отвечу в одной фразе... Скорее, для себя, нравится познавать. Задумок много, а напрягать народ "сделайте всё вместо меня, а я воспользуюсь -- неправильно"

Последний раз редактировалось aen Ср апр 11, 2018 23:58:01, всего редактировалось 1 раз.
Причина: Нарушение Правил форума п. 2.7