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
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
↑ portman:
Nepatrí to do sekcie algoritmy a programovanie?

↑ portman:
Když zvládáš třídění tak kde je problém?
Offline
↑ portman:
Zoradíš pole, a vypíšeš 1. prvok a posledný prvok...pričom 1. prvok je číslo najväčšie a posledný najmenšie...
Offline

↑ 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
↑ 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
Offline
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
↑ portman:
pascal jsem teda hoooodne dlouho nevidel, ale nemuze to byt neco jako:
write("Nejvetsi je ",a[1]);
?
Offline
↑ portman:
použiješ procedúry writeln(); alebo write();
Napríklad tak ako hovorí ↑ Phate:
Offline