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

Primary tabs

Submitted by Djos on Tue, 10/05/2021 - 16:22

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

ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму.

procedure cikl(z:integer; var y,x: integer);
begin
write(z,' ');
if(y=x) then
begin
  writeln();
  y:=y+1;
  x:=1;
end
else
  x:=x+1;
end;

var a,b,c,i:integer;
begin
write('Vvedite chislo: ');
readln(a);
b:=1;
c:=1;
for i:=1 to a do
  cikl(i,b,c);
readln();
end.
  • Log in to post comments
  • 3536 reads
vedro-compota's picture

vedro-compota

Sun, 10/10/2021 - 12:26

неправильное форматирование

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

Djos

Sun, 10/10/2021 - 14:29 

var a,b,c,i:integer;
procedure cikl(z:integer; var y,x: integer);
begin
  write(z,' ');
  if(y=x) then
  begin
    writeln();
    y:=y+1;
    x:=1;
  end
  else
    x:=x+1;
end;
begin
  write('Vvedite chislo: ');
  readln(a);
  b:=1;
  c:=1;
  for i:=1 to a do
    cikl(i,b,c);
  readln();
end.

Vvedite chislo: 17
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17
vedro-compota's picture

vedro-compota

Wed, 10/13/2021 - 20:07

в процедуре должен быть цикл, который выводит все строку

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

Djos

Wed, 10/13/2021 - 22:48 

var a,b,c,n:integer;
procedure cikl(y,z1:integer; var z,x: integer);
begin
  while(y<=x) and (z<=z1)do
  begin
    write(z,' ');
    y:=y+1;
    z:=z+1;
  end;
end;
begin
  a:=1;
  c:=1;
  write('Vvedite chislo: ');
  readln(n);
  while(a<=n) do
  begin
    b:=1;
    cikl(b,n,a,c);
    writeln();
    c:=c+1;
  end;
readln();
end.
vedro-compota's picture

vedro-compota

Sun, 10/17/2021 - 12:45 

procedure cikl(y,z1:integer; var z,x: integer);

-- достаточно 3 переменных на выходе процедуры

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

Djos

Sun, 10/17/2021 - 15:57 

var a,c,n:integer;
procedure cikl(z1:integer; var z,x: integer);
var b:integer;
begin
  b:=1;
  while(b<=x) and (z<=z1)do
  begin
    write(z,' ');
    b:=b+1;
    z:=z+1;
  end;
end;
begin
  a:=1;
  c:=1;
  write('Vvedite chislo: ');
  readln(n);
  while(a<=n) do
  begin
    cikl(n,a,c);
    writeln();
    c:=c+1;
  end;
readln();
end.