🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: es.comp.lenguajes
Article #101

Re: Muy importante

#101
From: #55
Date: Tue, 20 Jul 1999 00:00
65 lines
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-mail
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>

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