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;

What are different types of variables in c?

1126

---

What is difference between class and structure?

1157

---

What is the function of multilevel pointer in c?

1137

---

How does pointer work in c?

1194

---

What is volatile variable in c with example?

1089

---

What is the benefit of using an enum rather than a #define constant?

1320

---

What is define c?

1156

---

the number of measuring units from a arbitrary starting point in a record area or control block to some other point a) branching b) recording pointer c) none d) offset

1158

---

How does placing some code lines between the comment symbol help in debugging the code?

1061

---

What is the use of the function in c?

1070

---

What are two dimensional arrays alternatively called as?

1244

---

Does c have enums?

1174

---

difference between Low, Middle, High Level languages in c ?

2139

---

What is string constants?

1202

---

how to capitalise first letter of each word in a given string?

1983

---