Matematické Fórum


1. 8. 2026 (L) Fórum bude brzy uzavřeno 😿

Nejste přihlášen(a). Přihlásit

#1 08. 03. 2011 15:19

portman
Zelenáč
Příspěvky: 5
Reputace:   
 

Vytvoření programu - Pascal

Dobrý den,
Mame za ukol v pascalu toto:
Zadano 15 celych čisel do 100, seřadit čisla sestuně, opsat a zjistit nejmensi a nejvetsi cislo....
Vim ,ja kpoužit radu, bublinkové tridění, ale zbytek je pro mě španělská vesnice...
Mohl by mi prosím někdo pomoci?
Děkuji mnohokrát

Offline

 

#2 08. 03. 2011 15:42

Dana1
Host
 

Re: Vytvoření programu - Pascal

↑ portman:

Nepatrí to do sekcie algoritmy a programovanie?

 

#3 08. 03. 2011 15:54

janca361
.
Příspěvky: 3284
 

Re: Vytvoření programu - Pascal

↑ portman:
Když zvládáš třídění tak kde je problém?

Offline

 

#4 08. 03. 2011 16:21

hradecek
Příspěvky: 772
Pozice: Student
Reputace:   25 
Web
 

Re: Vytvoření programu - Pascal

↑ portman:
Zoradíš pole, a vypíšeš 1. prvok a posledný prvok...pričom 1. prvok je číslo najväčšie a posledný najmenšie...


Netrápte sa nad svojimi problémami s matematikou, môžem vás uistiť, že tie moje sú ešte väčšie. ~~Albert Einstein~~
Jak spozná člověk, že není pitomec ? - Moudrý člověk to nepozná nikdy a blbci je to jedno. ~~Jak přicházejí básnici o iluze~~
Někteří lidi se nikdy nezmění. Anebo se rychle změní a pak se zase rychle změní nazpátek. ~~Homer Simpson~~

Offline

 

#5 08. 03. 2011 16:32

portman
Zelenáč
Příspěvky: 5
Reputace:   
 

Re: Vytvoření programu - Pascal

Dana:pardon...
janca: třídění bublinkové máme předepsane v dokumentu, takže to v podstatě přepíšu, bohužel největší a nejmenší číslo nikoli...

Offline

 

#6 08. 03. 2011 16:53

janca361
.
Příspěvky: 3284
 

Re: Vytvoření programu - Pascal

↑ portman:
Největší číslo bude první číslo pole, nejměnší poslední číslo pole, jak napsal ↑ hradecek:
Pokud budeš mít proměnnou pole jako array[1..15]of integer, tak bude největší číslo bude pole[1] a nejmenší pole[15].

Offline

 

#7 08. 03. 2011 16:53

hradecek
Příspěvky: 772
Pozice: Student
Reputace:   25 
Web
 

Re: Vytvoření programu - Pascal

↑ portman:
Neutriedené pole = { 2, 9, 4, 6, 5 }
Utriedené pole = { 9, 6, 5, 4, 2 }

Prvý prvok poľa = najväčšie
Posledný prvok poľa = najmenšie


Netrápte sa nad svojimi problémami s matematikou, môžem vás uistiť, že tie moje sú ešte väčšie. ~~Albert Einstein~~
Jak spozná člověk, že není pitomec ? - Moudrý člověk to nepozná nikdy a blbci je to jedno. ~~Jak přicházejí básnici o iluze~~
Někteří lidi se nikdy nezmění. Anebo se rychle změní a pak se zase rychle změní nazpátek. ~~Homer Simpson~~

Offline

 

#8 08. 03. 2011 18:29

portman
Zelenáč
Příspěvky: 5
Reputace:   
 

Re: Vytvoření programu - Pascal

Aha...no zatim mi to nedochazi, jsme trotl:D

array[1..15]
for i:=1 to 100 do       (pro obraznost..)
....
    for i:=1 to p-1 do
        for j:=1 to p-i do
            if a[j] > a[j+1] then
               begin
                   pom    := a[j];
                   a[j]   := a[j+1];
                   a[j+1] := pom;
               end;

když mma tříděni tak pak jak napišu v pascalu ty dva prvky?

Offline

 

#9 08. 03. 2011 19:12

Phate
Příspěvky: 1740
Reputace:   99 
 

Re: Vytvoření programu - Pascal

↑ portman:
pascal jsem teda hoooodne dlouho nevidel, ale nemuze to byt neco jako:
write("Nejvetsi je ",a[1]);
?


Vykonávat věc, které se bojíme, je první krok k úspěchu.

Offline

 

#10 08. 03. 2011 19:46

hradecek
Příspěvky: 772
Pozice: Student
Reputace:   25 
Web
 

Re: Vytvoření programu - Pascal

↑ portman:
použiješ procedúry writeln(); alebo write();
Napríklad tak ako hovorí ↑ Phate:


Netrápte sa nad svojimi problémami s matematikou, môžem vás uistiť, že tie moje sú ešte väčšie. ~~Albert Einstein~~
Jak spozná člověk, že není pitomec ? - Moudrý člověk to nepozná nikdy a blbci je to jedno. ~~Jak přicházejí básnici o iluze~~
Někteří lidi se nikdy nezmění. Anebo se rychle změní a pak se zase rychle změní nazpátek. ~~Homer Simpson~~

Offline

 

Zápatí

Powered by PunBB
© Copyright 2002–2005 Rickard Andersson