چند مسئله ی زبان پاسکال-مهم

سلام به همه ی دوستان برنامه نویس , چند تا مسئله پاسکال که جواب هاش برام خیلی مهم هست میزارم اینجا اگه کسی بلده ممنون میشم دستوراتش رو بنویسه.
با تشکر
1-برنامه ای بنویسید که یک آرایه ی x عنصری را گرفته سپس عناصر این آرایه را مرتب کردهو در آرایه ی دیگری جای گذاری کند.

2-برنامه ای رابنویسید که سه عدد را بخواند و آنذا در یک زیر برنامه function تحویل دهدتا بزرگترین آنها را پیدا کرده و به برنامه ی اصلی تحویل دهد.

3-برنامه ای بنویسید تا ارتفاع و شعاع قاعده ی یک استوانه را بخواند و حجم را بیابد(با تابع function)

4-برنامه ای را بنویسید تا یک ماتریس 5در5 را بخواند ماتریس مذکور و ماتریس متشکل از مقلوب هر یک از درایه های اولیه ی ماتریس حاصلضرب این دو ماتریس را با تیتر های مناسب چاپ کند.

5-برنامه ای بنویسید تا طول سه ضلع مثلثی را از روی ورودی دریافت نموده و پیام های زیر را چاپ کند
مثلث معمولی است-متساویالساقین است-متساوی الاضلاع است-قائم الزاویه است

6-برنامه ای بنویسید تا عدد حقیقی را از ورودی دریافت نموده مطابق شرایط زیر مقادیر متغیر حقیقی را محاسبه نمایl (3+x)*2+4 if x>0
(x+3)-4 if x=0
4+x)*2+5) if x<0


7-برنامه ای بنویسید که xعدد از سری فیبوناچی زیر را چاپ کند.
1,1,2,3,5,8,13,21...

8-برنامه ای بنویسیدکه کلیه اعداد سه رقمی که از دو طرف یکسان خوانده می شود را تعیین و چاپ کند.
مثال 747-313-222-121

9-برنامه ای بنویسیدتا عناصر آرایه ی a10را به فاصله ی 1 خانه حافظه به صورت چرخشی به سمت راست انتقال دهد به این معنی که به ازای i بین 2و.10
A][i-1] را در [A[i]
A10 را در A1 جایگذاری کند.

ممنون میشم هر کدوم از این ها رو که تونستید حلش رو بنویسید

دوستان مسئله ی 5 حل شد الباقی رو اگه تونستید ممنون میشم
یه پاسکال بلد اینجا نیست؟

خدا را شاکریم که برنامه نویس پاسکالی اینجا نیست!!
کجایید رفقا؟

سلام من میتونم کمکتون کنم اما وقت لازم دارم البته نه همشو ولی بیشترشون آسونن سعی میکنم کمکتون کنم
برای کی میخواین؟

بیا! من همین جا شماره 2 رو جواب بدم:

کد:

---

var
        i,j,k:real;
function findMax(p1: real; p2:real; p3:real):real;
var
        max:real;
begin
        max:=p1;
        if max<p2 then
                max:=p2;
        if max<p3 then
                max:=p3;
        findMax:=max;
end;
begin
        write('Enter First Number :');
        read(i);
        write('Enter Second Number :');
        read(j);
        write('Enter 3th Number :');
        read(k);
        write('Max is:', findMax(i,j,k));
        readln;
end.

---

البته من تست نکردم ولی فکر کنم جواب می ده.
فقط یه سوال: ما باید این پروژه رو انجام بدیم؟!

شماره 3:

کد:

---

var
        h,r:real;
function V(r: real; h:real):real;
begin
        v:=sqr(r)*h*3.14
end;
begin
        write('Enter H :');
        read(h);
        write('Enter R :');
        read(j);
        write('V is:', V(r,h));
        readln;
end.

---

جواب 7:

کد:

---

var
        x,f1,f2,f3,i:integer;
begin
        write('Enter X :');
        read(x);
        f1:=1;
        f2:=1;
        if x>=1 then
                write(f1);
        if x>=2 then
                write(' ',f2);
        for i:=3 to x do
        begin
                f3:=f1+f2;
                write(' ',f3);
                f1:=f2;
                f2:=f3;
        end;
        readln;
end.

---

فکر کنم 8 رو بشه اینطور حل کرد:

کد:

---

var
        i,j:integer;
begin
        for i:=1 to 9 do
                for j:=0 to 9 do
                        writeln(i:1,j:1,i:1);
        readln;
end.

---

البته می شه این طور هم حلش کرد:

کد:

---

var
        i,j:integer;
begin
        for i:=1 to 9 do
                for j:=0 to 9 do
                        writeln(i+j*10+i*100);
        readln;
end.

---

فکر کنم 6 رو هم بشه این طور حل کرد:

کد:

---

var
        x:real;
begin
        if x>0 then
        begin
                write((3+x)*2+4);
        end else if x=0 then
        begin
                write((x+3)-4);
        end else
        begin
                write((4+x)*2+5);
        end;
        readln;
end.

---

راستش برای سوال های 1 و 4 باید کامپایلر پاسکال رو سیستمم نصب کنم که حالش نیست (لینوکسه دیگه!) و اگه در مورد سوال 9 بیشتر توضیح بدیُ مثلا این که این چرخش یه حلقست یا فقط یک بار اتفاق میفته٬ اونوقت من برات حل می کنم.
در ضمن این جواب ها رو من بدون کامپایلر نوشتم٬ می دونی که٬ بدون کامپایلر و کلا محیط برنامه نویسی٬ برنامه نویسی خیلی سخته. ممکنه اشتباه هم داشته باشم٬ خودت تست کن.
موفق باشی.