augustoguerrero

Procedure InsertarOrdenado (var pri: lista; num:integer);
var
  ant,nue,act:lista;
begin
  new(nue);
  nue^.elem := num;
  nue^.sig := nil;
  
  if (pri = nil) then
    pri := nue;

augustoguerrero

Circulo padre;
Circulo[] hijos1 = new Circulo[7];
Circulo[] hijos2 = new Circulo[4];
Circulo[] hijos3 = new Circulo[3];

void setup() {
  size(600, 600);
  noStroke();
  smooth();
  padre = new Circulo(200, #BBDEFB);

augustoguerrero

/*
 * Test send/receive functions of IRremote, using a pair of Arduinos.
 *
 * Arduino #1 should have an IR LED connected to the send pin (3).
 * Arduino #2 should have an IR detector/demodulator connected to the
 * receive pin (11) and a visible LED connected to pin 3.
 *
 * The cycle:
 *  Arduino #1 will wait 2 seconds, then run through the tests.
 *  It repeats this forever.

augustoguerrero

ORG 1000H
FRASE_1 DB  "ESTA ES UNA FRASE"
LETRA_A DB  "A"
FRASE_2 DB  "ESTO ES OTRA COSA"

ORG 2000H
MOV CX, OFFSET FRASE_1 ; Se guarda las direcciones
MOV DX, OFFSET FRASE_2 ; de las frases
MOV AL, 0              ; Inicializa este contador en 0
SEGUIR: MOV BX, CX     ; Se guarda la direccion de la frase 1 en BX

augustoguerrero

program parcial1;

rango1 = 1..100;

type
  camion = record
    patente:string;
    año_fabricacion:integer;
    capacidad:real;
  end;

augustoguerrero

#include <stdio.h>
#include "contiki.h"
#include "dev/i2cmaster.h"
#include "dev/light-ziglet.h"
#include "dev/leds.h"

/*---------------------------------------------------------------------------*/
#define SENSOR_READ_INTERVAL (CLOCK_SECOND / 80)
#define SENSOR_SAMPLE_INTERVAL (CLOCK_SECOND / 40)
//uint32_t medir_luz(uint32_t muestras);