Помощь - Поиск - Пользователи - Календарь
Полная версия: Сортировка массива по убыванию произведения цифр числа с последующим выводом.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Dexoid
Помогите пожалуйста решить это несложную задачу: Нужно отсортировать массив по убыванию произведения цифр числа и потом вывести получившийся массив на экран. Пробовал писать сам, но так как цифры в массиве портятся то потом он просто выводит массив из нулей, поэтому прошу помощи. Спасибо заранее.
volvo
Показывай, как именно пробовал... Вообще-то ничего не должно портиться, потому как вычисление произведения цифр числа надо реализовать в отдельной функции, и при сортировке вместо сравнения самих чисел:

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

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

тогда все будет работать...
Dexoid
Код
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
Ну ты же внимательнее читай:
Цитата
вычисление произведения цифр числа

А ты что делаешь? Вот так попробуй:
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.

(не проверял, но не вижу причин чтоб не сработало)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.