Programování Pascal, pomoc s programem
Dobrý den, vůbec nevím si rady s tímto zadaným programem. Vše jsem do teď víceméně chápal, ale procedury to jde naprosto mimo mě. Kdo by mi s tím pomohl, moc děkuji!
Zadání:
Sestavte program v jazyce Turbo Pascal pro následující zadání:
Na vstup programu je dána posloupnost 10 celých čísel (pole). Napište funkci, která vrátí druhé nejmenší ze zadaných čísel. Dále napište proceduru, která vypíše (na základě vrácené hodnoty předchozí funkce) na obrazovku všechny pozice v poli, kde se nachází nalezené druhé nejmenší číslo.
(příklad: pole: 2, 5, 4, 2, 8, 9, 45, 2, 6, 2,1
funkce vrátí: 2
procedura vypíše na obrazovku: pozice 1, 4, 8, 10
Poznámka: při definici pole využijte zápis:
type pole = array[1..10] of integer;
var x: pole;
a ve funkci (proceduře) se odkazujte na tento typ.
Zadání:
Sestavte program v jazyce Turbo Pascal pro následující zadání:
Na vstup programu je dána posloupnost 10 celých čísel (pole). Napište funkci, která vrátí druhé nejmenší ze zadaných čísel. Dále napište proceduru, která vypíše (na základě vrácené hodnoty předchozí funkce) na obrazovku všechny pozice v poli, kde se nachází nalezené druhé nejmenší číslo.
(příklad: pole: 2, 5, 4, 2, 8, 9, 45, 2, 6, 2,1
funkce vrátí: 2
procedura vypíše na obrazovku: pozice 1, 4, 8, 10
Poznámka: při definici pole využijte zápis:
type pole = array[1..10] of integer;
var x: pole;
a ve funkci (proceduře) se odkazujte na tento typ.
Odpovědi
Diskuze
var x: pole;
i:integer;
Function NEJMENSI:integer;;
Begin
NEJMENSI:=pole[1];
for i:=2 to 10 do
if pole[i]<NEJMENSI then NEJMENSI:=pole[i];
end;