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

Primary tabs

Submitted by mrn123 on Fri, 11/29/2024 - 21:30

Forums:

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

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

program u13_2_z5;

var n,i,j,a,s,m :integer;

begin

  writeln('vvedite chislo m');
  readln(m);
  s:=1000000;

  for i:=1 to 7 do
  begin
    if (m = 0) then
      write('- - - ')
    else
      n:= m div s;
      a:=n mod 10;
    if (a = 0) then
      write('- - - ');

    for j:=1 to 10 do
    begin
      write('+',' ');
      if (a = j) and (n <> 0) then
        write('- - - ');
    end;


    s:=s div 10;

    writeln();
  end;


  readln();
end.
  • Log in to post comments
  • 1551 reads
vedro-compota's picture

vedro-compota

Sat, 11/30/2024 - 16:08

можно ли оптимизировать решение так, чтобы сразу выводить готовую строчку, в ситуации, когда она означает ноль?

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

mrn123

Sun, 12/01/2024 - 16:13 

program u13_2_z5;

var n,i,j,a,s,m :integer;

begin

  writeln('vvedite chislo m');
  readln(m);
  s:=1000000;

  for i:=1 to 7 do
  begin

      n:= m div s;
      a:=n mod 10;

    for j:=1 to 10 do

    begin
      if (a = 0) and (j = 1) then
        write('- - - ')
      else if (a = (j-1))  then
        write('- - - ');
      write('+',' ');
    end;


    s:=s div 10;

    writeln();
  end;


  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 12/03/2024 - 23:54

  1. Уточните форматирование
  2. Прокомментируйте назначение переменных

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

mrn123

Thu, 12/05/2024 - 13:50 

program u13_2_z5;

var n,i,j,a,s,m :integer;

begin

  writeln('vvedite chislo m');
  readln(m); // пользователь вводит число m
  s:=1000000;

  for i:=1 to 7 do // i - счётчик строк

  begin
    n:= m div s; // n - сохраняет m после деления  на  число s
    a:=n mod 10;// a - сохраняет остаток(последнюю цифру)

    for j:=1 to 10 do // j - счётчик количества плюсов
    begin
      if (a = 0) and (j = 1) then
        write('- - - ')
      else if (a = (j - 1)) then
        write('- - - ');
      write('+',' ');
    end;

    s:=s div 10; // s - число на которое делим введёное пользователем число m (для "отсекания" цифр)
    writeln();
  end;
  readln();
end.
vedro-compota's picture

vedro-compota

Sat, 12/07/2024 - 00:57

решение засчитано

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