Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Сортировка массива по убыванию произведения цифр числа с последующим выводом.

Автор: Dexoid 23.10.2007 23:17

Помогите пожалуйста решить это несложную задачу: Нужно отсортировать массив по убыванию произведения цифр числа и потом вывести получившийся массив на экран. Пробовал писать сам, но так как цифры в массиве портятся то потом он просто выводит массив из нулей, поэтому прошу помощи. Спасибо заранее.

Автор: volvo 23.10.2007 23:24

Показывай, как именно пробовал... Вообще-то ничего не должно портиться, потому как вычисление произведения цифр числа надо реализовать в отдельной функции, и при сортировке вместо сравнения самих чисел:

If a[i] > a[j] then ...

надо сравнивать:
If mult(a[i]) > mult(a[j]) then ...

тогда все будет работать...

Автор: Dexoid 24.10.2007 0:27

Код
var i,j,s,b:integer;
type
mymas=array [1..15] of integer;
var a:mymas;
function mult (a:mymas):integer;
begin
for i:=1 to 15 do begin
while a[i]>0 do begin
s:=a[i] mod 10;

mult:=a[i]+s;
a[i]:=a[i] div 10;
end;
end;
end;
begin
for i:=1 to 15 do begin
readln(a[i]);
end;
for j:=1 to 14 do
for i:=1 to 15-j do
if mult(a[i]) > mult(y[i+1] then begin
b:=y[i];
y[i]:=y[i+1];
y[i+1]:=b;
end;
for i:=1 to 15 do
write(a[i]);
writeln;
end.


Вот, паскаль ругается Types missmatch. На условие if mult(a[i]) > mult(y[i+1]. wink.gif

Автор: volvo 24.10.2007 0:39

Ну ты же внимательнее читай:

Цитата
вычисление произведения цифр числа

А ты что делаешь? Вот так попробуй:
function mult(a: integer): integer;
var s: integer;
begin
  s := 1;
  while a > 0 do begin
    s := s * (a mod 10);
    a := a div 10;
  end;
  mult := s;
end;

const
  n = 15;
type
  mymas = array[1 .. n] of integer;

var
  i, j, b: integer;
  a: mymas;

begin
  for i := 1 to n do begin
    readln(a[i]);
  end;

  for i := 1 to n do
    for j := n downto i+1 Do
      if mult(a[j - 1]) > mult(a[j]) then begin
        b := a[j - 1]; a[j - 1] := a[j]; a[j] := b
      end;

  for i := 1 to 15 do write(a[i]:5);
  writeln;
end.

(не проверял, но не вижу причин чтоб не сработало)