درخواست رفع گیر در 4 برنامه نوشته شده

سلام خدمت مدیریت سایت خوب p30world و کاربرای عزیز از
مهندسین عزیز در خواست دارم اونهایی که با زبان Turbo c++ آشنایی دارند به بنده حقیر در رفع این خطاها در 4 برنامه زیر کمک نمایند با تشکر.

بنده می خواهم از این برنامه زیر خروجی بگیرم که متاسفانه با ارور مواجه می شوم و نتوانستم خطاهای خود را برطرف کنم لطفان اگر امکان دارد برنامه صحیح شده آن را به بنده با خروجی بدهید .
با تشکر از شما عزیزانMHNMOHSEN
====================
برنامه اول

1 : برنامه ای بنویسید که یک عدد صحیح را از ورودی بخواند و زوج و فرد بودن آن را مشخص کند؟

این برنامه ای که خودم نوشتم و خطا داره

zoj fard *********
=====================
var
n,r integir
begin
redln(n)
r:= n-2*(n div2);
if(r=0)then
write(the number n zoj);
else
write(the number n fard);
end
=================================
برنامه دوم

2: برنامه ای بنویسید که پنج عدد اعشاری از ورودی بخواند و مینیمم و ماکزیمم آن عدد را چاپ کند ؟

برنامه ای که خودم نوشتم و ایراد داره
max , min *******
========================
var
a,b float
begin
redln(a)
redln(b)
if (a>b) then
writ ('a max and b min ')
else('b max and a min ')
end
=========================
برنامه سوم

3:برنامه ای بنویسید که سه عدد ورودی از نوع صحیح را خوانده و مقادیر آن را به صورت عکس در خروجی چاپ کند؟

برنامه ای که خودم نوشتم و ایراد داره
varoon********
===================

[code]int num , digit=0;
printf("\n enter a number");
scanf(%d, & num);
printf(\n inverse=");
do{
digit= num%10
printf(%o , digit);
num/=10;
}while(num!=0);
}end of while(1);

enter a number 1 2 3 4 5
inverse 5 4 3 2 1

===========================================
برنامه چهارم

4:برنامه ای بنویسید که ضرایب یک معادله درجه2 را از کاربر دریافت کرده و ریشه های آن را محاسبه کند ؟

برنامه ای که خودم نوشتم و ایراد داره
rishe********
=====================
a,b,c,d: integir
begin
redln(a)
whil(a=0)do
redln(a)
redln(b)
redln(d)
d:= (b*b)-(4*a*c);
if (d>0)then
begin
writln((-b+sqr(d))div 2*a)
writln((-b-sqr(d))div 2*a)
end
if(d=0)then
begin
writ (on root=-bdiv(2*a))
end
else
writ(no root)
end
=================================
با تشکر از شما دوستان متذکر می شوم برنامه ها باید خروحیش در Turbo c++
باشد.

سلام از مهندسین گرام کسی نبود کمک کنه ؟

با سلام
اين برنامه ها با چه زباني نوشته شده اند؟

اگه منظورت واقعا" c است اين برنامه اولت:

کد:

---

#include<iostream>

using namespace std;
int main(void)
{
 
    int a;
    cout<<endl;
    cout<<"Enter your number:";
    cin>>a;
    cout<<endl;
    if(a%2==0)
        cout<<"This number is a even number.";
    else
        cout<<"This number is a odd number.";
    return 0;
}

---

موفق باشي

سلام
اولا اینکه اینجا انجمن c هستش و این سوال شما پاسکال هست
دوما برنامه ی اول چرا راه به این طویلی؟؟؟!!!خط 4 می تونس این طور باشه:
r:=n mod 2;
و بعد اگه 0 شد زوج و اگه نشد فرد.
برنامه ی دوم:
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 4 do
for j:=2 to 5 do
begin
if a[i]>a[j];
max:=a[i]
else max:=a[j]
end;
همین کار رو برای minهم با عوض کردن علامت ها انجام بده.من کامپایلرشو ندارم. ولی امتحان کن اگه جواب نداد بگو.
برنامه ی سوم ظاهر c هست ولی ازش چیزی متوجه نشدم!این سوال زیاد تو انجمن پرسیده شده.کافیه هر بار توی یه حلقه تا وقتی عددت 0 نشده هر بار عدد رو تقسیم بر 10 کنی و داخل خود عدد بریزی و باقیماندش رو بر 10 چاپ کنی.
برنامه ی چهارمت اینم که پاسکاله while رو واسه چی نوشتی؟بقیش ظاهرن اشکالی نداره.
البته من تو این برنامه هات ندیدم واسه خروجی علامت ' رو قبل وبعد جمله ی داخل پرانتز توی write بنویسی.