POO vs prog estructurada (agoritmos :D)

pues aqui les dejo los algoritmos q teniamo q hacer espero y les sirva de utilidaad
disculpen nosalen vin con sus margenes

Diseñar un algoritmo que lea e imprima una serie de números distintos a a cero. El algoritmo debe terminar con un valor cero que no se debe de imprimir. Visualizar el número de valores leídos.
INICIO
VARIABLES
CONTADOR =0
ESCRIBE (“DA EL NUMERO :”) LEER NÚMERO
MIENTRAS (NUMERO ≠0)
CONTADOR =CONTADOR +1
IMPRIME NÚMERO
ESCRIBE (“DA EL NUMERO :”)
LEER NÚMERO
FIN MIENTRAS
IMPRIME CONTADOR
FIN

Diseñar un algoritmo que imprima y sume la serie de números 4, 8, 12, 16,… hasta el 400
INICIO
VARIABLES
ENTERO SUMA=0, X=4
LEER X
MIENTRAS (X<=400)
HACER
SUMA = SUMA + X
IMPRIME X
X=X 4
FIN DE MIENTRAS
IMPRIMIR SUMA
FIN

Escribe un algoritmo que lea 4 números y a continuación imprima el mayor de los 4

INICIO
VARIABLES
ENTERO A,B,C,D, MAX
ESCRIBE (DAME NUMERO) LEER A
MAX=A
ESCRIBE (DAME NUMERO) LEER B
SI (MAX ENTONCES MAX=B
SI NO
ESCRIBE (DAME NUMERO) LEER C
Fin de si
SI (MAX ENTONCES MAX=C
SI NO
ESCRIBE (DAME NUMERO) LEER D
Fin de si
SI (MAX ESCRIBE (“EL NUMERO MAYOR DE LOS 4 ES:”) D
SI NO
ESCRIBE (“EL NUMERO MAYOR DE LOS 4 ES:”) MAX
Fin de si
FIN

Escribe un algoritmo que encuentre el salario semanal de un trabajador, dada la tarifa horaria y el número de horas trabajadas diariamente

INICIO
VARIABLES
ENTERO A, Z, Q, W, HT=30 ; COMETARIO(HT= TARIFA POR HORA)
ESCRIBE (“DAME LAS HORAS TRABAJADAS DIARIAS”)
LEER A
ESCRIBE (“DAME LAS DÍAS TRABAJADOS”)
LEER Z
W=A*Z
Q=W*HT
ESCRIBE (“EL SALARIO ES :”)
IMPRIME Q
FIN

Escriba un algoritmo para determinar el máximo común divisor de 2 números enteros (MCD)por el algoritmo de Euclides:
-Dividir el mayor de los enteros por el más pequeño
-a continuación, dividir el divisor por el resto
-continuar el proceso de dividir el ultimo divisor por el ultimo divisor por el ultimo resto hasta que la división sea exacta
El último divisor es el mcd

Inicio
Variables r0,r1,a,b,s0,t0,s1,t1,i
ESCRIBE (DAME NUMERO) LEER A
ESCRIBE (DAME NUMERO) LEER b
R0=A
R1=B
S0=1
T0=0
Si=0
Ti=1
I=1
Mientras Ri ≠0 hacer lo siguiente:
1.-Divida ri − 1 entre ri para obtener el cociente qi y el residuo ri + 1
2.-Si+1=Si-1-QiSi
3.-Ti+1=Ti-1-QiTi
4.-I=i+1
Fin de mientras
ri − 1 = asi − 1 + bti − 1
Imprimir ri
FIN