Tlačiť

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:


    EP je spat Prehlad Fyzika Prehlad Informatika Treti pilier Fotograf_krojov On-line kurzy Ako sa učiť a ako učiť Dejiny sveta Dejiny Slovenska

     

    O VŠETKÝCH KURZOCH 

     

    · Simulácie z fyziky 
    · O Slovensku po slovensky 
    · Slovenské kroje
    · Kurz národopisu
    · Diela maliarov
    · Kontrolné otázky, Domáce úlohy, E-testy - Priemysel
    · Odborné obrázkové slovníky
    · Poradňa žiadaného učiteľa
    · Rýchlokurz Angličtiny
    . Rozprávky (v mp3)
    · PREHĽADY (PRIBUDLO, ČO JE NOVÉ?)
    Seriály:
    · História sveta (1÷6)
    · História Slovenska (1÷5)
    · História módy (1÷5).

                                       
    Členstvo na portáli
    Mám účet a chcem sa prihlásiť Prihlásiť sa
    Nemám účet, ale chcel by som ho získať Registrovať sa
    Poznámka pre autora

    Ak ste na stránke našli chybu, dajte nám vedieť

    Newsletter

    Nenechajte si ujsť žiadny nový článok

    @

    Copyright © 2013-2021 Wesline, s.r.o. Všetky práva vyhradené. Mapa stránky ako tabuľka | Kurzy | Prehľady