daily pastebin goal
0%
SHARE
TWEET

Untitled

a guest Oct 30th, 2017 60 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. procedure Tenta2 is
  2.    
  3.   Procedure Rakna (Size: in Integer; Size1: in Float; Size2: in Float; Langd1: out Float; Langd2: out Float) is
  4.      
  5.    begin
  6.       if Size=0 then
  7.      Langd1:=Size1;
  8.      Langd2:=Size2;
  9.      
  10.       else
  11.      if  Size1 > Size2 then
  12.         Rakna(Size-1,Size1/2.0,Size2,Langd1,Langd2);
  13.        
  14.      elsif  Size2 > Size1 then
  15.         Rakna(Size-1,Size2/2.0,Size1,Langd1,Langd2);
  16.        
  17.     end if;  
  18.     end if;
  19.    
  20.     end Rakna;
  21.    Dump: Character;
  22.    Size: Integer;
  23.    Langd1,Langd2: Float;
  24. begin
  25.    Put("Vilket papper vill du veta storleken på? ");
  26.    Get(Dump);
  27.    Get(Size);
  28.    Rakna(Size,1189.0,841.0,Langd1,Langd2);
  29.    
  30.    Put("Dimensionerna på ett A");
  31.    Put(Size,Width=>0);
  32.    Put(" papper är: ");
  33.    Put(Langd1,Aft=>1,Exp=>0);
  34.    Put("x");
  35.    Put(Langd2,Aft=>1,Exp=>0);
  36.    Put("mm.");
  37.    end Tenta2;
RAW Paste Data
Top