Урок 12.2 Задача 3

Primary tabs

Submitted by kuznmax on Sun, 04/24/2022 - 16:21

Forums:

Урок 12.2 Задача 3

У вас есть программа, использующая цикл while:

var
   i: integer;
begin
  i:=1;
  while i<=100 do
  begin
    write(i, ' ');
    i:=i+5;
  end;
 
  readln();
end.

Объясните что делает эта программа (что будет выведно на экран и почему)
Перепешите её с помощью цикла repeat/until
Перепешите её с помощью цикла for

№1

В этой программе выводятся числа от 1 до 100 и каждый раз к числу прибавляется 5

№2

var i: integer;
begin
  i:=1;
  repeat
    write(i, ' ');
    i:=i+5;
  until i>=100 ;


  readln();
end.

№3

var i: integer;
begin
  for i:=1 to 100 do
    write(i + 5, ' ');

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

vedro-compota

Tue, 04/26/2022 - 20:43 

var i: integer;
begin
  i:=1;
  repeat
    write(i, ' ');
    i:=i+5;
  until i>=100 ;
 
 
  readln();
end.

-- сравнить выводы консоли с исходным кодом

var i: integer;
begin
  for i:=1 to 100 do
    write(i + 5, ' ');
 
  readln();
end.

-- аналогично

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

kuznmax

Mon, 05/02/2022 - 14:33

В repeat-until вывод тот же
В for так и не понял

vedro-compota's picture

vedro-compota

Tue, 05/10/2022 - 17:54

Сначала решим задачу №2 http://fkn.ktu10.com/?q=node/8811

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

kuznmax

Sun, 05/29/2022 - 11:29 

program Project1;
var
   i: integer;
begin
  for i := 1 to 100 do
    begin
      if (( i mod 5) = 1) then
      write(i, ' ');
    end;


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

vedro-compota

Tue, 06/07/2022 - 19:54

засчитно

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