Задание 21 Урок 13.1

Primary tabs

Submitted by Djos on Mon, 09/27/2021 - 17:49

Forums:

Задание 21 Урок 13.1

Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1. Например, для M=3 и N=19 получим:
123456--максимум три числа7891011121314--снова три числа1516171819.....

var i,n,i1,a,m,b : integer;
begin
write('Vvedite chislo n: ');
readln(n);
write('Vvedite chislo m: ');
readln(m);
i:=1;
i1:=1;
a:=0;
 while(i1<=n) do begin
   repeat
     write(i1, ' ');
     i1:=i1+1;
     a:=a+1;
    until(i<=a) or (i1>n);

  a:=0;
  writeln();

    if(i>=m)then begin
      b:=-1;
    end else if(i<=1)then begin
       b:=1;
    end;

  i:=i+b;
 end;
readln();
end.
  • Log in to post comments
  • 2715 reads
vedro-compota's picture

vedro-compota

Wed, 09/29/2021 - 19:19

добавить решение одним циклом

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

Djos

Wed, 09/29/2021 - 22:31 

var i,n,m,a,b,c : integer;
begin
write('Vvedite chislo n: ');
readln(n);
write('Vvedite chislo m: ');
readln(m);
a:=1;
b:=1;
for i:=1 to n do
begin
  if(a=b) then
  begin
    writeln(i,' ');
    if(b=m) then
      c:=-1
    else if(b<=1) then
      c:=1;
    b:=b+c;
    a:=1;
  end
  else
  begin
    write(i,' ');
    a:=a+1;
  end;
end;
readln();
end.
vedro-compota's picture

vedro-compota

Wed, 10/06/2021 - 21:06

сначала разберем http://fkn.ktu10.com/?q=comment/5640#com...

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

Djos

Wed, 10/06/2021 - 23:46 

var i,n,m,a,b,c : integer;
begin
write('Vvedite chislo n: ');
readln(n);
write('Vvedite chislo m: ');
readln(m);
a:=1;
b:=1;
for i:=1 to n do
begin
  write(i,' ');
  if(a=b) then
  begin
    writeln();
    if(b=m) then
      c:=-1
    else if(b<=1) then
      c:=1;
    b:=b+c;
    a:=1;
  end
  else
  begin
    a:=a+1;
  end;
end;
readln();
end.

Djos

Mon, 10/11/2021 - 08:38 

var i,n,m,a,b,c : integer;
begin
  write('Vvedite chislo n: ');
  readln(n);
  write('Vvedite chislo m: ');
  readln(m);
  b:=1;

  for i:=1 to n do
  begin
    write(i,' ');
    a:=a+1;

    if(a=b) then
    begin
      if(b=m) then
        c:=-1
      else if(b<=1) then
        c:=1;

      writeln();
      b:=b+c;
      a:=0;
    end;
  end;
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 10/13/2021 - 20:06

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

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