OPTATIVO Unidad1


Universidad Nacional Autónoma de México
Colegio de Ciencias y Humanidades
Azcapotzalco






EJERCICIOS 2-8
(Optativos)
UNIDAD I




Alumno: Popoca Plutarco Daniel Eduardo
Profesor: Nora Martínez Arias
Asignatura: Cibernética y Computación (ll)
Grupo: 664


NOTA:
PROFESOR ANTES QUE NADA LE MANDO UN SALUDO DONDE ESTE VIENDO ESTE TRABAJO NADAMAS QUERIA AVISARLE QUE LAS CAPTURAS DE PANTALLA NOSE VEN EN MI COMPUTADORA YA LA AVIA COMENTADO Y ME DIJO QUE NADA MAS LE PUSIERA ESTA NOTA PARA RECODARLE POR QUE ME VIO HACIENDOLAS OK :D
MUCHAS GRACIAS
ATT. DANIEL POPOCA



















EJERCIO 2.-
PROBLEMA
Calcular el área de un rectángulo y mostrar el resultado en la pantalla
ANALISIS
ENTRADA
-Base
-Altura
PROCESO
-Solicitar numero para base
-Solicitar numero para altura
SALIDA
-ÁreaDISEÑO
INICIO
1.-Solicitar numero para base y guardarlo como “base”
2.-Solicitar numero par altura y guardarlo como “altura”
3.-Multiplicar “base”*”altura” y guardarlo como “área”
4.-Mostrar: Área
FIN.
DIAGRAMA














PSEUDOCODIGO
INICIO
ESCRIBIR: “Área de un rectángulo”;
ESCRIBIR: “Base”;
LEER: Base;
ESCRIBIR: “Altura”;LEER: Altura;
Área=Base*Altura;
ESCRIBIR: “Área de un rectángulo, Área”
FIN.
PRUEBA DE CAJON
BASE
ALTURA
AREA
50
60
300

CODIFICACION EN PASCAL
PROGRAM área rectángulo;
USES crt;
VAR base, altura, área: Real;
Begin
Write (‘área rectángulo’);
Write (‘ingresa la base’);
Reald (base);
Write (‘ingresa la altura’);
Reald (altura);
Area:=base*altura;
Write (‘área deun rectángulo’, área);
End.



EJERCIO 3.-
PROBLEMA
Calcular el pago de la fruta si el precio se proporciona en gramos y el precio es en kilos
ANALISIS
ENTRADA
-Peso en gramos
-Precio en kilos
PROCESO
-Solicitar precio en gramos
-Solicitar precio en kilos
-Dividir el peso en gramos entre 1000
-Multiplicar la división por el precio de un kilo
-Mostrar el precio

SALIDA
-Precio


DISEÑO
INICIO1.-Ingresar el precio en gramos y el precio por un kilo “1kg”
2.-Dividir Pegm entre mil y guardar el resultado “Pekg”
3.-Multiplicar “Pekg”*”1kg” y guardarlo como “Pre1kg”
4.-Mostrar: Pago
FIN.
DIAGRAMA










PSEUDOCODIGO
INICIO
ESCRIBIR: “Calculo de una fruta”;
ESCRIBIR: “ingresa precio en gramos”;
LEER: Pegm;
ESCRIBIR: “ingresarprecio de 1kg”;
LEER: Pre1kg;
Pe1kg=Pegm/1000;
Pago=Pekg*Pre1kg;
ESCRIBIR: “Precio de una fruta, Precio”;
FIN.
PRUEBA DE CAJON
PEGR
PRE1KG
PEKG
PAGO
2000grs.
12
2
241

CODIFICACION EN PASCAL
PROGRAM cálculo de una fruta;
USES crt;
CONST divisor=1000
VAR Pegm, Pre1kg, Pemil: Real;
Begin
Write (‘Calculo de na fruta’);
Write (‘ingresa precio en gramos’);Reald (Pegm);
Write (‘ingresa peso de 1kg’);
Reald (Pre1kg);
Pekg:=Pgrm/divisor;
Pago=Pre1kg*Pemil;
Write (‘Calculo de una fruta’, pago);
End.
EJERCIO 4.-
PROBLEMA
Calcular el área de un circulo y mostrarlo en la pantalla
ANALISIS
ENTRADA


-π (3.1416)
-Radio
PROCESO
-Solicitar radio
-Asignar valor a π
-Multiplicar radio por radio y guardarlo (área)
-Multiplicar (π*área) y guardar(Área)
-Mostrar el Área

SALIDA



-Área


DISEÑO
INICIO
1.-Solicitar valor de radio y guardarlo “radio”
2.-Asignar 3.1416 a “π” y guardarlo
3.-Multiplicar “radio”*”radio” y guardar en “área”
4.-Mostrar: Área
FIN.
DIAGRAMA










PSEUDOCODIGO
INICIO
ESCRIBIR: “Área de un circulo”;
ESCRIBIR: “ingresa radio de circulo”;
LEER: radio;ESCRIBIR: “ingresar π”;
LEER: π=3.1416;
Radio=radio*radio;
Área=3,1416*radio;
ESCRIBIR: “Área de un circulo, área”;
FIN.
PRUEBA DE CAJON
RADIO
PI
AREA
2
4
3.1416
12.5

CODIFICACION EN PASCAL
PROGRAM Área de un círculo;
USES crt;
CONST pi=3.1416
VAR Radio, Área: Real;
Begin
Write (‘Área de un circulo’);
Write (‘ingresa radio del circulo’);
Reald (radio);...