-
داداش واقعا زحمت کشیدی به خدا روم نمی شه بگم ولی این جواب نداد دقیقا مشکل برنامه خودم رو داره.
مثلا این چند تا عددی که من میدم رو شما هم بده ببین درست در میاد یا نه:
من 5 تا نمره رو انتخاب کردم به ترتیب:
10
12
11
12
12
این پنج تا رو که به تریتیب بدید باید سومین نمره کلاس که 10 باشه رو نشون بده ولی اون 12 رو نشون می ده چون:
بعد از سورت به این شکل در میاد:
10
11
12
12
12
و سومین عدد هم 12 هست ولی سومین نمره 10 هست من نمیخوام سومین عدد رو چاپ کنه می خوام سومین نمره کلاس رو چاپ کنه.
به خدا شرمندتم من خودمم گیرم دقیقا همین جاست حالا چه با اون کدی که اول دادم چه با دومی هر دو اشتباه در میاد هر کدوم شما میگید درسته همونو تغییر بدید لطفا فرقی برام نداره.
-
درسته در صورت وارد شدن اعداد غیر یکتا به عنوان نمرات ؛ پاسخ اشتباه میشه
برای حل این مشکل خیلی ساده میشه مقادیر تکراری رو از آرایه حذف کرد و مقادیر یکتا رو در یک آرایه جدید قرار داد و نهایتا سومین نمره رو هم از همین آرایه جدید خوند
البته بهتر بود این قسمت رو خودتون بهش اضافه میکردین اما با توجه به اینکه دیگه وقتی ندارین
این کد کامل و تست شده :
کد:
Program test;
var
input,result:array[1..20] of real;
i,j,k:Integer;
tmp:real;
stri:string;
begin
Writeln('Enter The Number of Scores: ');
readln(k);
for i:=1 to k do
begin
str(i,stri);
writeln('Enter Value For Score No : '+stri);
readln(input[i]);
end;
for i:=1 to k do
for j:= i to k do
begin
if input[i] < input[j] then
begin
tmp:=input[i];
input[i]:=input[j];
input[j]:=tmp;
end;
end;
j:=0;
for i:=1 to k do
begin
if not (input[i] = result[j]) then
begin
inc(j);
result[j]:=input[i];
end;
end;
writeln('Third Score is =',result[3]: 6 : 2);
readln;
end.
موفق باشید
-
این کد کاملا درست بود کارت درست بود. داداش به خدا نمی دونم چطور ازتون تشکر کنم ممنون واقعا لطف بزرگی در حقم کردید - چند روزی داشتم دیوونه می شدم هر کاری میکردم جور در نمیومد شاید باور نکنید ولی واسه اکثر بچه های کلاس پروژه شونو من انجام دادم ولی تو مال خودم مثل خر موندم .
خیلی خیلی ممنون ان شالله بتونم جبران کنم .
-
یه سوال تو خط های آخر یه جا نوشتید inc(j) جریان این چیه؟
چه دستوریه؟
-
خواهش میکنم دوست عزیز کاری نکردم ، لطف داری شما
دستور Inc که مخفف Increase هست پارامتری که بهش داده میشه رو یک واحد افزایش میده .
همواره موفق باشی .:11:
-
خیلی صبر و حوصله داری به خدا من هر جی سوال میکنم جواب میدی بابا دمت گرم خودمم در حق خودم اینقدر لطف نمیکنم مرسی.
