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
What is the return type of sizeof?
What is a nested formula?
What does #pragma once mean?
What is difference between stdio h and conio h?
What is the data segment that is followed by c?
Explain what are binary trees?
What is the purpose of scanf() and printf() functions?
Explain what is the benefit of using enum to declare a constant?
write a c program to find the largest and 2nd largest numbers from the given n numbers without using arrays
What is clrscr in c?
Why c is called top down?
a program that performs some preliminary processing in C, it acts upon certain directives that will affect how the compiler does its work a) compiler b) loader c) directive d) preprocessor
Why isn't it being handled properly?
Why c is called object oriented language?
What is #line?