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

Primary tabs

Submitted by Aleksandr on Sun, 08/01/2021 - 11:04

Forums:

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

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

program lesson13_2_4;
var
    a, b, c, i, j: integer;
begin
    writeln('enter number a <= 9999999:');
    readln(a);
    c := 1000000;
    if a > 9999999 then
        writeln('error')
    else
        for i := 1 to 7 do
        begin
            b := a div c;
            for j := 1 to 13 do
                if b = 0 then
                    if j <= 3 then
                        write('- ')
                    else
                        write('+ ')
                else
                    if (j > b) and (j <= b + 3) then
                        write('- ')
                    else
                        write('+ ');
		    writeln();
            if b > 0 then
                a := a - b * c;
            c := c div 10;
	    end;
    readln();
end.
  • Log in to post comments
  • 1382 reads
vedro-compota's picture

vedro-compota

Sun, 08/01/2021 - 12:09

подумать над оптимизацией

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

Aleksandr

Tue, 08/03/2021 - 18:08 

program lesson13_2_4;
var
    a, b, c, i, j: integer;
begin
    writeln('enter number a <= 9999999:');
    readln(a);
    c := 1000000;
    if a > 9999999 then
        writeln('error')
    else
        for i := 1 to 7 do
        begin
            b := a div c;
            if b = 0 then
                write('- - - + + + + + + + + + +')
            else begin
            for j := 1 to 13 do
			    if (j > b) and (j <= b + 3) then
				    write('- ')
				else
				    write('+ ');
                a := a - b * c;
			end;
			writeln();
            c := c div 10;
	    end;
    readln();
end.
vedro-compota's picture

vedro-compota

Tue, 08/03/2021 - 19:16

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

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