Pseint 05-Julio-2011

Proceso Calcularlasumadelcuadrado
//Calcular la suma de los cuadrados de los primeros 100 entero
//Escribir el resultado
suma<-0
para i<-1 hasta 100 con paso 1 Hacer
suma <- suma + i^2
FinPara
Escribir "La suma es:", suma
FinProceso

-------------------------------------------------

Proceso sin_titulo
//Desarrolle un algoritmo que permita leer tres
//almacenarlos en las variables A,b y c respectivamente
//Recuerde constatar que los tres valores introducido
//sean valores introducidos por el teclado sean valores distintos
//Presente un mensaje de alerta en caso de que se detecte la introduccion de valores iguales
escribir "ingrese el primer numero"
leer a;
escribir "ingrese el segundo numero"
leer B;
mientras a=b Hacer
escribir "error, ingrese numero nuevamente"
FinMientras
Escribir "ingrese el tercer Nº"
Leer C
Mientras c=A o C=B hacer
escribir "error ingrese nuevamente"
FinMientras
Si a>b Entonces
si a>C Entonces
escribir "Aes mayor"
Sino
Escribir " C Es mayor"
FinSi
SIno
si B>c Entonces
escribir "B es mayor"
Sino
Escribir " C Es Mayor"
FinSi

FinSi



FinProceso


-------------------------------------

Proceso Binario
Escribir "Ingrese un numero binario";
Leer n;
Binario <- n;
Suma <- 0;
i <- 1;
Repetir
d <- n mod 10;
suma <- suma + d*2^i;
i <- i + 1;
n <- trunc(n/10);
hasta que n=0
escribir "El numero binario : ",binario, " en decimal es : ", suma;
FinProceso

Presentacion de PHP

Compañeros:

Encontré esta pagina donde esta el gran contenido que no puede servir en el desarrollo de este.

http://tutorialphp.net/

No olvidar que este trabajo se tiene que entregar el Martes 14 de Junio

-Documento Word

-Presentacion (PPT)

- Demostracion en la presentacion.

Trabajo

Problema Nº 1:
Ingresa un nº: 123
124 te gané
Solución:

Proceso te_gane
Escribir "Ingresa un Numero:";
Leer uno;
Escribir uno + 1, " Te gane";
FinProceso

Problema Nº 2:
Calcular área y perímetro de rectángulo
Largo? …
Ancho? …
Area=nº Perímetro=nº
Solución:

Proceso calculo_area_perimetro
Escribir "Largo?";
Leer largo;
Escribir "Ancho?";
leer ancho;
Escribir "Area=",largo*ancho," Permimetro=",(2*largo)+(2*ancho);
FinProceso

Problema Nº 3:
Suma de fracciones: a/b + c/d
a ? 1
b ? 2
c ? 3
d ? 4
suma = 10/8 = 1 2/8 = 1.25
Solución:

Proceso fracciones
Escribir "a?";
Leer a;
Escribir "b?";
Leer b;
Escribir "c?";
Leer c;
Escribir "d?";
Leer d;
Escribir "Suma=",(a/b)+(c/d);
FinProceso

Tarea 1+2+3

Proceso Tarea1
Escribir "ingresa un numero:";
Leer n;
x<-(n+1);
Escribir x;
Escribir "te gane";

FinProceso


Proceso Tarea2
Escribir "Area y Perimetro";
Escribir "largo:";
Leer l;
Escribir "ancho:";
Leer a;
p<-(l*2)+(a*2);
a<-(l*a);
Escribir "perimetro: ", p;
Escribir "area: ", a;

FinProceso


Proceso Tarea3
Escribir "Suma de Fracciones";
Escribir "a:"; Leer a;
Escribir "b:"; Leer b;
Escribir "c:"; Leer c;
Escribir "d:"; Leer d;
s<-(a/b)+(c/d);
Escribir "resultado: ";
Escribir s;

FinProceso

Pase Escolar

Les informo que para sacarse la foto para Pase escolar es la siguiente direccion:

Universidad Arturo Prat Sala 106
Direccion: San Pablo 1796
Metro: Santa Ana
Lunes-Martes_Miercoles: 10:00 hasta 21:00
Jueves-Viernes: 10:00 hasta 17:00

Saludos.

Ejercicio 1 al 4 desarrollo

ejercicio 1
********
proceso ingresenumero
   escribir "ingrese numero";
   leer a;
   escribir a+1," te gane";
fin proceso

ejercicio 2
********
Proceso calculaareaperimetro
    escribir "largo ?";
    leer l;
    escribir "ancho ?";
    leer a;
area<-l*a;
perimetro<- (l*2)+(a*2);
    escribir "area ",area;
    escribir "perimetro ",perimetro;
FinProceso

ejercicio 3
********
Proceso farcciones
    Escribir "a ?";
    leer a;
    Escribir "b ?";
    leer b;
    Escribir "c ?";
    leer c;
    Escribir "d ?";
    leer d;
        s1<- (a/b);
        s2<- (c/d);
        suma<- s1+s2
    Escribir suma;
FinProceso

ejercicio 4
********
Proceso areacuadrado
    Escribir "lado ?";
    Leer l;
    area<- (l*2);
    Escribir area;
FinProceso