Урок 13.2 Задача 5

Урок 13.2 Задача 5

В некоем виртуальном пространстве есть виртуальные, опять же, ASCII-счеты, с 7-ю спицами по 10 костяшек на каждой, в сброшенном состоянии (условный ноль) они выглядят так:

---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++

Задание: визуализируйте на счетах введенное пользователем число.

Примеры:

Пользователь вводит: 7
Получаем:

  	
    ---++++++++++
    ---++++++++++
    ---++++++++++
    ---++++++++++
    ---++++++++++
    ---++++++++++
    +++++++---+++

Решение:

program u13z05;
var c,i,j,n,n1:integer;
begin
  write('Vvedite chislo - ');
  readln(n);
  c:=1000000;
  i:=1;
  while i<=7 do
  begin
    n1:=n div c;
    n:=n - c*n1;
    c:=c div 10;
    j:=1;
    while j<=13 do
    begin
      if (j<=n1)or(j>n1+3) then
        write('+ ')
      else
        write('- ');
      j:=j+1;
    end;
    writeln();
    i:=i+1;
  end;
  readln();
end.           

Консоль:

Vvedite chislo - 1984
- - - + + + + + + + + + +
- - - + + + + + + + + + +
- - - + + + + + + + + + +
+ - - - + + + + + + + + +
+ + + + + + + + + - - - +
+ + + + + + + + - - - + +
+ + + + - - - + + + + + +