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 c identifiers?

1051

---

Explain which function in c can be used to append a string to another string?

1049

---

What are register variables in c?

985

---

I have written a pro*C program to fetch data from the cursor. where in i have used the concept of BULK FETCH.... each FETCH statement is taking lots of time to fetch specified number of rows at...

10156

---

What is an expression?

1011

---

How can I pad a string to a known length?

984

---

can anyone suggest some site name..where i can get some good data structure puzzles???

2034

---

Who is the founder of c language?

1123

---

Can we change the value of static variable in c?

978

---

Does free set pointer to null?

960

---

What is dynamic variable in c?

994

---

What is c programing language?

1051

---

Write programs for String Reversal & Palindrome check

1019

---

What is an operator?

1027

---

What are keywords c?

989

---