[Pascal] Tri najvacsie - zdrojak - surne

Axwell · Napísal **Axwell**: 13.05.2008 20:51

95. Tri_najvacsie **
Vytvorte program, ktorý vypíše tri najväčšie čísla z N (N>=3) celých náhodných čísel,
ktoré boli vygenerované z intervalu <a,b>

diky vopred

raf · Napísal **raf**: 14.05.2008 14:24

program cisla;
uses crt;
var n,prvynajv,druhynajv,tretinajv:integer;
begin
randomize
writeln ('Zadaj n: ');
readln (n);
writeln ('Zadaj a: ');
readln (a);
writeln ('Zadaj b: ');
readln (b);
for i:=1 to n do
begin
if x>prvynajv then
begin
x:=a+random(b+1);
tretinajv:=druhynajv;
druhynajv:=prvynajv;
prvymajv:=x;
end;
writeln ('Toto su tri najvacsie cisla:');
writeln (prvynajv,', ',druhynajv,', ',tretinajv);
readkey;
end.

raf · Napísal **raf**: 14.05.2008 14:26

Podla mna by si to mohol spravit aj sam. Skus to - inac ti to nepojde. Ten zdrojak mam z hlavy.

Speeder21 · Napísal **Speeder21**: 14.05.2008 16:17

jo jo zdrojak z hlavy

sak to aj vypada jak misung necoho co nefem co je

.. sa pozri lepsie uvidis si kopec chyb

len na pohlad je ich dost a to som to este nenahodil a neskusal ... a poviem ti pravdu keby si tento program napisal z hlavy uctievam ta bo v tej zbierke ci co to je je to priklad s 2 hviezdickami cize jeden z najtazsich jake su tam ... a ja na riesenie ani za nic nemozem dojst

:D

neutronmind · Napísal **neutronmind**: 14.05.2008 20:05

pocuj a mozes pouzit aj pole? inak ja to tu uz hodnu chvilu skusam, podarilo sa mi len vypisat najvacsie cislo, tie dalsie dve uz dako nejdu :-D

a pouzil som aj pole, bez toho by to imho neslo...

Speeder21 · Napísal **Speeder21**: 14.05.2008 21:07

heh presne rovnaky problem mam aj ja

ty kokos ja sem nad tym presedel ani nefem jak 1 hodinu a ani za nic som nemohol vybrat 3 najvacsie len jedno

stenley · Napísal **stenley**: 14.05.2008 22:15

na co pole? ved to je obycajne porovnavanie hodnot

Pascal som mal uz velmi davno, tak uvediem len princip zistenia maximalnych cisel, cize si to uprav podla potreby:
x - najvacsie cislo
y - druhe najvacsie cislo
z - tretie najvacsie cislo
cislo - nahodne cislo z intervalu <a,b>

Kód:

x = y = z = tmpx = tmpy = tmpz = 0;

for(i=1 to N)
{
   cislo = a + random(b+1);
   
   if(cislo > x)
   {
      tmpx = x;
       x = cislo;
      
      if(tmpx > y)
      {
         tmpy = y;
         y = tmpx;
         
         if(tmpy > z)
         {
            z = tmpy;
         }            
      }  
   }
   elseif(cislo > y)
   {
      tmpy = y;
      y = cislo;
      
      if(tmpy > z)
      {
         z = tmpy;
      }
   }
   elseif(cislo > z)
   {
      z = cislo;
   }
}

neutronmind · Napísal **neutronmind**: 15.05.2008 22:20

sorry ze OT, ale to je jaky jazyk co si sem hodil... C?

stenley · Napísal **stenley**: 15.05.2008 22:47

z kazdeho rozka troska

taky zvlastny pseudokod

staci to prepisat do pascalu - ale to uz necham na vas...

//na to, ze je ten priklad s 2 hviezdickami, je to dost lahke...

Axwell · Napísal autor témy **Axwell**: 18.05.2008 9:52

diky ;-)

Axwell · Napísal autor témy **Axwell**: 20.05.2008 18:10

prosim niekoho kto mi napise uz spravne tento program pre pascal. diky :-)

neutronmind · Napísal **neutronmind**: 20.05.2008 19:51

dokedy to mas mat? ja teraz nemam moc casu, mozno by som sa na to zajtra este raz pozrel... aj ked neslubujem ze mi to vyjde, to je trochu tazke na mna

...

neznamy · Napísal **neznamy**: 20.05.2008 20:15

no tak dufam ze toto je to co hladas.. inak uz to tu stenley presne napisal co je treba a prepisat to do pascalu by nemal byt ziaden problem...

Kód:

program Axwell;
var a,b,n,i,x,y,z,nahodne :integer;
begin
writeln ('Zadaj interval a-b');
readln(a);
readln(b);
writeln('Zadaj pocet vygenerovanych cisel');
readln(n);
x:=0;
y:=0;
z:=0;
randomize;
write('Nahodne cisla su: ');
for i:=1 to n do
begin
  nahodne:= Random(b-a)+a;
  write(nahodne,' ');
  if nahodne>x then
  begin
    z:=y;
    y:=x;
    x:=nahodne;
  end
  else if nahodne>y then
       begin
         z:=y;
         y:=nahodne;
       end
       else if nahodne>z then
            z:=nahodne;
end;
writeln('cisla su ',x ,' ',y,' ', z);
readln;
end.

Axwell · Napísal autor témy **Axwell**: 20.05.2008 20:41

diky

[Pascal] Tri najvacsie - zdrojak - surne

Podobné témy