progrma cibernetica

Programa 11
procedure mayor_numero;
var
canti : integer;
may, cont : integer;
numeros : array[1..20] of integer;
begin
clrscr;
writeln;
write(' Entre Cuantos Numeros Entrara max.[20] : ');
readln(canti);
for cont := 1 to canti do
begin
write(' Entre Num.[ ',cont,' ] : ');readln(numeros[cont]);
end;
may := 0;
for cont := 1 to canti do
if numeros[cont] > may then
may := numeros[cont];
writeln;
writeln(' El Numero Mayor Es : ',may);
writeln;
writeln(' Pulse [Enter]');
readln;
end;

programa 22
uses crt,dos; 

{función que devuelve el nombre del día de la semana} function DiaSemana(numero : word) : string; 
begin 
case numero of 
0 : DiaSemana:='Domingo'; 
1 : DiaSemana:='Lunes'; 
2 : DiaSemana:='Martes'; 
3 : DiaSemana:='Mi‚rcoles'; 
4 : DiaSemana:='Jueves'; 
5 : DiaSemana:='Viernes'; 
6 : DiaSemana:='S bado'; 
end; 
end; 

{función que devuelve el nombre del mes} 
function NombreMes(numero : word) : string; 
begin 
case numero of 
1 :NombreMes:='enero'; 
2 : NombreMes:='febrero'; 
3 : NombreMes:='marzo'; 
4 : NombreMes:='abril'; 
5 : NombreMes:='mayo'; 
6 : NombreMes:='junio'; 
7 : NombreMes:='julio'; 
8 : NombreMes:='agosto'; 
9 : NombreMes:='septiembre'; 
10 : NombreMes:='octubre'; 
11 : NombreMes:='noviembre'; 
12 : NombreMes:='diciembre'; 
end; 
end; 

var 
hs,mins,segs,segs100 : word; 
ano,mes,dia,sem : word; begin 
clrscr; 
{obtengo la fecha} 
GetDate(ano,mes,dia,sem); 
{obtengo la hora} 
GetTime(hs,mins,segs,segs100); 
{escribo la fecha formateada} 
writeln(DiaSemana(sem), ' ', dia, ' de ', NombreMes(mes), ' de ', ano); 
{y escribo la hora, centésimas luego de los segundos separadas por un punto (.)} 
write(hs, ':', mins, ':', segs, '.', segs100); 
readln; 
end. 
Programa 11
proceduremayor_numero;
var
canti : integer;
may, cont : integer;
numeros : array[1..20] of integer;
begin
clrscr;
writeln;
write(' Entre Cuantos Numeros Entrara max.[20] : ');
readln(canti);
for cont := 1 to canti do
begin
write(' Entre Num.[ ',cont,' ] : ');
readln(numeros[cont]);
end;may := 0;
for cont := 1 to canti do
if numeros[cont] > may then
may := numeros[cont];
writeln;
writeln(' El Numero Mayor Es : ',may);
writeln;
writeln(' Pulse [Enter]');
readln;
end;

programa 22
uses crt,dos; 

{función que devuelve el nombre del día de la semana} 
function DiaSemana(numero :word) : string; 
begin 
case numero of 
0 : DiaSemana:='Domingo'; 
1 : DiaSemana:='Lunes'; 
2 : DiaSemana:='Martes'; 
3 : DiaSemana:='Mi‚rcoles'; 
4 : DiaSemana:='Jueves'; 
5 : DiaSemana:='Viernes'; 
6 : DiaSemana:='S bado'; 
end; 
end; 

{función que devuelve el nombre del mes} 
function NombreMes(numero : word) : string; 
begin 
case numero of 
1 : NombreMes:='enero'; 
2 :NombreMes:='febrero'; 
3 : NombreMes:='marzo'; 
4 : NombreMes:='abril'; 
5 : NombreMes:='mayo'; 
6 : NombreMes:='junio'; 
7 : NombreMes:='julio'; 
8 : NombreMes:='agosto'; 
9 : NombreMes:='septiembre'; 
10 : NombreMes:='octubre'; 
11 : NombreMes:='noviembre'; 
12 : NombreMes:='diciembre'; 
end; 
end; 

var 
hs,mins,segs,segs100 : word; 
ano,mes,dia,sem : word; 
begin 
clrscr; 
{obtengola fecha} 
GetDate(ano,mes,dia,sem); 
{obtengo la hora} 
GetTime(hs,mins,segs,segs100); 
{escribo la fecha formateada} 
writeln(DiaSemana(sem), ' ', dia, ' de ', NombreMes(mes), ' de ', ano); 
{y escribo la hora, centésimas luego de los segundos separadas por un punto (.)} 
write(hs, ':', mins, ':', segs, '.', segs100); 
readln; 
end. 
Programa 11
procedure mayor_numero;
var...