Answer Posted / sevak.yatrik777
with Ada.Integer_Text_Io; use Ada.Integer_Text_Io;
with Ada.Text_Io; use Ada.Text_Io;
procedure Pascals_Triangle is
type Row is array(Positive range <>) of Integer;
type Row_Access is access Row;
type Triangle is array(Positive range <>) of Row_Access;
function General_Triangle(Depth : Positive) return
Triangle is
Result : Triangle(1..Depth);
begin
for I in Result'range loop
Result(I) := new Row(1..I);
for J in 1..I loop
if J = Result(I)'First or else J =
Result(I)'Last then
Result(I)(J) := 1;
else
Result(I)(J) := Result(I - 1)(J - 1) +
Result(I - 1)(J);
end if;
end loop;
end loop;
return Result;
end General_Triangle;
procedure Print(Item : Triangle) is
begin
for I in Item'range loop
for J in 1..I loop
Put(Item => Item(I)(J), Width => 3);
end loop;
New_Line;
end loop;
end Print;
begin
Print(General_Triangle(7));
end Pascals_Triangle;
| Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
Define macros.
What do you mean by command line argument?
What is array in c with example?
In C language what is a 'dangling pointer'?
Linked lists -- can you tell me how to check whether a linked list is circular?
What is pointer to pointer in c?
What is storage class?
how to print the character with maximum occurence and print that number of occurence too in a string given ?
What is structure data type in c?
Differentiate between Macro and ordinary definition.
simple program of graphics and their output display
Draw a flowchart to produce a printed list of all the students over the age of 20 in a class .The input records contains the name and age of students. Assume a sentinel value of 99 for the age field of the trailer record
Is it fine to write void main () or main () in c?
Do you know the purpose of 'register' keyword?
How macro execution is faster than function ?
