Article View: es.comp.lenguajes
Article #101Re: Muy importante
From: #55
Date: Tue, 20 Jul 1999 00:00
Date: Tue, 20 Jul 1999 00:00
65 lines
3317 bytes
3317 bytes
Jose Luis Trivino escribi� en mensaje <3792E452.5FC9ABE2@lcc.uma.es>...
:trovador wrote:
: Realizar un programa en el lenguaje SIMPLON que calcule el
:resto y el cociente de la divisi�n entera de un n�mero
:pasado por par�metro por una constante C (por ejemplo 5).
: El lenguaje SIMPLON es tan simple como sigue (aqui muestro
:su sintaxis y sem�ntica completa):
: A := B // Copia el valor de B en A
: A := B+1 // Copia el valor de B en A y le suma 1
: A := B-1 // Copia el valor de B en A y le resta 1
: REPETIR N VECES
: <sentencias>
: FIN REPETIR // Repite <sentencias> N veces. N puede ser una
:variable o una constante. Si N es una variable su
:modificaci�n dentro del cuerpo del bucle no afecta al n�mero
:de iteraciones (estas quedan fijadas al comienzo del bucle).
: LEER A // Lee por terminal un numero y lo almacena en la
:variable A
: ESCRIBIR A // Escribe el valor de A en el terminal
:
***** A = DIVIDENDO
***** C = DIVISOR
***** Z = COCIENTE
***** R = RESTO
LEER A
LEER C
A1 := A // Utilizamos una variable temporal
Z := 0 // Supongo que esto se puede hacer ;-)
REPETIR A VECES
REPETIR C VECES
A1 := A1 - 1
FIN REPETIR
Y1 := A1 + 1
REPETIR Y1 VECES /// �REPETIR -n VECES => REPETIR 0 VECES ?
Z := Z + 1
FIN REPETIR
Y1 := A1
REPETIR Y1 VECES
Z := Z - 1
FIN REPETIR
FIN REPETIR
ESCRIBIR Z /// Tenemos el Cociente
R := A
REPETIR X1 VECES
REPETIR C VECES
R := R - 1
FIN REPETIR
FIN REPETIR
ESCRIBIR R /// Tenemos el resto
:
: Supongo que si habeis leido este mensaje hasta aqui ya
:tendreis algo de curiosidad por saber quien solucion� mejor
:este problema, pero eso lo guardo para cuando alguien
:encuentre la soluci�n. Asi podr� crear un poco m�s de
:polemica. Animo y a demostrar quien es el mejor programador.
:
Gracias, un reto de vez en cuando no va mal...
Saludines
Luis
Technical Details
Message-ID:
<7n1emm$i61@wendy.mad.servicom.es>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailReferences:
<7midgc$13n@telerad.teleline.es> <7mj1oq$7jb@telerad.teleline.es> <378DCE0C.1433597D@interactivebureau.com> <Pine.LNX.4.10.9907160956530.3269-100000@golum.inforg.uniovi.es> <3792E452.5FC9ABE2@lcc.uma.es>Show Full Headers
Complete Article Headers
X-Google-Language: SPANISH,ASCII X-Google-Thread: 1053fc,7f2767b4c9fc7a53 X-Google-Attributes: gid1053fc,public X-Google-Thread: 1116f3,7f2767b4c9fc7a53 X-Google-Attributes: gid1116f3,public X-Google-Thread: 10f58f,7f2767b4c9fc7a53 X-Google-Attributes: gid10f58f,public X-Google-Thread: 105378,7f2767b4c9fc7a53 X-Google-Attributes: gid105378,public X-Google-Thread: f877f,7f2767b4c9fc7a53 X-Google-Attributes: gidf877f,public X-Google-Thread: f53ec,7f2767b4c9fc7a53 X-Google-Attributes: gidf53ec,public X-Google-Thread: f59de,7f2767b4c9fc7a53 X-Google-Attributes: gidf59de,public From: "#55" <correcaminos@mec.mec> Subject: Re: Muy importante Date: 1999/07/20 Message-ID: <7n1emm$i61@wendy.mad.servicom.es> X-Deja-AN: 503061259 References: <7midgc$13n@telerad.teleline.es> <7mj1oq$7jb@telerad.teleline.es> <378DCE0C.1433597D@interactivebureau.com> <Pine.LNX.4.10.9907160956530.3269-100000@golum.inforg.uniovi.es> <3792E452.5FC9ABE2@lcc.uma.es> Organization: SERVICOM X-MimeOLE: Produced By Microsoft MimeOLE V4.72.2106.4 Newsgroups: es.comp.lenguajes,es.comp.lenguajes.c,es.comp.lenguajes.c++,es.comp.lenguajes.java,es.comp.lenguajes.misc,es.comp.lenguajes.tex,es.comp.lenguajes.visual-basic