Printable View
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام یه پروژه دارم که تا 4 شنبه باید تحویل بدم نمی دونم این سوالو کجا بپرسم اگه امکانش هست همین جا جوابمو بدید.
من می خوام تو برنامه توربو پاسکال برنامه ای بنویسم که نمره 10 تا دانشجو رو بگیره و سومین نمره کلاس رو چاپ کنه یعنی نمره سوم تو محدوده خاصی نباشه هر نمره ای بود فقط اگه سومین بود چاپ بشه.
تا یه حدی با آراریه آشنائی دارم فقط نمیدونم چطور برای برنامه معلوم کنم سومین نمره کدومه.
خیلی سادست دوست عزیز
یک آرایه 10 عنصری تعریف کنید و بعد مقادیر دریافتی رو به ترتیب در خانه های آرایه قرار بدین
مرحله بعد هم Sort کردن آرایه هست و در نهایت چاپ ایندکس سوم آرایه در خروجی
برای آشنایی با آرایه ها و Sort کردنشون در پاسکال [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] رو مطالعه کنید
اگر مشکلی بود بفرمایید
موفق باشید.
داداش دستت واقعا درد نکنه خودم دارم روش کار میکنم که ببینم چیکار میکنم با آموزشیی که گذاشتید فقط میشد توی سورس برنامه 10 تا نمره رو وارد کرد و sort کرد و نمیدونم چطور باید سومین نمره رو بهش خرفهم کنم من میخوام بعد اجرای برنامه 10 تا نمره رو بدم بعد sort بعد سومین نفر رو برام مشخص و چاپ کنه. اگه زحمت بکشید سورسش رو برام بذارید که مطمئن بشم دارم درست کار میکنم ممنون میشم چون این 4 شنبه باید پروژمو تحویل بدم زیاد وقت ندارم.
وقتی شما اعداد رو گرفتین و Sort هم کردین اصل کار رو انجام دادین
برای چاپ سومین نمره هم بعد از Sort شدن آرایه میتونید ایندکس سومش رو چاپ کنید :
فرضا اگر اسم آرایتون a باشه
کد:Writeln a[3]
آخه من که گفتم تونستم sort کنم ولی وقتی که نمره هارو تو سورس برنامه نوشته باشم ولی من اینجوری نمی خوام میخوام نمره هارو بعد از اجرای برنامه بهش بدم بعد از دادن نمره اونا رو sort کنه و سومی رو چاپ کنه اینو بلد نیستم.
نقل قول:
برای گرفتن اعداد در هنگام اجرای برنامه میتونید از یک حلقه For استفاده کنید و در این حلقه با دستور Readln ورودی صفحه کلید رو در آرایه قرار بدید به این شکل :
کد:
program P30world;
var
i,x:integer;
a:array[0..9] of integer;
begin
for i:=0 to 9 do
begin
Readln(x);
a[i]:=x;
end;
در ادامه هم که Sort کردن و نمایش ایندکس سوم آرایه که خودتون بلد هستین
موفق باشید.]
من این طور نوشتم و ظاهرا سورت هم می شه :
Program test;
uses wincrt;
var
input:array[1..20] of real;
i,j:Integer;
tmp:real;
begin
writeln('Enter 20 Course');
for i:=1 to 20 do
readln(input[i]);
for i:=1 to 20 do
for j:= i to 20 do
begin
if input[i] > input[j] then
begin
tmp:=input[i];
input[i]:=input[j];
input[j]:=tmp;
end;
end;
writeln('Third course is =',input[3]: 6 : 2);
end.
ولی با این سورس فقط آرایه ای که دفعه سوم وارد کردم رو نشون میده به جای اینکه سومین نمره کلاس رو نشون بده چه تغییری بدم که بفهمه منظور من از 3ومین نمره چیه؟
دوست عزیز کد رو درست نوشتین
فقط به یک نکته توجه نکردین که به صورت صعودی Sort کردین نمرات رو ... در نتیجه سومین نمره از آخر رو میده به شما
میتونید ایندکس دریافتی رو تغیر بدین (مثلا برای 20 تا نمره به جای 3 بنویسید 17) یا اینکه نحوه Sort کردن رو به صورت نزولی تغییر بدین(> رو با < تعویض کنید)
موفق باشید.
داداش من با اون سورس با تغییری که شما گفتید هم جواب نگرفتم یه تغییر دیگه دادم:
Program test;
uses wincrt;
var
i,j:integer;
x:array[1..20] of real;
y:real;
begin
writeln('Enter 20 Course');
for i:=1 to 20 do
readln(x[i]);
for i:=1 to 18 do
for j:= i+1 to 20 do
begin
if x[i]>x[j] then
begin
y:=x[i];
x[i]:=x[j];
x[j]:=y;
end;
end;
writeln('third course is =',x[i]: 6 :2);
end.
با این تغیر تا یه جای بیشتری کارم راه افتاد .
با این تغیر نمره ها رو شورت میکنه و سومین عدد رو نمایش میده ولی باز یه مشکل دارم .
مثلا اگه 5 تا نمره بود و نمره ها هم اینا بود:
10
12
14
14
15
با این نمره ها در اصل باید نمره 12 رو چاپ کنه که سومین نمره کلاسه ولی اسن سورس عدد 14 رو نشون می ده چون بعد سورت 14 سومین رقم سورت شدست .
حالا چطور بهش بفهمونم که سومین عدد از لحاظ بزرگی رو از سورت برداره؟:41:
به خدا شرمندم نمی خوام اذیتتون کنم.
اختیار داری دوست عزیز خوشحال میشم کمکی بکنم
تو این کد که تو آخرین پستتون گذاشتین Sort دیگه درست نیست کد پست قبلی صحیح بود
به هر حال من همون کد خودتون رو تو پاسکال کپی کردم + یکم اصلاح
و بدون مشکل عمل میکنه
کد رو به صورتی تغیر دادم که تعدا کل نمرات هم اول برنامه گرفته بشه .
کد + فایل اجراییش رو از [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] دانلود کنید
موفق باشید