مشاهده نسخه کامل
: mhnmohsen
20-04-2009, 18:41
سلام خدمت مدیریت سایت خوب 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++
باشد.
مهندسین عزیز در خواست دارم اونهایی که با زبان 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++
باشد.