Autor
		 | 
		
			Tema: ejercicio Pascal, ayuda para terminarlo  (Leído 10,897 veces)
		 | 
	 
 
	
		
			
				
					
						
							Khronos14
							
								 
								
								  Desconectado
								Mensajes: 443
								
								 
								A lie is a lie
								
								
								
								
								
								  
								 
							 
						 | 
						
							
							 
							
No puedes utilizar Notepad++ para programar en Pascal, tienes que utilizar un compilador. Lazarus es un entorno de desarrollo para Object Pascal (Pascal) y usa como compilador FreePascal.
  La otra opción es Delphi, pero es de pago. 
  
						 | 
					 
					
						
							
								| 
								 | 
							 
								| 
								 | 
								
									 
									En línea
								 | 
							  
							 
							
						 | 
					 
				 
			 |  
		 
	 |  
	
		
		
			
				
					
						
							leogtz
							
								. . .. ... ..... ........ ............. ..................... 
								Colaborador
								    
								  Desconectado
								Mensajes: 3.069
								
								 
								/^$/
								
								
								
								
								
								  
								 
							 
						 | 
						
							
							 
							
no te enfades que me esta costando un mundo el curso de trabajo y lo hago a ratos . Es que no utilizo el FreePascal , utilizo el Notepad ++ como editor del curso por eso el código que me has mandado no lo compila.
  ¡¡¡Porque Notepad++ no es un compilador!!! Haz el esfuerzo, consigue un compilador de pascal y prueba el código, quieres todo a la mano.  
  
						 | 
					 
					
						
							
								| 
								 | 
							 
								| 
								 | 
								
									 
									En línea
								 | 
							  
							 
							
						 | 
					 
				 
			 |  
		 
	 |  
	
		
		
			
				
					
						
							manu3742
							
								
								  Desconectado
								Mensajes: 20
								
								
								
								
								
								  
							 
						 | 
						
							
							 
							
Leo, no quiero todo a la mano, la cuestion es que si uno no ha visto utilizar un determinado codigo pues no lo ves en la vida aunque te estudies el tema 1000 veces.
  Por que no sumaba los caracteres? yo ponía esta línea
  num_caracteres:=num_caracteres+1;
  pero correctamente expresada es: NINGUNO DE LOS QUE ME HABEIS CONTESTADO A HABEIS ACERTADO. YO OS ESTOY MUY AGRADECIDO QUE CONSTE. PERO ESTA LÍNEA NADIE, NI EN UNA DECADA DOY CON ELLA, GRACIAS A GRAN COMPAÑERO QUE ME LA HA DADO. GRACIAS num_caracteres:=num_caracteres+ord(linea[0]);
  EL CÓDIGO EXACTO DE TODO EL PROGRAMA ES:
  Program contar; (*CONSTANTES DEL PROGRAMA, EL TAMAÑO MÁXIMO DE LA LÍNEA Y DEL NOMBRE DEL FICHERO*) const     TAMMAX=40;
  var 
  linea: string ; fichero: text; url_archivo: string; num_lineas: integer; num_caracteres: integer;
 
 
  begin url_archivo:='C:\contar.txt';  assign(fichero, url_archivo);  reset(fichero);  (*SE INICIALIZAN LOS CONTADORES*) num_caracteres:=0;  num_lineas:=0;
 
 
  begin  (*SE LEE LINEA A LINEA EL FICHERO, PARA CADA UNA SE ACTUALIZA CONTADOR DE LÍNEAS SUMANDO 1 Y CONTADOR DE CARACTERES    SUMANDO EL TAMAÑO DE LA LÍNEA*)        while not eof(fichero) do        begin          readln(fichero, linea);          num_lineas:=num_lineas+1;          num_caracteres:=num_caracteres+ord(linea[0]);          end;           close (fichero);
  end;       writeln('Nombre del fichero'); readln(url_archivo);
 
  writeln('El numero de lineas es ',num_lineas); Writeln('El numero de caracteres es ',num_caracteres);
  END. 
						 | 
					 
					
						
							
								| 
								 | 
							 
								| 
								 | 
								
									 
									En línea
								 | 
							  
							 
							
						 | 
					 
				 
			 |  
		 
	 |  
	
		
		
			
				
					
						
							manu3742
							
								
								  Desconectado
								Mensajes: 20
								
								
								
								
								
								  
							 
						 | 
						
							
							 
							
Una línea me ha sobrado para acabar correctamente el programa.
  gracias a todos los que habeis contestado, espero seguir contando con vosotros.
  saludos 
						 | 
					 
					
						
							
								| 
								 | 
							 
								| 
								 | 
								
									 
									En línea
								 | 
							  
							 
							
						 | 
					 
				 
			 |  
		 
	 |  
	
		
		
			
				
					
						
							Edu
							
								       
								
								  Desconectado
								Mensajes: 1.082
								
								 
								Ex XXX-ZERO-XXX
								
								
								
								
								
								  
							 
						 | 
						
							
							 
							
Pone los codigos dentro de las etiquetas 
						 | 
					 
					
						
							
								| 
								 | 
							 
								| 
								 | 
								
									 
									En línea
								 | 
							  
							 
							
						 | 
					 
				 
			 |  
		 
	 |  
	| 
		
		
	 |  
	
		
		
			
				
					
						| 
							d(-_-)b
							
						 | 
						
							
							 
							
La otra opción es Delphi, pero es de pago. En todo caso se puede usar Turbo Delphi, de la version 2006, es gratuito aunque tiene sus limitaciones, es bastante completo para desarrollar lo que se ocurra sin usar componentes de tercesor, ademas para aprender y todo lo demas, viene bastante bien. IcoFX se escribio en el. Es un alternatiba para usar un Delphi gratuito bien completito    http://www.turbomirror.com/saludos...  
						 | 
					 
					
						
							
								| 
								 | 
							 
								| 
									« Última modificación:  6 Abril 2011, 20:45 pm por Asterisc* »
								 | 
								
									 
									En línea
								 | 
							  
							 
							Max 400; caracteres restantes: 366 
						 | 
					 
				 
			 |  
		 
	 |  
	 |  
 
	 
	
 
			 
			
				
					
						| Mensajes similares | 
					 
					
						 | 
						Asunto | 
						Iniciado por | 
						Respuestas | 
						Vistas | 
						Último mensaje | 
					 
					
						
							 
						 | 
						
							 
						 | 
						
							Ayuda ejercicio de Pascal, cuando uno no lo ve claro pide ayuda
							 
							Programación General
						 | 
						
							manu3742
						 | 
						
							1
						 | 
						
							4,283
						 | 
						
							 
							
								31 Marzo 2011, 15:43 pm 
								por d(-_-)b
							
						 | 
					 
					
						
							 
						 | 
						
							 
						 | 
						
							Necesito ayuda con un ejercicio de turbo pascal
							 
							Programación General
						 | 
						
							Madsmarco
						 | 
						
							1
						 | 
						
							3,351
						 | 
						
							 
							
								10 Abril 2011, 22:17 pm 
								por skapunky
							
						 | 
					 
					
						
							 
						 | 
						
							 
						 | 
						
							ayuda, Ejercicio para examen!
							 
							Programación C/C++
						 | 
						
							edu__87
						 | 
						
							1
						 | 
						
							2,557
						 | 
						
							 
							
								15 Febrero 2013, 19:43 pm 
								por durasno
							
						 | 
					 
					
						
							 
						 | 
						
							 
						 | 
						
							Ayuda ejercicio en Pascal
							 
							Programación General
						 | 
						
							mardek
						 | 
						
							1
						 | 
						
							2,412
						 | 
						
							 
							
								 1 Mayo 2013, 22:03 pm 
								por Ferno
							
						 | 
					 
					
						
							 
						 | 
						
							 
						 | 
						
							Ayuda con ejercicio! Free Pascal
							 
							Ejercicios
						 | 
						
							DiegoCorrea
						 | 
						
							0
						 | 
						
							4,335
						 | 
						
							 
							
								 4 Septiembre 2015, 18:40 pm 
								por DiegoCorrea
							
						 | 
					 
				 
			    |