SoloCodigo

necesito hacer un bloque anonimo ,donde guarde en un array el numero y apellido de un empleado  y que visualize numero y apellido y numero y apellido al reves
DECLARE
   TYPE T_REG IS RECORD(NUMERO EMPLE.EMP_NO%TYPE,APELLIDO EMPLE.APELLIDO%TYPE);
   TYPE T1 IS TABLE OF T_REG INDEX BY BINARY_INTEGER;
   TABLA T1;
   
   CURSOR C1 IS SELECT EMP_NO,APELLIDO FROM EMPLE;
   REVES EMPLE.APELLIDO%TYPE;
   I NUMBER:= 0;
   J NUMBER:=0;
BEGIN
   FOR REG IN C1
   LOOP
      TABLA(I).NUMERO := REG.EMP_NO;
      TABLA(I).APELLIDO := REG.APELLIDO;
      DBMS_OUTPUT.PUT_LINE(TABLA(I).NUMERO||'-'||TABLA(I).APELLIDO);
      I:=I+1;
      
   END LOOP;
   DBMS_OUTPUT.PUT_LINE('-----------------------------------------');
   
   FOR L IN 0 ..(I-1)
   LOOP
      
      TABLA(J).APELLIDO :=CONCAT(TABLA(J).APELLIDO,SUBSTR(TABLA(J).APELLIDO,J,1));
      DBMS_OUTPUT.PUT_LINE(TABLA(J).NUMERO||'-'||TABLA(J).APELLIDO);
      J:=J+1;
   END LOOP;   
      
END;
/

Este es el codigo , mediante un radiobuton necesito ordenar un array  Agenda(,) , que se visualizara en dos listbox, uno para nombre y otro para telefono , como puedo hacerlo , algun consejo , muchas gracias

Public Class Form1

    Structure stragenda
        Dim nombre As String
        Dim Telefono As String
    End Structure
    Dim Agenda(,) As stragenda = {}
    Dim i, j As Integer

    Private Sub BtnAñadir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAñadir.Click
        Dim existe As Boolean
        existe = False
        'LstNombre.Items.Clear()
        'LstTelefono.Items.Clear()
        If TxtNombre.Text <> "" Then
            If Me.LstNombre.Items.Contains(TxtNombre.Text) Then
                MsgBox(" Ya existe esta persona")
                existe = True
            End If
            If Not existe Then
                ' AÑADIMOS AL LISTBOX
                Me.LstNombre.Items.Add(Trim(Me.TxtNombre.Text))
                Me.LstTelefono.Items.Add(Trim(Me.TxtTelefono.Text))

                ' REDIMENSIONAMOS LA MATRIZ
                ReDim Agenda(Agenda.GetUpperBound(0) + 1, Agenda.GetUpperBound(0) + 1)

                ' CARGAMOS LA MATRIZ
                With Agenda(Agenda.GetUpperBound(0), Agenda.GetUpperBound(0))
                    .nombre = Trim(Me.TxtNombre.Text)

                    For i = 0 To Agenda.Length + 1
                        For j = 0 To Agenda.Length + 1
                            .Telefono = Trim(Me.TxtTelefono.Text)
                            j = j + 1
                        Next
                        i = i + 1
                    Next
                End With
            End If
            'nombre = Split(TxtNombre.Text, vbNewLine)
            'If TxtTelefono.Text <> "" And TxtTelefono.Text.ToString = False And TxtTelefono.Text.Length = 9 Then
            '    'Telefono = Split(TxtTelefono.Text, vbNewLine)
            'End If

        Else
            MsgBox("No es un nummero  o es demasiado grande")
        End If




    End Sub

    Private Sub BtnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalir.Click
        End
    End Sub

    Private Sub RbOrdenar_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbOrdenar.CheckedChanged
        Dim i As Integer
        Array.Sort(Agenda)
        For i = 0 To Agenda.GetUpperBound(0)
            Me.LstNombre.Items.Add(Agenda)
            Me.LstTelefono.Items.Add(Agenda)

        Next


    End Sub
    Private Sub BtnModificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnModificar.Click
        'If LstNombre.Text <> "" And LstTelefono.Text <> "" Then
        If LstNombre.SelectedItem = Me.LstNombre.Text Then

            'ReDim Preserve Agenda(Agenda.GetUpperBound(0) - 1, Agenda.GetUpperBound(0) - 1)

            Me.LstNombre.Items.Remove(Me.LstNombre.Text)
        End If

        If LstTelefono.SelectedItem = Me.LstTelefono.Text Then
            Me.LstTelefono.Items.Remove(Me.LstTelefono.Text)


        End If
        'End If

    End Sub
End Class

Por favor , no hay nadie que me pueda echar una mano ......gracias de nuevo

Hola buenos dias me salen errores en el codigo y no consigo solucionarlos , muchas gracias.


#include<stdio.h>
#include<conio.h>
#include<string.h>
#include<ctype.h>
#include<stdlib.h>
#include "FACB.cpp"
 //PLANTILLA PARA USO EN LAS APLICACIONES QUE LO REQUIERAN///
     void Visualizacion(), Visualizacion(), Multiplicar(), Dividir(), Salir();
       int  op;
     float numero1, numero2;
     
void main(){
     void Creacion(), Visualizacion(), Multiplicar(), Dividir(), Salir();

    do{

      clrscr();
      gotoxy (20,2);printf("MENU  MANTENIMIENTO FICHERO SECUENCIAL");
      gotoxy (25,6);printf("1. Creacion de un fichero");
      gotoxy (25,8);printf("2. Visualizacion de un fichero");
      gotoxy (25,10);printf("3. Informe sin rupturas de Control ");
      gotoxy (25,12);printf("4. Busquedas o Consultas de un fichero");
      gotoxy (35,14);printf("6=Salir:");
      gotoxy (32,16);printf("Teclea opcion:");
      clreol(); fflush(stdin);scanf("%d",&op);

           if(op!=5)
           

      switch(op){
                case 1: clrscr();Creacion(); break;
                case 2: clrscr();Visualizacion();break;
                case 3: clrscr();Multiplicar();break;
                case 4: clrscr();Dividir();break;
                case 5: clrscr();Salir(); break;

      }
    }while(op!=6);
}
 void Creacion(){
     /* 1) Declaracion del registro */
  struct REGISTRO{
       char almacen[10];
       char codpro[10];
       char descri[20];
       int exis;
       long precio;
  }reg;
    /* 2)  Declaracion del fichero */
  FILE *pf;
   /* 3) Cabezera Titulo del proceso */
 
   clrscr();
   printf(" Creacion Fichero Secuencial \n");
   printf(" ---------------------------  \n");
   /* 4) Apertura del Fichero */
   if((pf=fopen("FALMACEN.DAT","wb"))==NULL){
       printf("No se puede abrir el archivo...\n");
       exit(0);
    }
   while(1)
    {
     /* 5) Tecleo de datos del registro para almacenarlas en var.de memo.princi-
     pal*/
     cprintf("\nIntroducir ALMACEN(fin=f): "); gets(reg.almacen);
     if(strcmp(reg.almacen,"f") ==0) break;
     printf("Introduce COD.PRO. :");gets(reg.codpro);
     printf("Introduce DESCRIPCION :");gets(reg.descri);
     printf("Introduce EXISTENCIAS :");scanf("%d",®.exis);
     printf("Introduce PRECIO_UNIT :");scanf("%ld",®.precio);
     fflush(stdin);
     /*6) Grabacion del registro en el fichero */
     fwrite(®,sizeof(reg),1,pf);
    }
    /* 7) Cierre del fichero*/
    fclose(pf);
   
}
 void Visualizacion(){
      int i;
      char Titulo[80];
      //1) Pedimos Titulo del proceso:
      clrscr();
      printf("Dame TITULO DE LA VISUALIZACION: "); gets(Titulo);
      /*2)Visualizamos el titulo */
      clrscr();
      printf("%s\n", Titulo);
      for(i=0; i<strlen(Titulo);i++) printf("=");printf("\n\n");
      /*3) Cabeceras de CAMPOS del registro:*/
      printf("%-15s %-15s %-20s %10s %10s\n", "ALMACEN","COD.PRO","DESCRIPC.",
      "EXISTENCIAS","PRECIO");
      for( i=0; i<80;i++) printf("-");
      /*4) Apertura del archivo:*/
      if((pf=fopen("FALMACEN.DAT","rb"))==NULL){
         printf(" No se puede abrir el archivo...\n);
         exit(0);
        }
     /*5) Lectura del primer registro:*/
     fread(®,sizeof(reg), 1, pf);
     while( !feof(pf) )
     {
        /* 6) Visualizacion del registro*/
        printf("%-15s %-15s %-20s %10s %10s\n",reg.almacen,reg.codpro,reg.descri,
        reg.exis,reg.precio);

        /*7) Lectura de lo siguientes registros*/
        fread(®,sizeof(reg), 1, pf);
      }
      /*8)Cierre del archivo*/
      fclose(pf);
      getch();
}        

 void Salir(){
}

Necesito hacer una serie de numeros y que me de diga cual es el mayor y cual es el menor por pantalla.

Hola tengo errores de sintasis y no se porque ,los errores que me dan esta en min=int_max, max=int_min y en resp=='s'.

Alguien puede echarme una mano en que estoy fachando , supongo que es en la declaracion.

//empieza el algoritmo
//visualizar series de numeros enteros, y de ellas el mayor y menor//

void main()
{
    int num,x=1,y=2,min=int_max,max=int_min;
    resp=='s';
    printf("%-68s,%6s,%6s \n" "series","mayor","menor");
   do{
      x=x+6;
      gotoxy(x,y),scanf("%d",&num); fflush(stdin);
      if(num<max) max=num;
       printf("%s\n",min);
      if (num>min) min=num;
       printf("%s\n",max);
   gotoxy (22,22);
      printf("\nEscribir otro numero(s/n)"); scanf("%c",&resp);   fflush(stdin);
   }while(resp=='s');
   gotoxy(70,y);printf("%d",max);
   gotoxy(75,y);printf("%d",min);

getch();
}

me piden hacer esto y como no tengo mucha idea me vuelco loco ,es algo sencillo pero yo no se que estoy haciendo mal:

Tengo que introducir 2 numeros y visualizar la diferencia , teniendo en cuenta que el minuendo debe ser el mayor.Utilizando un bucle respuesta , que nos pregunte despues de realizar la operacion; "otra pareja (s/n)" para teclear sucesivas parejas


void main()
{
   int num1,num2, rest=num1-num2;

   if num1>num2;{
     printf("%d\n,rest);
     scanf("Escrbir numero(s/n);
   else num1<num2;
   scanf("Escribir numero mayor que el primer numero";
   }
   getch();
}

Este es el codiogo que tengo escrito , alguna ayuda , muchas gracias

hola soy  novate en programacion c++ y estoy tambien estudiandolo, tengo un ejercicio que me piden :

introducir numero desde el teclado y decir si es positivo,negativo o cero ,....
yo he hecho un codigo , pero como  no tengo ni idea , me gustaria saber si alguien puede ponerlo a ver si se parece algo al mio....espero ir aprendiendo poco a poco , no me queda otra ....alguien que me ayude con este codigo.
saludos