Question

Объясните, как записывать эти алгоритмы в Лазарусе, какие кнопки нажимать и что куда вставлять на поле!!! (Пы.Сы. а то я тупой воробушек) В какой строке допущена ошибка? begin s := 0; for i: = 1 to 6 begin s := s + s*i; end; end; 2. Чему будет равняться значение переменной і? var i, n: integer; begin n := 30; i := 0; while n <100 do begin i := i + 1; n := n + 30; end; 3. В какой строке допущена ошибка? var i, n: integer; begin n := 50; i := 0; while <= 180 do begin i := i + 1; n := n + 60; end;

Answer 1

Ответ:

1)

begin // перед словом Бегин, обычно ставят слово var, за которым следуют названия переменных и их тип Аля var i,s:integer;этого должно хватить, чтобы прога заработала. Но что она делает? Она ноль складывает с нулем 6 раз подряд. Оно вам точно нужно?

s := 0;

for i: = 1 to 6 //тут нехват слова do

begin

s := s + s*i;

end;

end; //после этого энда нужна точка, а не ;

2)

Чему будет равняться значение переменной і?

var i, n: integer;

begin

n := 30;

i := 0;

while n <100 do//то что ниже будет повторяться пока н будет меньше ста, а учитывая, что каждый раз к н прибавляется 30, и сама н до начала цикла тоже 30, то повториться он 3 раза.

begin

i := i + 1;//заметим, что эти три раза к и прибавляется 1. Вначале и равно О, значит на момент конца цикла, он станет 3

n := n + 30;

end;

//Ответ 3. Но тут ещё одного энда нехватка.

3)

В какой строке допущена ошибка?

var i, n: integer;

begin

n := 50;

i := 0;

while <= 180 do//во-первых здесь не хватает н после слова вайл

begin

i := i + 1;

n := n + 60;

end; //во-вторых тут опять нет энда вконце. Запомните: сколько бегинов столько и эндав

Answer 2

Давайте разберем каждый из алгоритмов и объясним, как записать их в Lazarus.

1. Алгоритм с циклом "for":

cssCopy code
begin
  var s: integer;
  s := 0;
  for var i := 1 to 6 do
  begin
    s := s + s * i;
  end;
end;

В Lazarus вам необходимо создать новый проект, добавить кнопку на форму, и при нажатии на кнопку вы можете вызвать этот алгоритм.

2. Алгоритм с циклом "while":

cssCopy code
begin
  var i, n: integer;
  n := 30;
  i := 0;
  while n < 100 do
  begin
    i := i + 1;
    n := n + 30;
  end;
end;

Здесь также создайте новый проект, добавьте кнопку на форму и вызовите этот алгоритм при нажатии на кнопку.

3. В третьем алгоритме есть ошибка в условии цикла "while". Оператор "while" ожидает условие, и оно не указано. Вероятно, это опечатка, и условие должно быть в виде while n <= 180.

Исправленный вариант алгоритма с циклом "while":

cssCopy code
begin
  var i, n: integer;
  n := 50;
  i := 0;
  while n <= 180 do
  begin
    i := i + 1;
    n := n + 60;
  end;
end;

Теперь у вас должны быть исправленные версии алгоритмов, и вы можете вставить их в соответствующий обработчик события кнопки в Lazarus для тестирования и выполнения. Не стесняйтесь задавать вопросы, если у вас возникнут затруднения!