Programy - O zločincoch a diamantoch :)

Vypočíta najmenší možný počet ulúpených diamantov troma zločincami

Program napísaný v jazyku Pascal.

program Zlocinci_a_diamanty;

var
d:integer;
x,y,z,n:real;

begin
 repeat
 writeln;
 d:=d+1;
 writeln(d);
 x:=(3*d)+1;
 writeln (x:5:2);
 y:=(x/2*3)+1;
 writeln (y:5:2);
 z:=(y/2*3)+1;
 writeln (z:5:2);
 n:=(z/2*3)+1;
 writeln (n:5:2);
 until (n)=int(n);
 readln;
end.

Program dokáže vypočítať minimálne množstvo ulúpených diamantov pre dvoch až deviatich zločincov 

Program napísaný v jazyku Pascal.

program Diamanty;

var
a,j: integer;
b: array [1..9] of integer;
i: longword;

begin
writeln('Napis pocet zlocincov, medzi ktorych sa budu delit diamanty (2-9).');
readln(a);
writeln;
if a>9 then begin
writeln('Maximalny pocet zlocincov je 9!');
readln;
halt;
end;
if a=1 then begin
writeln('Jeden zlocinec si vezme vsetky diamanty, nech ich ulupi akokolvek vela.');
readln;
halt;
end;
if a=0 then begin
writeln('Tolkoto zlocincov neulupi ani jeden diamant.');
readln;
halt;
end;
for i:= 1 to 4294967295 do
begin
b[1]:=(a*i)+1;
for j:=2 to a+1 do
begin
if (b[j-1] mod (a-1)<>0) then break;
if (b[j-1] mod (a-1)=0) then begin b[j]:=((b[j-1] div (a-1))*a)+1;
if j=a+1 then begin
writeln('pocet diamantov v poslednej kope je ',i,'.');
writeln('pocet vsetkych diamantov je ',b[j],'.');
readln;
halt;
end;
end;
end;
end;
end.

Hodnotenie užitočnosti článku:

• ← Programy - Nájdenie maxima :)
• Programy - Obsah a obvod :) →