Foros-FIUBA Foros HostingPortal
 FAQ  •  Buscar  •  Wiki  •  Apuntes  •  Planet  •  Mapa  •  Eyeon  •  Chat
Preferencias  •  Grupos de Usuarios
Registrarse  •  Perfil  •  Entrá para ver tus mensajes privados  •  Login
Ver tema siguiente
Ver tema anterior

Responder al tema Ver tema anteriorEnviar por mail a un amigo.Mostrar una Lista de los Usuarios que vieron este TemaGuardar este Tema como un archivoPrintable versionEntrá para ver tus mensajes privadosVer tema siguiente
Autor Mensaje
nico111
Nivel 3



Registrado: 23 Ago 2011
Mensajes: 23

Carrera: Industrial
ireland.gif
MensajePublicado: Jue Jun 21, 2012 8:46 pm  Asunto:  problema con el pascla Responder citandoFin de la PáginaVolver arriba

hola, para practicar para el segundo parcial estube boludeando un rato con el pascal creando matrices y funciones...

Código:

program ejercicio;

uses crt;

type
matriz=array[1..2,1..3,1..3]of integer;

var
mat:matriz;
a,b,c,d:integer;

begin

clrscr;

for a:=1 to 2 do
begin
        for b:=1 to 3 do
        begin
                for c:=1 to 3 do
                begin
                mat[a,b,c]:=0
                end;
        end;
end;                     (* pongo toda la matriz en 0 *)

clrscr;

for a:=1 to 2 do
begin
     writeln();
     writeln('sucursal: ',a);
     for b:=1 to 3 do
     begin
        writeln();
        writeln('vendedor: ',b);
        for c:=1 to 3 do
        begin
                writeln('articulos ',c,' vendidos: ',mat[a,b,c])
        end
     end
end;               (* pido q me escriba la matriz *)

readln();
end.


es un simple programa q pone una matriz (1..2,1..3,1..3) todo en 0

despues le pido que me la escriba y me la escribe todo mal
ba todo mal no.
me escribe lo ultimo bien (lo que veo sin subir), subo para ver el resto y aparece todo desordenado y mal.


   OfflineGalería Personal de nico111Ver perfil de usuarioEnviar mensaje privado
nico111
Nivel 3



Registrado: 23 Ago 2011
Mensajes: 23

Carrera: Industrial
ireland.gif
MensajePublicado: Jue Jun 21, 2012 8:48 pm  Asunto:  (Sin Asunto) Responder citandoFin de la PáginaVolver arriba

lo mire 20 veces y no tiene nada mal, puede ser el pascal q se esta volviendo loco? capas mi antivirus lo jode un poco.


   OfflineGalería Personal de nico111Ver perfil de usuarioEnviar mensaje privado
Fabricio
Nivel 8


Edad: 34
Registrado: 20 Nov 2008
Mensajes: 851
Ubicación: Villa del Parque, barrio turro
Carrera: Civil
CARRERA.civil.3.jpg
MensajePublicado: Jue Jun 21, 2012 8:54 pm  Asunto:  (Sin Asunto) Responder citandoFin de la PáginaVolver arriba

no entendi bien la duda, como queres que te muestre todo??

cuando lo compilo me lo muestra asi:

Image

_________________
[tex]100 \% \ \  {ingeniero}[/tex]

Aries Género:Masculino Dragón OfflineGalería Personal de FabricioVer perfil de usuarioEnviar mensaje privado
Mostrar mensajes de anteriores:      
Responder al tema Ver tema anteriorEnviar por mail a un amigo.Mostrar una Lista de los Usuarios que vieron este TemaGuardar este Tema como un archivoPrintable versionEntrá para ver tus mensajes privadosVer tema siguiente

Ver tema siguiente
Ver tema anterior
Podés publicar nuevos temas en este foro
No podés responder a temas en este foro
No podés editar tus mensajes en este foro
No podés borrar tus mensajes en este foro
No podés votar en encuestas en este foro
No Podéspostear archivos en este foro
No Podés bajar archivos de este foro


Todas las horas son ART, ARST (GMT - 3, GMT - 2 Horas)
Protected by CBACK CrackerTracker
365 Attacks blocked.

Powered by phpBB2 Plus, phpBB Styles and Kostenloses Forum based on phpBB © 2001/6 phpBB Group :: FI Theme :: Mods y Créditos

Foros-FIUBA está hosteado en Neolo.com Cloud Hosting

[ Tiempo: 0.3079s ][ Pedidos: 20 (0.2461s) ]