3.6.- Algúns exemplos

A continuación podemos estudar algúns exemplos de algoritmos en PSeint

Exemplo 1

Un algoritmo sinxelo que nos pregunta o nome e si queremos continuar.

Retroalimentación

Proceso Saudo   //Bucle repetir
	Repetir
		
		Escribir "Ola, Como te Chamas?";
		Leer nombre;
		Escribir "Ola, ",nombre," Que tal estás?";
		
		Escribir "Queres comezar de novo? S/N";
		Leer seguir;
		
		Mientras seguir<>"n" y seguir<>"N" y seguir<>"s" y seguir<>"S"  Hacer
			Escribir "Tes que escribir S ó N.";
			Leer seguir;
		FinMientras
		
	Hasta Que seguir = "n" o seguir = "N"
	
FinProceso

Exemplo 2

Outro sinxelo exemplo. Neste caso, ademais de preguntarnos o nome pregúntanos tamén a hora para personalizar o saúdo. Emprégase a estrutura condicional SI aniñada e o operador lóxico Y (&).

Retroalimentación

//Programa que visualiza un saludo distinto en función da hora
// 
//Bos días: 6-12h
//Boa tarde: 12 – 20h
//Boas noites: 20 - 6h

Proceso SaludoSHora
	Escribir "Introduce a hora (0-24h)";
	Leer hora;
	Escribir "Cal é o teu nome?"
	Leer N
	Si (hora>6) Y (hora<=12) Entonces
		Escribir "Bos dias", N;
//		Acompañamos o texto entre "", co nome da variable N, separados con comas.
	Sino
		Si (hora>12) Y (hora<=20) Entonces
			Escribir "Boa tarde", N;
		Sino
			Si ((hora>20) Y (hora<24)) O ((hora>=0) Y (hora<=6)) Entonces
				Escribir "Boas noites" N;
			Sino
				Escribir "A hora introducida non é correcta", N;
			FinSi
		FinSi
	FinSi
	
FinProceso

Exemplo 3

Un algoritmo sinxelo que calcula o maior de dous números mediante unha estrutura condicional simple (se-entón).

Retroalimentación

Proceso Maior

		
	Escribir "Introduce dous números";
	Leer mayor,A; 
		
	Si A>mayor Entonces
			mayor<-A;   // En la variable mayor almaceno el valor del numero más alto.
	FinSi
	Escribir "El mayor es ",mayor;
FinProceso

Exemplo 4

Facemos agora o mesmo que antes, calcular o maior de dous números, pero empregando a estrutura condicional dobre.

Retroalimentación

// Exemplo de estrutura CONDICIONAL DOBRE
// Instrución Se-entón-senón
// Algoritmo para calcular o maior de dous números
Proceso Maior_de_dous
	Escribir "Por favor, introducir o primeiro número"
	Leer A
	Escribir "Por favor, introducir o segundo número"
	Leer B
	// Deste xeito pediranos os dous números e os chamará
	// co nome da variable A, B
	Si A>B Entonces
		Escribir 'O número maior é ',A
	SiNo
		Escribir 'O número maior é ',B
	FinSi
FinProceso

Exemplo 5

Un exemplo dunha estrutura condicional múltiple: asignar a un número un día da semana.

Retroalimentación

//Exemplo de estrutura CONDICIONAL MÚLTIPLE
//Instrución SEGÚN
Proceso Dia_da_semana
//	Algoritmo para asignarlle a un número un día da semana
	Escribir "Introducir un número do 1 ao 7"
	Leer A
	Segun A Hacer
		1:
			Escribir "luns"
			
		2:
			Escribir "martes"
		3:
			Escribir "mércores"
		4:
			Escribir "xoves"
		5:
			Escribir "venres"
		6:
			Escribir "sábado"
				
			
		De Otro Modo:
			Escribir "domingo"
			
	Fin Segun
FinProceso
//Podemos realizar a asignación arbitraria entre número e día

Exemplo 6

Implementaremos un algoritmo agora cunha estrutura condicional aniñada que calcule a tarifa que temos que pagar por un determinado concepto en función da idade.

Retroalimentación

Proceso tarifa
	Escribir "Introducir a tarifa base en €"
	Leer T
	Escribir "Introducir idade"
	Leer I
	Si I>18 Entonces
		Escribir "A tarifa é do 100%, a pagar"
		P<-T
		Escribir P "€"
	SiNo
		Si I<3 Entonces
			Escribir "A tarifa é do 0%, a pagar"
			P<-T*0
			Escribir P "€"
		SiNo
			Si I<12 Entonces
				Escribir "A tarifa é do 25%, a pagar"
				P<-T*0.25
				Escribir P "€"
			SiNo
				Si I<17 Entonces
					Escribir "A tarifa é do 75%, a pagar"
					P<-T*0.75
					Escribir P "€"
				SiNo
					Escribir "A tarifa é do 100%, a pagar"
					Escribir T "€"
				Fin Si
			Fin Si
		Fin Si
		Fin Si

Exemplo 8

Vemos agora un exemplo de algoritmo con estrutura repetitiva, empregando as instrucións mentres e repetir. Trátase de obter o maior dunha serie de números.

Retroalimentación

/ Identifica a maior de N entradas
Proceso MayorDeN
	f<-"a"
	Mientras  f<>"n" & f<>"N" Hacer
		Escribir "Indicar cantos valores se desexa comparar";
		Leer conta;
		falta<-2;
		Escribir "Introducir a cifra 1";
		Leer A;
		Repetir
			ahora<- conta-(conta-falta)
			Escribir "Introducir a cifra" ,ahora;
			Leer B
			Si B>A Entonces
				A<-B
			Sino
			//NADA
			FinSi
			conta<-conta-1
			falta<-falta+1
		Hasta Que conta=1
		Escribir "o maior é ",A;
	Escribir "Queres tentalo outra vez? (S/N)";
		Leer f;
		Mientras f<>"s" & f<>"n" & f<>"N" & f<>"S" Hacer
			Escribir "só podes escribir S ou N";
			Leer f;
		FinMientras
	FinMientras
	Escribir "Ata logo!"

FinProceso

Licenciado baixo a Licenza Creative Commons Recoñecemento Compartir igual 4.0

« Anterior | Seguinte »