نمایش کسر در پاسکال

[rahvar]

سلام دوستان

دوستان این برنامه درسته یا نه ؟؟؟؟؟؟

برنامه ای بنویسید که کسر زیر را در خروجی چاپ کند؟؟؟

این اعداد کسری هستن اشتباه نشه

1/2 و 2/3 و 3/4 و 4/5 و5/6


program kasr(input,output);
var i:integer;
j:real;

begin
for i=1 to 5 do
begin
j =i/i+1;
write(j);
end;
end.

[rahvar]

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

[Hamid.Kad]

خیر، درست نیست. این برنامه همیشه مقدار 2 را در خروجی چاپ میکنه. چون اولویت عملگر تقسیم از جمع بیشتر حاصل عبارت i/i+1 همیشه 2 میشه. باید بنویسید
i/(i+1)
اگر میخواهید مقادیر عددی چاپ بشن (مثلاً 0.5) مشکل دیگه ای نداره. اگر میخواهید دقیقاً 1/2 , .... چاپ بشن باید تبدیل به رشته بشه

[دلفــي]

سلام دوستان

دوستان این برنامه درسته یا نه ؟؟؟؟؟؟

برنامه ای بنویسید که کسر زیر را در خروجی چاپ کند؟؟؟

این اعداد کسری هستن اشتباه نشه

1/2 و 2/3 و 3/4 و 4/5 و5/6






program kasr;
var i:integer;
j:real;
begin
for i=1 to 5 do
begin
j =(i+1)/i;
writeln(j);
end;
end.

[pezhvakco]

خوبه و لی شما حاصل 5/4 رو میدی نه 4/5 .
میشه برای نمایش قسنگتر در writeln ، خود کسر رو هم چاپ کنه .

[دلفــي]

خوبه و لی شما حاصل 5/4 رو میدی نه 4/5 .


با توجه به فرمول نوشته شده :
j := (i+1)/i
وقتي كه i = 4 باشه داريم :

j := (4+1)/4 ===> j := 5/4

[Hamid.Kad]

چقدر قضیه کِش دار شد !!!

برنامه بازی 3به3 قطار در پاسکال
خوب ؟

[rahvar]

ممنون دوستان
این برنامه رو استاد ما نوشته

کسرها یک دوم- دو سوم - سه چهارم - چهار پنجم - پنج ششم هستن

دوستان بهترین راه برایاد گرفتن فلوچارت چیه خیلی کم بلدم چی کار کنم

این استاد در برنامه نویسی هر چی درس میده هیشکی تو کلاس یاد نمیگیره
مثلا : یه مثال میگه بعد چند دقیقه فکر میکنه بعد میگه این اشتباهه
همین برنامه ی کسری که نوشته قبلش گفت این دوتا شرط داره بعد گفت نه یک شرط داره

[rahvar]

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


1/2 و1 و3/2 و2و5/2 یک دوم و یک و سه دوم و دو وپنج دوم
---------------------
11/10 و 12/11 و13/12 و14/13 و 15/14 یازده دهم و .....
-----------------------------------
10/5و11/10و12/13و13/20و14/25و15/30 ده پنجم و .....

[rahvar]

دوستان ممنون میشم اگه این چنتا برنامه رو برام بنویسید

[rahvar]

دوستان کمکی نمیکنید خیلی مهمه

[rahvar]

فردا صبح کلاس دارم کمک کنید

[alinikaein]

سلام دوست عزيز؛

فكر كنم منظور شما اين بود؟

var
Counter: Byte;
begin
for couter := 1 to 5 do
writeln(Counter , '/', Counter+1);
end.

يا علي... موفق باشيد...

[Hamid.Kad]

اگه ده بار دیگه هم پست بدید زیاد جواب نمی گیرید. اینجا مکان درخواست یا انجام پروژه نیست. شما یه سوال کردید و جوابش رو هم گرفتید. اگر دقت میکردید با یک تغییر ساده میتونستید به جواب سوالهای دیگه هم برسید. لطفاً قبل از ارسال پستهای متوالی کمی فکر کنید و
اگر حل نشد بعد پست بزنید. جالب اینه که 2 تا از 3 تا سوالی که پرسیدید دقیقاً جواب داده شده و سومی هم مطمئناً با یه کم نگاه کردن (!) قابل حل بود.