Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
practica 6 ejercicio 2
//fpc 3.0.4 program HelloWorld; const anios = 4; meses = 12; dias = 31; horas = 23; {------------------------------------------------------ TYPE - Se definen los tipos de variables no definidos por el programa} type {------------------SUBRANGOS--------------------} rangoAnio = 0 .. anios; rangoMes = 1 .. meses; rangoDia = 1 .. dias; rangoHora = 0 .. horas; {------------------FECHAS--------------------} Tfecha = record anio : rangoAnio; mes : rangoMes; dia : rangoDia; end; {------------------MENSAJES--------------------} Tmensaje = record fecha : Tfecha; hora : rangoHora; cant : integer; end; {------------------------------------------------------ VARIABLES GLOBALES - Para evitar la fatiga} var m : Tmensaje; cant,cantDia,cantMes:integer; // variables max: Tmensaje; {------------------------------------------------------ Informar Fecha - imprime en pantalla la fecha correspondiente } procedure informarFecha(); var l : integer; begin l:= 2021 - m.fecha.anio; write(m.fecha.dia,'/',m.fecha.mes,'/',l); // se informa fecha end; {------------------------------------------------------ Maximo - calcula la mayor cant de mensajes } procedure maximo(); begin if cantDia > max.cant then begin // se calcula la maxima cantidad de mensajes por dia max.cant:= cantDia; max.fecha := m.fecha; end; end; {------------------------------------------------------ lectura - lee todos los parametros } procedure Lectura(); begin write(' ingrese anio: '); {se ingresa el anio} readln(m.fecha.anio); write(m.fecha.anio);writeln; if m.fecha.anio <> 0 then begin write(' ingrese mes: '); {se ingresa el mes} readln(m.fecha.mes);write(m.fecha.mes);writeln; write(' ingrese dia: '); {se ingresa el dia} readln(m.fecha.dia);write(m.fecha.dia);writeln; write(' ingrese hora: '); {se ingresa la hora} readln(m.hora);write(m.hora);writeln; end; end; {------------------------------------------------------ LECTURA HORARIA - Se lee durante la misma hora} procedure Xhora(); var reg_hora : rangoHora; begin reg_hora:= m.hora; // se registra la hora cant:=0; while m.hora = reg_hora do begin // mientras la hora sea la misma write(' ingrese cant: '); {se ingresa la cantidad} readln(m.cant); write(m.cant); writeln; cant:= cant + m.cant; // se suma la cantidad de mensajes en esa hora write(' ingrese hora: '); {se ingresa la hora} readln(m.hora); write(m.hora); writeln; end; end; {------------------------------------------------------ LECTURA DIARIA - se lee durante el mismo dia } procedure Xdia(); var reg_dia: rangoDia; begin reg_dia:= m.fecha.dia; // se registra el dia cantDia:=0; // inicializacion... while m.fecha.dia = reg_dia do begin Xhora(); cantDia:= cant+ cantDia; write(' ingrese dia: '); {se ingresa el dia} readln(m.fecha.dia); write(m.fecha.dia); writeln; end; writeln; write(' para el dia ');informarFecha(); // informamos mensajes por dia write(' hubo ',cantDia,' mensajes'); writeln;writeln; end; {------------------------------------------------------ LECTURA MENSUAL - Se lee durante el mismo mes} procedure Xmes(); var reg_mes: rangoMes; begin reg_mes := m.fecha.mes; // se registra el mes cantMes:= 0; // inicializacion ... while m.fecha.mes = reg_mes do begin Xdia(); maximo(); cantMes:= cantMes + cantDia; write(' ingrese mes: '); {se ingresa el mes} readln(m.fecha.mes); write(m.fecha.mes); writeln; end; writeln; writeln(' en el mes ',m.fecha.mes,' hubo ',cantMes,' mensajes'); // informamos mensajes por mes writeln; end; {------------------------------------------------------ LECTURA ANUAL - Se lee durante el mismo anio} procedure Xanio (); var reg_anio :rangoAnio; begin reg_anio := m.fecha.anio; // se registra el anio while m.fecha.anio = reg_anio do begin Xmes(); write(' ingrese anio: '); {se ingresa el anio} readln(m.fecha.anio); write(m.fecha.anio); writeln; end; end; {------------------------------------------------------ LECTURA PRINCIPAL - engloba todas las lecturas temporarias } begin Lectura(); max.cant:=0; // inicializamos la cantidad de mensajes maxima while m.fecha.anio <> 0 do begin Xanio(); end; end.
run
|
edit
|
history
|
help
0
practica 9 ejercicio 4
for for fib
Вычисление e^x с помошью ряда Тейлора
ANDERSON MARINS DE SOUZA 600622591
JESSICA GOMES DE SOUZA FERREIRA 600621634
Бассейн-7=
Tangga angka
07 Ariketa
6
Overflow error