Que lenguaje de Prog es este????
Publicado por EMANUEL (45 intervenciones) el 08/07/2007 02:08:10
hola amigos, me tope con un plan de estudios y dan este programita, alguien sabe de que lenguaje se trata?? me parece que es pascal y a ustedes??
**************************************************************************************************
program MaxSum
call ReadInput()
call ComputeAnswer()
call WriteOutput()
end
// T= [1..100, 1..100] //
// lee los valores del triángulo //
procedure ReadInput
input(inp, N)
output('Número de renglones: ', N)
for r <- 1 to N do
for p <- 1 to r do read(T[r, p])
output('Leídos todos los datos')
end // ReadInput //
// obtiene la suma de la ruta máxima //
procedure ComputeAnswer
// m <- la suma de la ruta máxima //
m <- MaxRS(1, 1)
end // ComputeAnswer //
// calcula la sumatoria de una ruta //
procedure MaxRS(r, p)
if r = N then return(MaxRS <- T[r, p])
else return(MaxRS <- T[r, p] + call Max(MaxRS(r+1, p), MaxRS(r+1, p+1)))
end // MaxRS //
// obtiene el valor más grande de dos números //
procedure Max(x, y)
if x > y then return (Max <- x)
else return (Max <- y)
end // Max //
// escribe el resultado //
procedure WriteOutput
output('La suma de la ruta máxima es ', m)
end // WriteOutput //
***************************************************************************************************
si Alguien sabe de que se trata este lenguaje le agradecere me lo diga.
gracias amigos!!!!!!!!!!!!!!!
**************************************************************************************************
program MaxSum
call ReadInput()
call ComputeAnswer()
call WriteOutput()
end
// T= [1..100, 1..100] //
// lee los valores del triángulo //
procedure ReadInput
input(inp, N)
output('Número de renglones: ', N)
for r <- 1 to N do
for p <- 1 to r do read(T[r, p])
output('Leídos todos los datos')
end // ReadInput //
// obtiene la suma de la ruta máxima //
procedure ComputeAnswer
// m <- la suma de la ruta máxima //
m <- MaxRS(1, 1)
end // ComputeAnswer //
// calcula la sumatoria de una ruta //
procedure MaxRS(r, p)
if r = N then return(MaxRS <- T[r, p])
else return(MaxRS <- T[r, p] + call Max(MaxRS(r+1, p), MaxRS(r+1, p+1)))
end // MaxRS //
// obtiene el valor más grande de dos números //
procedure Max(x, y)
if x > y then return (Max <- x)
else return (Max <- y)
end // Max //
// escribe el resultado //
procedure WriteOutput
output('La suma de la ruta máxima es ', m)
end // WriteOutput //
***************************************************************************************************
si Alguien sabe de que se trata este lenguaje le agradecere me lo diga.
gracias amigos!!!!!!!!!!!!!!!
Valora esta pregunta


0