Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи:

Ввести последовательность натуральных чисел {Aj}j=1...n. Упорядочить последовательность по не возрастанию первой цифры числа, числа с одинаковыми первыми цифрами дополнительно упорядочить по не возрастанию произведения цифр числа, числа с одинаковыми первыми цифрами и одинаковыми произведениями цифр дополнительно упорядочить по не возрастанию самого числа.
Блок схема

Просмотров: 193
Объяснение: -
Отзывов: 0

РЕШЕНИЕ:

program PascalGuru; uses crt; var A:array[1..100] of integer; i,j,n,nn:integer; s,s2:string; pr1,pr2,c,cod:integer; b:boolean; procedure exchange(var a,b:integer); var c:integer; begin c:=a; a:=b; b:=c; end; {--------------------------------------------} begin write('N= '); readln (n); writeln ('Vvedite elementy massiva A: '); for j:=1 to n do begin write ('A[',j,']='); readln (A[j]); end; clrscr; writeln ('Vot vvedennyi vami massiv A: '); for j:=1 to n do write (A[j]:4,' '); nn:=n; repeat b:=false; for j:=1 to nn-1 do begin str(A[j],s); str(A[j+1],s2); if s[1]<s2[1] then begin exchange(A[j],A[j+1]); b:=true; end; end; dec(nn); until not b; writeln;writeln; writeln ('Vot "po nevozrastaniyu pervoi tsifry chisla" massiv A: '); for j:=1 to n do write (A[j]:4,' '); {-------------------------------------------------------------------------} nn:=n; repeat b:=false; for j:=1 to nn-1 do begin str(A[j],s); str(A[j+1],s2); if s[1]<>s2[1] then continue; pr1:=1;pr2:=1; for i:=1 to length(s) do begin val(s[i],c,cod); pr1:=pr1*c; end; for i:=1 to length(s2) do begin val(s2[i],c,cod); pr2:=pr2*c; end; if pr1<pr2 then begin exchange(A[j],A[j+1]); b:=true; end; end; dec(nn); until not b; writeln;writeln; writeln ('Vot "po nevozrastaniyu proizvedeniya tsifr chisla" massiv A: '); for j:=1 to n do write (A[j]:4,' '); {-------------------------------------------------------------------------} nn:=n; repeat b:=false; for j:=1 to nn-1 do begin str(A[j],s); str(A[j+1],s2); pr1:=1;pr2:=1; for i:=1 to length(s) do begin val(s[i],c,cod); pr1:=pr1*c; end; for i:=1 to length(s2) do begin val(s2[i],c,cod); pr2:=pr2*c; end; if (s[1]<>s2[1]) and (pr1<>pr2) then continue; if A[j]>A[j+1] then begin exchange(A[j],A[j+1]); b:=true; end; end; dec(nn); until not b; writeln;writeln; writeln ('Vot "po nevozrastaniyu samogo chisla" massiv A: '); for j:=1 to n do write (A[j]:4,' '); readln; end.
нажми на эту область и скопируй решение


	© 2008 - 2012 Pascal, Паскаль, Турбо Паскаль, Turbo pascal.