Temos pavadinimas: WordPress, Shopify ir PHPFusion programuotojų bendruomenė :: klausimai

Parašė Kižas· 2010 Rugs. 14 22:09:59
#53

Pateiksiu šiek tiek rimtesnę programą su procedūromis, sąlyginiais operatoriais ir ciklais. Gal kam bus ir sudėtinga programa, bet su laiku viskas yra išmokstama. Tai yra programa, kuri suranda DBD ir MBK. Turbūt nereikia aiškinti ką šie žodžiai reiškia.


program kartotiniai;
var dbd, mbk, sk, sk2 : longint;
procedure dbdmbk (sk1, sk2 : integer; var dbd, mbk : longint);
var ska, ska2, i, m, min, max : longint;
begin
if sk1 <= sk2 then
begin
min := sk1;
max := sk2;
end
else
begin
min := sk2;
max := sk1;
end;
 
dbd:=1;
for i := 1 to min do
if (sk1 mod i = 0) and (sk2 mod i = 0) then dbd := i ;
 
m := sk1 * sk2;
mbk := m ;
for i := max to m do
if (i mod sk1 = 0) and (i mod sk2 = 0) then
begin
mbk := i;
i:=m+1
end ;
 
end ;
 
begin
write (' Įrašykite skaičių ');
read (sk);
write (' Įrašykite kitą skaičių ');
read (sk2);
dbdmbk (sk, sk2, dbd, mbk);
writeln (' Didžiausias bendras daliklis - ', dbd);
readln;
writeln ('Mažiausias bendras kartotinis - ', mbk);
readln;
end.

Redagavo Kižas· 2010 Rugs. 14 22:09:35