الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Pascal Code !

بدأه بنت البوادي في 28 ديسمبر 2009 · 4 رد · 898 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

هذا السؤال يطلب فحص لحاالة الحرف كبير او صغير؟؟؟

!هل يجب علي ادخال جدول الاسكي في الكود علما انة وضع مع السؤال

لكن ماعرفت اكتب بالباسكال لاني مادرستها لكن هو مطلوب بالسؤال .؟؟فاتمنى من اللي درسها او يعرف فيه شي يفيدني لو شرح الاساسيات للغة ....

Write a program that will accept any character from user. Check if the character is upper case, lower case, numeric or special symbol. Do the comparison based on the given ASCII table below (don't list out. In the output, display the character that user has entered and the status of it. The system should also display appropriate messages accordingly.

Example:

Input : A

Output : A is an upper case character

Start your work with writing an algorithm . During development, you should be implementing the program using pascal ؟؟؟؟؟

اتمنى المساعدة في اقرب وقت فانا في حاجة اليه . .

#2

الدالة Ord بترجع القيمة ال ASCII المكافئة

كل اللى عليك تحديد ال ranges فى case كالمثال هنا

http://lazarustutorial.wordpress.com/2009/05/07/%D8%A7%D9%84%D9%85%D8%AA%D8%AD%D9%83%D9%85%D8%A7%D8%AA/

(map share people)

فضلا لاتقم بمراسلتي من أجل أسئلة لها أقسامها في المنتدى حتى تعم الفائدة على الجميع وللحصول على إجابات أفضل من أعضاء أكثر خبرة.
Weblog
@bitbucket
@xmonader

#3
ahmed_youssef كتب:

الدالة Ord بترجع القيمة ال ASCII المكافئة

كل اللى عليك تحديد ال ranges فى case كالمثال هنا

http://lazarustutorial.wordpress.com/2009/05/07/%D8%A7%D9%84%D9%85%D8%AA%D8%AD%D9%83%D9%85%D8%A7%D8%AA/

iam sorry but idont understand what do you say???a keabord dose not write arabic

#4

بكل بساطة استعملي الدالة Ord كما قال احمد يوسف

ord( 'C' ) will return the value 67

يعني انه حرف كبير.

الحروف الكبيرة من 65 الى 90

و الصغيرة من 97 الى 122

اظن انه لم تبق لك حجة

العمل كثير و الوقت قليل أعاننا الله

seo zen SEO Enlightment amazon danbo

#5 
function IsNumeric(const S: string): Boolean;
var
  P: PChar;
begin
  P      := PChar(S);
  Result := False;
  while P^ <> #0 do
  begin
    if not (P^ in ['0'..'9']) then Exit;
    Inc(P);
  end;
  Result := True;
end;

function IsUpperCase(Value: string): Boolean;
begin
   Result := Value = UpperCase(Value) ;
end;

function IsSpecialSymbol(Value:Char):Boolean;
begin
  if not isCharAlpha(Value) and not IsNumeric(Value) then
  begin
    Result:=true
  end
  else
  Result:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:boolean;
begin
  a:=IsUpperCase('M');
  b:=IsNumeric('M');
  c:= IsSpecialSymbol('&');
end;

بعض الحكي يحق له يجرح الصمت..والبعض الآخر ما يبرر ظهوري

مواضيع مشابهة