![]() Height loop Result ( I + 1, 1 ) := '|' Result ( I + 1, 2 * Width + 2 ) := '|' Result ( Depth + I + 2, 2 * Width + Depth + 3 ) := '|' end loop - depth lines for I in 1. 2 * Width loop Result ( 1, I + 1 ) := '-' Result ( Height + 2, I + 1 ) := '-' Result ( Height + Depth + 3, Depth + I + 2 ) := '-' end loop - height lines for I in 1. ![]() 2 * Width + Depth + 3 ) := ( others => ( others => ' ' )) begin - points Result ( 1, 1 ) := '+' Result ( Height + 2, 1 ) := '+' Result ( 1, 2 * Width + 2 ) := '+' Result ( Height + 2, 2 * Width + 2 ) := '+' Result ( Height + Depth + 3, Depth + 2 ) := '+' Result ( Depth + 2, 2 * Width + Depth + 3 ) := '+' Result ( Height + Depth + 3, 2 * Width + Depth + 3 ) := '+' - width lines for I in 1. With Ada.Text_IO procedure Main is type Char_Matrix is array ( Positive range, Positive range ) of Character function Create_Cuboid ( Width, Height, Depth : Positive ) return Char_Matrix is Result : Char_Matrix ( 1.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |