Clases 19 Abril

Proceso azare
Escribir "rango numero"
Leer rango

intentos<-(rango-1);

num_secreto <- azar(intentos)+2;

Escribir "Adivine el numero en rango hasta"," ",rango
Leer num_ingresado;
Mientras num_secreto<>num_ingresado Y intentos>0 Hacer
Si num_secreto>num_ingresado Entonces
Escribir "Muy bajo";
Sino
Escribir "Muy alto";
FinSi
Escribir "Le quedan ",intentos," intentos:";
Leer num_ingresado;
intentos <- intentos-1;
FinMientras

Si intentos=0 Entonces
Escribir "El numero era: ",num_secreto;
Sino
Escribir "Exacto! Usted adivino en ",rango-intentos," intentos.";
FinSi



FinProceso

Grupo Definitivo

Estimados necesitamos definir el grupo definitivo sobre todo para divivirnos partes de los programas de tareas a realizar de lo contrario nunca lograremos el objetivo final... lograr poder programar y pasar el ramo.

quedo a la espera de sus confirmaciones pro esta vía los que respondan estaremso trabajando, máximo plazo Martes 19:30.

Saludos !! Marcelo

primera entrada

primera visita

Clase 05 Abril 2011

a) Operadores en PSEINT (fueron publicados en blog la semana pasada)
b) Explicación de sentencias algoritmicas (Si, Mientras, Para).
c) Binarios, secuencia lógica, 101010 (VFVFVF).
d) Funciones Integradas en PSEINT.
e) Tarea Programa resolver numero al azar.

Fracciones definitivo

Proceso Fracciones
Escribir "Ingrese valor 1:";
Leer a;
Escribir "Ingrese valor 2:";
Leer b;
Escribir "Ingrese valor 3:";
Leer c;
Escribir "Ingrese valor 4:";
Leer d;
e<-((a/b)+(c/d));
f<- trunc(e);
Escribir "10/8:", f; Escribir "2/8:", e
FinProceso

Funciones de PSEINT

Función
Significado
RC(X)
Raíz Cuadrada de X
ABS(X)
Valor Absoluto de X
LN(X)
Logaritmo Natural de X
EXP(X)
Función Exponencial de X
SEN(X)
Seno de X
COS(X)
Coseno de X
TAN(X)
Tangente de X
ASEN(X)
Arcoseno de X
ACOS(X)
Arcocoseno de X
ATAN(X)
Arcotangente de X
TRUNC(X)
Parte entera de X
REDON(X)
Entero más cercano a X
AZAR(X)
Entero aleatorio entre 0 y x-1

Clase 29-03-2011

Con el Aporte de Cèsar logramos terminar el ejercicio 3.
Proceso Calculo
Escribir "Ingrese valor 1:";
Leer a;
Escribir "Ingrese valor 2:";
Leer b;
Escribir "Ingrese valor 3:";
Leer c;
Escribir "Ingrese valor 4:";
Leer d;
s<-((a/b)+(c/d));
z<- trunc(s);
Escribir "la suma de fracciones es:", z;
FinProceso