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

Primary tabs

Submitted by slavina036 on Fri, 08/20/2021 - 19:30

Forums:

Задача 4 урок 13.2

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

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

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

program U13_2Z4;
var i,j,a:integer;
    n,x:real;
begin
  writeln('vvedite chislo');
  readln(n);
  x:=1000000;
    for i:=1 to 7 do
      begin
        a:=trunc(n/x);
        n:=(n-a*x);
        x:=x/10;
        for j:=a downto 1 do
          write('+ ');
        write('- - - ');
        for j:=1 to (10-a) do
          write('+ ');
        writeln();
      end;
  readln();
end.
  • Log in to post comments
  • 1361 reads
vedro-compota's picture

vedro-compota

Sun, 08/22/2021 - 12:21

Переписать без trunc (с помощью div)

_____________
матфак вгу и остальная классика =)

slavina036

Wed, 09/15/2021 - 08:31 

program U13_2Z4;
var i,j,a,n,x:integer;
begin
  writeln('vvedite chislo');
  readln(n);
  x:=1000000;
    for i:=1 to 7 do
      begin
        a:=n div x;
        n:=(n-a*x);
        x:=x div 10;
        for j:=a downto 1 do
          write('+ ');
        write('- - - ');
        for j:=1 to (10-a) do
          write('+ ');
        writeln();
      end;
  readln();
end.