Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Tarea
objeto :- write('{'), read(X),(X='atributo'->atributo; write('')),a1, write('}'). a1:- read(X),(X='atributo'->write(','),atributo,a1; X='fin'->write(''); X='otro'->otro; X='farreglo'->write(']')). atributo:-cadena, write(':'), valor. valor:- read(X), (X='numero'->numero; X='cadena'->cadena; X='objeto'->objeto; X='arreglo'->arreglo). cadena:-write('"'),read(X),write(X),write('"'). arreglo:-write('['),valor,a2,write(']'). otro:- write(','),valor,a2. a2:- read(X),(X='otro'->otro; X='farreglo'->write('')). numero:- read(X),write(X). :- objeto.
run
|
edit
|
history
|
help
0
30-08-2021-desiciones
clase 1
Tarea 3
ARREGLOS
Tarea 2
Tarea Query
TareaIf Else
OBJETO
Tarea If
Tarea1 - objeto empresa