Помогите пожалуйста решить это несложную задачу: Нужно отсортировать массив по убыванию произведения цифр числа и потом вывести получившийся массив на экран. Пробовал писать сам, но так как цифры в массиве портятся то потом он просто выводит массив из нулей, поэтому прошу помощи. Спасибо заранее.
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].
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.
(не проверял, но не вижу причин чтоб не сработало)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.