Preguntas esperando respuesta
Actividad pública reciente
Ha valorado "Buena" la respuesta
Pascal-. Intercalación archivo
Te propongo la siguiente solución: uses crt; type tregistro=record nombre:string; end; tfichero=file of tregistro; var fmezcla, fmujeres,fhombres:tfichero; registro:tregistro; begin assign(fmujeres,'mujeres.dat'); assign(fhombres,'hombes.dat');...
Ha valorado "Buena" la respuesta
Archivo en pascal
Supongo que lo que has declarado es un fichero de enteros. Se me ocurre que podrías hacer algo parecido a lo siguiente: assign(f,'num.dat'); Reset(F) Read(f, r) 'leemos un número del fichero y lo almacenamos en la variable r que será de tipo entero....
Ha valorado "Buena" la respuesta
Biblioteca pascal- archivo
El siguiente código genera UN número de 4 cifras y lo guarda en el archivo. Si lo que quieres es generar más de un número en el mismo proceso, tendrás que crear un bucle., pero eso lo dejo para ti Uses CRT; Var I: Integer; F : File of Integer; Begin...
Ha preguntado en el tema en
Pascal
Archivo- biblioteca pascal
Crear un archivo 'num.dat' el cual contendrá números enteros de 4 dígitos que se generaran usando la biblioteca de pascal. COMO SE REALIZARÍA ESTO? Se que se utiliza "random" pero no me sale.
Sin respuestas
Ha valorado "Buena" la respuesta
Duda sobre pascal. Ejercicio
Uses CRT; const personas = 2; series = 3; Type tipotabla = Array[1..personas,1..series] OF INTEGER; Var tabla : tipotabla; I,J,QUE : Integer; PUNTOSTOTALES : Array [1..personas] of integer;Begin clrscr; For i :=1 to personas do begin GotoXY(30,1);...
Ha preguntado en el tema en
Pascal
y en 1 temas más
Arreglo bidimensional pascal. Ayuda
Para cada uno de los alumnos de primer año de la facultad se tienen los siguientes datos: nro de comisión(1..10) y edad(entero). Estos datos ingresan desordenados y no se conoce la cantidad de alumnos, por lo que luego de introducidos los datos de...
Sin respuestas
Ha valorado "Buena" la respuesta
Arreglo unidimensional! Pascal
Te propongo la siguiente solución: uSES crt; Type TipoVentas= Array [1..10] of Real; var I : Integer; V : Integer; IMPORTE:Real; Ventas : TipoVentas; Begin Repeat {Introducimos ventas hasta que el número de vendedor sea cero} Clrscr; GotoXY(10,10);...
Ha preguntado en el tema en
Ciencias e Ingeniería
Como realizar este arreglo unidimensional
Una compañía de remises posee un listado con los valores de los viajes que realizan en el dia cada una de sus 30 unidades. Por cada viaje realizado se agrega una planilla con los siguientes datos: nro de unidad(1 a 30) costo de viaje no se sabe la...
Sin respuestas