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

Primary tabs

isaac_fan's picture
Submitted by isaac_fan on Tue, 05/31/2022 - 17:21

Forums:

урок 13.1

Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.

var
  i,j:integer;
begin
  while (i>1) do
  begin
    writeln('ведите число');
    readln(i);
    if (i<1) then
      writeln ('ошибка!'); break
    else
     if (i>1) then
       for j:=1 to i do
         writeln(j,' ');
  end;
  readln()l
end.
  • Log in to post comments
  • 2567 reads
vedro-compota's picture

vedro-compota

Tue, 06/07/2022 - 20:45

1) Программа не запускается
2)

while (i>1) do

-- почему начинаем с такой проверки в цикле?
По-идее надо начать с получения числа от пользователя

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

isaac_fan's picture

isaac_fan

Sun, 06/12/2022 - 18:07 

var
  i,j:integer;
begin
  writeln('ведите число');
  readln(i);
  while (i>1) do
  begin
     if (i>1) then
       for j:=1 to i do
         writeln(j,' ');
         break;
  end;
  if (i<1) then
    writeln ('ошибка!');
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 06/21/2022 - 20:56

проблемы с форматированием + какой тут алгоритм? Должно быть что-то вроде

  • 1) получили число
  • 2) Проверили положительное ли
  • 3) Если да - то запускаем цикл
  • 4) Иначе - сообщение об ошибке

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

isaac_fan's picture

isaac_fan

Tue, 07/05/2022 - 15:59 

var
  i,j:integer;
begin
  writeln('ведите число');
  readln(i);
  if ((i mod 2)=0) then
    while (i>1) do
    begin
     if (i>1) then
       for j:=1 to i do
         writeln(j,' ');
         break;
    end;
  if ((i mod 2)=1) then
    writeln('....ошиБКа....');
end.
vedro-compota's picture

vedro-compota

Thu, 09/08/2022 - 20:13

  1. проверить форматирование
  2. проверить работу для значения -2
  3. проверить на соответствие условию

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

isaac_fan's picture

isaac_fan

Mon, 09/12/2022 - 19:09 

var
  i,j:integer;
begin
  writeln('ведите число');
  readln(i);
  if ((i mod 2)=0) then
    while (i>1) do
    begin
      if (i>1) then
       for j:=1 to i do
       begin
         writeln(j,' ');
         break;
       end;
    end;
  else
    writeln('....ошиБКа....');
end.