урок 13.1 задача 1

Primary tabs

isaac_fan's picture
Submitted by isaac_fan on Tue, 04/26/2022 - 18:23

Forums:

Выведите на экран таблицу умножения используя только циклы вида repeat/until.
Начинаться вывод таблицы должен как-то так:

1x1 = 1
1x2 = 2
......

var i, j: integer;
begin
  i := 1;
  repeat 
    j := 1;
   
      write(i, '*', j, '=', i*j, '   ');
        j:=j+1;
      until (j>9);

    writeln();
    i:=i+1;  
  until (i > 9); 

  readln();
end.
  • Log in to post comments
  • 4942 reads
vedro-compota's picture

vedro-compota

Tue, 04/26/2022 - 20:49

вообще не запускается

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

isaac_fan's picture

isaac_fan

Sat, 04/30/2022 - 21:37 

var i, j: integer;
begin
  i := 1;
  j := 1;
  repeat


      write(i, '*', j, '=', i*j, '   ');
        j:=j + 1;
      until (j>9);

   repeat
   writeln();
   i:=i + 1 ;
   until (i=9);

  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 05/10/2022 - 18:00

  1. проверить форматирование
  2. она выводит таблицу умножения?

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

isaac_fan's picture

isaac_fan

Tue, 05/17/2022 - 17:38 

var i, j: integer;
begin
  i := 1;
  j := 1;
  repeat
  repeat


      write(i, '*', j, '=', i*j, '   ');
        j:=j + 1;
      until (j>9);

   repeat
   writeln();
   i:=i + 1 ;
   until (i=9);
    until (i = 9 and j = 9);
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 05/24/2022 - 20:42

Сначала решить задачу 1 из урока 13.2 http://fkn.ktu10.com/?q=node/8714

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

isaac_fan's picture

isaac_fan

Sun, 06/12/2022 - 14:37 

var
  i,m,n,j:integer;
 
begin
  m:=9;
  n:=13;
  for i:=1 to m do
  begin
    for j:=1  to n do
      write('# ');
    writeln();
  end;
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 08/23/2022 - 20:17

Решить с repeat/until (как и указано в условии) http://fkn.ktu10.com/?q=node/8714

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

isaac_fan's picture

isaac_fan

Mon, 08/29/2022 - 20:46 

var
  i,m,n,j:integer;

begin

  repeat
      m:=n+1;
      write('# ');
      repeat
      m:=m+1;
      writeln();
      until(m=3) ;
    writeln();
  until(n=4);
  readln();
end.
vedro-compota's picture

vedro-compota

Thu, 09/08/2022 - 19:59

  1. форматирование
  2. проверить запуск и решение
  3. в коде не видно умножения

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

isaac_fan's picture

isaac_fan

Mon, 09/12/2022 - 18:52

я пробывал переставить это не помогло 

var
  i,m:integer;

begin
  i:=1;
  m:=1;
  repeat
    repeat
      write('# ');
      m:=m+1;
    until(m=13);
    i:=i+1;
    writeln();
  until(i=9);
  readln();
end.
vedro-compota's picture

vedro-compota

Thu, 09/15/2022 - 20:16

есть ошибка, на паузу, пока потренируемся отлаживать программы

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