Решение задачи №10 из главы 13.1

Решение задачи №10 из главы 13.1

Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)

Решил задачу, но не до конца мне не совсем понятно как проверить что оно больше нуля.

var i, j, m: integer;
begin
writeln('vvedite celoe chislo M');
readln(m); //вводим число ограничитель
begin
  for i := 1 to 2 do //
    begin
      for j := 1 to m do //
         if ((j mod 2)=0) AND (((j div 2)=1))  then
            write(j, ' ' );
      writeln(); // переносим строку
    end;
end;
   readln();
end.   
vedro-compota's picture

то же замечание. что и тут: http://fkn.ktu10.com/?q=comment/4119#com...

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

gani84's picture

распечатка консоли
vvedite celoe chislo M
5
vvedite celoe chislo N
6
2 4 6
2 4 6
2 4 6
2 4 6
2 4 6

var i, j, m, n,x: integer;
begin
writeln('vvedite celoe chislo M');
readln(m); //вводим число ограничитель  внешнего цикла
writeln('vvedite celoe chislo N');
readln(n); //вводим число ограничитель вложенного цикла
begin
  for i := 1 to m do
    begin
      for j := 1 to n do
        begin
          if ((j mod 2)=0) then
        write(j, ' ' );
        end;
      writeln(); // переносим строку
      if ((j mod 2)=1) AND (j>0) then
         begin
         x:=j div 2;
         write(x, ' ' );
      writeln();
    end;
    end;
    end;
   readln();
end.
end. 
vedro-compota's picture

Для M=5 N=6, должно быть:

1 2 3
1 2 3 4 5 6 
1 2 3
1 2 3 4 5 6 
1 2 3

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

gani84's picture

var i, j, m, n: integer;
begin
writeln('vvedite celoe chislo M');
readln(m);
writeln('vvedite celoe chislo N');
readln(n);
begin
  for i := 1 to m do
    begin
      if((j mod 2)=0) then
          for j := 1 to n do
            write(j, '  ')
      else
       if((j mod 2)=1) AND (j>0) then
           write((j div 2), ' ');
        writeln();
      end;
    end;
    readln();
end.
    
vedro-compota's picture

j - это что? за что отвечает эта переменная?

Прокомментировать код, назначение переменных.

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

gani84's picture

Распечатка консоли
vvedite celoe chislo M
5
vvedite celoe chislo N
6

123
123456
123
123456
123
var i, j, m, n: integer;
begin
writeln('vvedite celoe chislo M');
readln(m);
writeln('vvedite celoe chislo N');
readln(n);
begin
for i := 1 to m do 
    begin
      if((i mod 2)=1) then
        n:=n div 2
      else
        n:=n*2;
      for j := 1 to n do 
        write(j);
      writeln(); // переносим строку
    end;
   readln();
end;
end.
vedro-compota's picture

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

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