Hello!
Egy reciprok erteket szamolo eljarast kellene irnom, de
megakadtam....
Az egesz szam helyiertekeit egy tomb elemei jelentik
A tomb ->egy db<- szamot abrazol... az egyszeruseg
kedvert a [max] helyen vannak az egyesek [max-1] helyen a tizesek...
pl: 1687 ----> [max-3] [max-2] [max-1] [max]
1 6 8 7
es ennek az 1687 -nek kellene a reciproka, ugy hogy a leheto (max-tol fuggo)
legpontosabb erteket kapjam a reciprok tombben...
{--------------------------}
const max = 100;
type egeszek = array[1..max] of integer; {csak ilyen forma a jo...}
var reciprok : egeszek;
procedure reciprok( a : egeszek );
begin
end;
{--------------------------}
Van valakinek ehhez hasonlo forrasa (pascal) ? Megkoszonnem...
kosz! csao
|