SHARE
TWEET

Untitled

a guest Sep 20th, 2019 128 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. with Ada.Text_IO;                 use Ada.Text_IO;
  2. with Ada.Float_Text_IO;         use Ada.Float_Text_IO;
  3. with Ada.Integer_Text_IO;       use Ada.Integer_Text_IO;
  4. with Ada.Numerics.Float_Random;
  5.  
  6. procedure pyramid is
  7.  
  8.   Input : Integer;
  9.  
  10. begin
  11.  
  12.   put("Ange pyramidens storlek: ");
  13.   get(Input);
  14.  
  15.  
  16.   for I in 1..Input loop
  17.     put(" ");
  18.   end loop;
  19.   Put_Line("  -_ | _-");
  20.   if (input > 1) then
  21.     for I in 2..Input loop
  22.       put(" ");
  23.     end loop;
  24.   end if;
  25.   Put_Line("_ _ //.\\ _ _");
  26.   for I in 1..Input loop
  27.     put(" ");
  28.   end loop;
  29.   Put_Line("  _\\”//_");
  30.   for I in 1..Input loop
  31.     put(" ");
  32.   end loop;
  33.   Put_Line("     | ");
  34.   for I in 1..Input loop
  35.     put(" ");
  36.   end loop;
  37.   Put_Line(" _________");
  38.  
  39.   for I in 1..Input  loop
  40.     for I in 1..Input loop
  41.       put(" ");
  42.     end loop;
  43.     put("/");
  44.     put("AAAAAAAAA");
  45.     put("\"); New_Line;
  46.  end loop;
  47.  
  48.  
  49. end pyramid;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top