Задача по Турбо паскаль,помогите,пипл,плиз

[Desos777]

Возьмем натуральное число n.Будем изменять:если число четное,то разделим его на 2 ,если не четное,прибавим 1.После нескольких таких изменений,мы всегда получаем 1.
Например из числа 11 получаем 12,6,3,4,2,1
Таким образом нужно проделать 6 изменений.
То есть написать прогу,которая вводит натуральное числоn(от 1 до 10(в 9 степени)) и выводит на экран кол-во изменений числа,до получения 1.

[Naeel Maqsudov]

Код: Выделить всё

const
  steps:longint=0;
var
  N:longint;

  function DoChange(var X:longint):longint;
  begin
    if odd(X) then inc(X) else X:=X div 2;
    inc(steps);
    DoChange:=X;
  end;

begin
  write('Input the number: '); readln(N);
  while N>1 do write(DoChange(N),', ');
  writeln;
  writeln(steps,' steps were made.');

  readln;
end.

[TiJester]

Дана действительная матрица n*m упорядочить рядочки матрицы по убыванию значений наибольших элементов рядка....
упорядочивать надо текстовую информацию... дприменая метод вставок... ну ни как не могу сообразить как это решить! Кто знает подскажить хоть чемто???
Желательно без процедур.

[Desos777]

Naeel Maqsudov СПАСИБО!

[Naeel Maqsudov]

Дана действительная матрица n*m упорядочить рядочки матрицы по убыванию значений наибольших элементов рядка....
упорядочивать надо текстовую информацию... дприменая метод вставок... ну ни как не могу сообразить как это решить! Кто знает подскажить хоть чемто???
Желательно без процедур.

Что значит "действительная матрица"? Из действительных чисел?
Но что тогда означает "упорядочивать надо текстовую информацию"?
Вы бы уж потрудились условия задачи набрать точно так, как преподаватель Вам его дал.

P.S.
Без процедур - это неграмотно (как минимум вывод массива на экран - это должна быть процедура, так как повторяется как минимум 2 раза - до и после сортировки), но впрочем, как хотите.