إعـــــــلان

تقليص
لا يوجد إعلان حتى الآن.

أخطاء في برنامج باسكال... ممكن الحل لوسمحتم

تقليص
X
 
  • تصفية - فلترة
  • الوقت
  • عرض
إلغاء تحديد الكل
مشاركات جديدة

  • [مشكلة] أخطاء في برنامج باسكال... ممكن الحل لوسمحتم

    السلام عليكم ورحمة الله وبركاتة

    اخواني انا عندي برنامج مكتوب بالباسكال كتبته على برنامج الــGeany ونفذت البرنامج طلع مع اخطاء
    مدري هو ناقص البرنامج ولا كيف

    البرنامج :
    كود:
    program pasex (input,output);
    type intlisttype = array [1..99] of integer;
    var
    intlist : intlisttype;
    listlen, counter, sum, average, result : integer;
    begin
    result := 0;
    sum := 0;
    readln (listlen);
    if (( listlen > 0 ) and (listlen <100 )) then
    begin
    for counter := 1 to listlen do
    begin
    readln ( intlist[counter]);
    sum := sum + intlist[counter]
    end;
    average := sum / listlen;
    for counter := 1 to listlen do
    if (intlist[counter] > average ) then
    result := result + 1;
    writeln (' The number of values > average is:'RESULT)
    end
    else
    writeln (' Error-input list length is not legal')
    end.
    وبعد التنفيذ طلع لي الأخطاء التالية :
    كود:
    turki.pas(17,16) Error: Incompatible types: got "Extended" expected "SmallInt"
    كود:
    turki.pas(21,47) Fatal: Syntax error, ")" expected but "identifier RESULT" found
يعمل...
X