калькулятор Опции

[Yurka]

Напишите программу, что имитирует экран калькулятора, другими словами, нужно, чтобы в ней после введения целого числа меньше 10 (|N | < 10) из клавиатуры вид этой цифры отображался на дисплее. Символ числа должен появляться сразу после ввода фигуры числа

Изображение каждой фигуры или отметки появляется с помощью включения/выключения семи элементов жидкокристаллического дисплея. Состояние программы-дисплея должно отображаться с помощью символов '\' (вертикальная опция), 'J (подчеркивание) и '' (пусто). Цифры и символы минуса должны отображаться следующим образом:
Введение: Файл ввода включает целые числа N (|Nj<1010), одно число в линейке.
Выведение: Исходный файл включает три строки с символическим рисунком дисплея, отдельным на каждую цифру.

Вот такая вот задача. Чесно говоря первая половина вроде понятна, а вот вторая с дисплеем

[volvo]

Слишком много написано букв... Делаем вот так:

const
  digits[0 .. 9] of TDigit = (
    (' ---','|   |','|   |','|   |','|   |','|   |',' ---'), { zero }
    ('|','|','|','|','|','|','|'), { one }
    (' ---','    |','    |',' ---','|','|',' ---'), { two }
    (' ---','    |','    |',' ---','    |','    |',' ---'), { three }
    ('|   |','|   |','|   |',' ---','    |','    |','    |'), { four }
    (' ---','|','|',' ---','    |','    |',' ---'), { five }
    (' ---','|','|',' ---','|   |','|   |',' ---'), { six }
    ('---','   |','   |','   |','   |','   |','   |'), { seven }
    (' ---','|   |','|   |',' ---','|   |','|   |',' ---'), { eight }
    (' ---','|   |','|   |',' ---','    |','    |',' ---') { nine }
  );

...
  while(not(temp[i]=#13)) do begin
    case temp[i] of
      '0' .. '9': WriteDigit(digits[ord(temp[i]) - ord('0')], i);
    end;
    inc(i);
 end;

:yes: