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

Primary tabs

Submitted by Aleksandr on Tue, 08/03/2021 - 18:04

Forums:

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

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:
1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17
ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму.

program lesson14_5;

procedure print(i : integer; var p, q : integer);
begin
    write(i, ' ');
    if p = q then
    begin
        writeln();
        p := 1;
        q := q + 1;
	end
    else
        p := p + 1;
end;

var
    a, b, n, i: integer;
begin
    writeln('enter number n:');
    readln(n);
    a := 1;
    b := 1;
    for i := 1 to n do
        print(i, a, b);
    readln();
end.
  • Log in to post comments
  • 1405 reads
vedro-compota's picture

vedro-compota

Tue, 08/03/2021 - 19:20

переделать без изменения по ссылке

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

Aleksandr

Thu, 08/05/2021 - 18:05 

program lesson14_5;

function print(i, a, b: integer): integer;
var
    j: integer;
begin
    for j := 1 to b do
    begin
        if i > a then
            break;
        write(i, ' ');
        i := i + 1;
    end;
    result := i;
end;

var
    a, b, i: integer;
begin
    writeln('enter number a');
    readln(a);
    i := 1;
    b := 1;
    while i <= a do
    begin
        i := print(i, a, b);
        writeln();
		b := b + 1;
	end;
	readln();
end.
program lesson14_5;

procedure print(var i: integer; a, b: integer);
var
    j: integer;
begin
    for j := 1 to b do
    begin
        if i > a then
            break;
        write(i, ' ');
        i := i + 1;
    end;
end;

var
    a, b, i: integer;
begin
    writeln('enter number a');
    readln(a);
    i := 1;
    b := 1;
    while i <= a do
    begin
        print(i, a, b);
        writeln();
		b := b + 1;
	end;
	readln();
end.
vedro-compota's picture

vedro-compota

Thu, 08/05/2021 - 18:42

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

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