practiva1

Programa cerca zero
Donat un vector de N enters introduïts per l'usuari, el programa determina si hi ha el nombre 0 dins la taula, i en cas afirmatiu que digui a quina posició es troba. La midamàxima del vector és 20 (CAL UTILITZAR UN ESQUEMA DE CERCA).
Exemple d'execució:
Quants nombres vols introduir:
> 5
1) Entra un nombre:
> -6
2) Entra un nombre:
> 0
3) Entra un nombre:
> 9
4)Entra un nombre:
> 8
5) Entra un nombre:
> 7
S'ha trobat un 0 a la posició 2.

algorisme
var
max,i: enter
trobat : boolea
tenters : taula[max] de enters
fvar

max := 0
i := 0
trobat :=fals

mentre max = 0 o max > 20 fer
escriure(“Quants nombres vols introduir?”)
max = llegirenter()
fmentre

mentre (i = 0 fins tenters o trobat = fals) fer
per i = 0 fins tentersescriure(“Entra un valor :”)
tenters[i] = llegirenter()
si tenters[i] = 0
t = i
trobat := cert
fsi
si i = max – 1 i trobat = cert
escriure(“ Valor en la posicio {0} es {1}”, i, tenters[i])fsi
fper
i = i+1
fmentre

Programa vector creixent
Donat un vector de N nombres reals introduïts per l'usuari, el programa determina si el vector està ordenat creixentment.
Nota: CALUTILITZAR UN ESQUEMA DE CERCA, QUAN TROBI UN ELEMENT NO CREIXENT JA HA DE PARAR DE BUSCAR
algorisme
var
max, i, valoranterior : enter
trobat : boolea
tenters : taula[max] de enter
fvar

max := 0i := 0
valoranterior := 0
trobat := fals

escriure(“Quina es l'allargada de la taula?”)
max = llegirenter()

mentre i < tenters o trobat = fals
escriure(“Quin valor vols guardar a lataula?”)
taula[i] = llegirenter()
si valoranterior > taula[i]
trobat := true
escriure(“la taula no es creixent”)
fsi
i = i + 1
fmentre
falgorisme





Programa vectors iguals
Donats 2vectors de 5 elements cada un (v1 i v2), el programa determina si els vectors són iguals o no.
Per exemple, si:
v1 = 3 | 4 | 0 | -5 | 9
v2 = 3 | 4 | 0 | -5 | 8
El programa dirà que els...