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

Primary tabs

Submitted by NikSo on Tue, 11/29/2022 - 10:34

Forums:

Задача 4 Урок 14.2:

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:

1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17

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

program u142z4;
var a, //количество выводимых чисел в строке
    n, //число которое вводит пользователь
    c: integer; //последнее число в строке
procedure stroka(b,d:integer; var e:integer);   //b-макс.кол-во чисел в строке
var i:integer;
begin
  for i:=1 to b do
  begin
    if e<=d then     //d-максимальное число для вывода=n
      write(e,' ');
    e:=e+1;          //e-выводимое число=с
  end;
  writeln();
end;
begin
  c:=1;
  writeln('vvedite chislo');
  readln(n);
  while c<=n do
  begin
    a:=a+1;
    stroka(a,n,c);
  end;
  readln();
end.
  • Log in to post comments
  • 644 reads
vedro-compota's picture

vedro-compota

Sun, 12/11/2022 - 14:26

вернуть соответствие имен переменных - на входе и в сигнатуре

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

NikSo

Wed, 12/14/2022 - 12:42 

program u142z4;
var a, //количество выводимых чисел в строке
    n, //число которое вводит пользователь
    c: integer; //последнее число в строке
function stroka(b,d,e:integer): integer;
var i:integer;
begin
  for i:=1 to b do    //b-макс.кол-во чисел в строке
  begin
    if e<=d then     //d-максимальное число для вывода
      write(e,' ');
    e:=e+1;             //e-выводимое число
  end;
  result:=e;
  writeln();
end;
begin
  c:=1;
  writeln('vvedite chislo');
  readln(n);
  while c<=n do
  begin
    a:=a+1;
    c:=stroka(a,n,c);
  end;
  readln();
end.
vedro-compota's picture

vedro-compota

Mon, 01/02/2023 - 17:21

вернуть соответствие имен переменных - на входе и в сигнатуре, использовать те же самые имена

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

NikSo

Wed, 01/04/2023 - 08:17 

program u142z4;
var a, //количество выводимых чисел в строке
    n, //число которое вводит пользователь
    c: integer; //последнее число в строке
function stroka(a,n,c:integer): integer;
var i:integer;
begin
  for i:=1 to a do    
  begin
    if c<=n then   
      write(c,' ');
    c:=c+1;         
  end;
  result:=c;
  writeln();
end;
begin
  c:=1;
  writeln('vvedite chislo');
  readln(n);
  while c<=n do
  begin
    a:=a+1;
    c:=stroka(a,n,c);
  end;
  readln();
end.