Страница 1 из 1

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

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

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

Добавлено: 27 окт 2008, 00:14
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.

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

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

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

Добавлено: 28 окт 2008, 07:45
Desos777
Naeel Maqsudov СПАСИБО!

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

Добавлено: 28 окт 2008, 23:56
Naeel Maqsudov
TiJester писал(а):Дана действительная матрица n*m упорядочить рядочки матрицы по убыванию значений наибольших элементов рядка....
упорядочивать надо текстовую информацию... дприменая метод вставок... ну ни как не могу сообразить как это решить! Кто знает подскажить хоть чемто???
Желательно без процедур.


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

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