Matematické Fórum

Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.

Nástěnka
22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.

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