estructuras secuenciales (2015)

Apunte Español
Universidad Universidad Politécnica de Cataluña (UPC)
Grado Ingeniería Mecánica - 1º curso
Asignatura Informatica
Año del apunte 2015
Páginas 4
Fecha de subida 17/03/2015
Descargas 1

Vista previa del texto

Estructuras secuenciales: Diseñar un algoritmo en seudocódigo i realizar el correspondiente programa en pascal que permita encontrar el punto medio de dos puntos en un espacio bidimensional según la fórmula: a=(ax, ay) b= (b^, by) entonces m =a+b=[(a, + , (ay + by)/2] Diseñar un algoritmo en seudocódigo i realizar el correspondiente programa en pascal que, dado un número entero que designe un periodo de tiempo expresado en segundos, devuelva el equivalente en días horas minutos y segundos: 24000 segundos serán: Odias, 6 horas, 40 minutos y O segundos 4^ ^ i^A 1 Programa punto medio: VAR Ax, Ay, Bx, By, mx, my : REAL; begin WRITELN ('Buenos dias, a horita les vamos a calcular el punto medio entre el punto A y B'); WRITELN 0; WRITE ('Cuanto vale Ax?'); READLN(Ax); WRITE ('¿Cuanto valeAy?'); READLN(Ay); WRITE ('¿Cuanto vale Bx?'); READLN (Bx); WRITE ('¿Cuanto vale By?'); READLN (By); mx:= ((Ax+Bx)/2); my:= ((Ay+By)/2); WRITELN 0; WRITELN ('M (', mx:4:2,',', my:4:2,')'); WRITELN ('Gracias por confiar en nosotros'); READLN end.
- Programa segundos: ^ VARS,SEG,MIN, MINUTOS, H, HORAS, DIAS: integer; .
begin (•PRESENTACION*) WRITELNCHOLA, BIENVENIDO A ESTE PROGRAMA CONVERSOR DE UNIDADES DE TIEMPO'); WRITELN; ; (•PEDIMOS EL TIEMPO EN SEGUNDOS A CONVERTIR*) WRITE ('INTRODUZCA UNIDAD DE SEGUNDOS:'); READLN (S); (*PASAMOS LOS SEGUNDOS A DIAS, HORAS, MINUTOS Y SEGUNDOS*) SEG:=(Smod60); MIN:=(Sdiv60); > - 1 H; • MINUTOS:=( MIN mod 60); H:=(MINdiv60); HORAS:= (H mod 24); : : i /A DIAS:=(H div 60); (•EXPRESAMOS EL RESULTADO^) WRITELNCEL RESULTADO ES:'); WRITEC ');WRITE(DIAS);WRITE("); WRITELN('DIAS'); WRITEC ');WRITE (HORAS);WRITE(''); WRITELN('HORAS'); WRITEC ');WRITE(MINUTOS);WRITE(''); WRITELN('MINUTOS'); WRITEC ');WRITE (SEG); WRITEC '); WRITELN('SEGUNDOS'); READLN; end.
\- - ' ...