fork download
copy 
  1. program test;
  2.  
  3. var a, b : Double; o : Boolean; t : Cardinal;
  4.  
  5. begin
  6.   a := 1.0000001;
  7.   b := a;
  8.   o := False;
  9.   WriteLn(a, '   ', b);
  10.  
  11.   for t := 1 to 1000000000 do begin
  12.     if o
  13.       then a := a * b
  14.       else a := a / b;
  15.     o := not o;
  16.   end;
  17.  
  18.   WriteLn(a);
  19. end.
Success #stdin #stdout 11.67s 232KB
comments (?)
stdin
copy 


			

					
			
			

				
	
		
		
	
		
		 stdout
					

				
				 copy
			

			
	

		
 1.00000010000000E+000    1.00000010000000E+000
 1.00000010000000E+000


	

		
	 
	
	
			

					
			
			
			
			
			
			
			
			

			
			
			
		

	
		
		

			

			                        







			
			

				

	
					
					 https://ideone.com/vCEFda
					
					
					
					
					

												

												
						
						

					

					
					
					

						
language:

						
Pascal (fpc 3.0.4)

					

					

						
created:
								
						
12 years ago

					

					

						
visibility:

						

							 public																												
							
							

								
							

						

					

										
										

					
					 Share or Embed source code
					
					
					
					

						
						
						
						
						
						
						
					

					
						
	
	
	
	
					
					
					
					
					 
					
					
					
					 
					
					
					
					
					
					

					

					

					
						
					

					


	
Discover > Sphere Engine API

	
The brand new service which powers Ideone!

	
	
Discover > IDE Widget

    
Widget for compiling and running the source code in a web browser!