دخول

yassine_hell · 29-09-2011, 10:58 PM

السلام عليكم

ماهي فائدة Type énuméré فيturbo pascal اذا لا نستطيع عمل read(ln) او write(ln) او حتى اسناد قيمة لها من متغير اخر...

شكرا

paix144 · 29-09-2011, 11:33 PM

و عليكم السلام ورحمة
عندي التعريف باللغة الفرنسية
عذرا لا أستطيع تجرمته

كود :
Un type énuméré est un type dont les variables associées n'auront qu'un nombre très limité de valeur (au maximum 256 différentes possibles). Un type énuméré sert de définition à un ensemble mathématique par l'intermédiaire de la syntaxe Set Of,La définition d'un type énuméré conciste à déclarer une liste de valeurs possibles (256 au maximun) associées à un type, c'est-à-dire qu'une variable de type énuméré aura l'une et une seule de ces valeurs et pas une autre.

كود :
Program exemple32 ;
Type jours=(dim, lun, mar, mer, jeu, ven, sam) ;
Var today : jours ;
BEGIN
today := mar ;
today:=Succ(today) ;
Inc(today,2) ;
Case today Of
dim : WriteLn('Dimanche') ;
lun : WriteLn('Lundi') ;
mar : WriteLn('Mardi') ;
mer : WriteLn('Mercredi') ;
jeu : WriteLn('Jeudi') ;
ven : WriteLn('Vendredi') ;
sam : WriteLn('Samedi') ;
Else WriteLn('autre, ',Ord(today)) ;
End;
END.

المصدر

كود :
http://cyberzoide.developpez.com/info/turbo/chap20.php3#enum

yassine_hell · 30-09-2011, 11:50 PM

شكرا على الرد
لكن قرات هذا المقال من قبل , و اعرف التعريف , لكن ما الغاية منه ,
في مثالك المبرمج حدد

كود :
today := mar ;

ثم

كود :
today:=Succ(today) ;

ما الفائدة اذا لم يستطع مستخدم البرنامج الذي لا يستطيع التغيير على الـsource تغير الـمتغير "today" بنفسه

paix144 · 01-10-2011, 11:37 PM

...لكن ما الغاية منه لأنه ثابت(Const)

paix144 · 02-10-2011, 12:02 AM

لتوضيح أكثر أنظر هذا المثال

كود :
uses ShellApi,TypInfo;

كود :
Type TChiffre=(Zero,One,Two,Tree,Four,Five);

كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := GetEnumName(TypeInfo(TChiffre),ComboBox1.ItemIndex);
end;

me_delphi · 04-10-2011, 05:24 PM

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

إقتباس :ماهي فائدة Type énuméré فيturbo pascal اذا لا نستطيع عمل read(ln) او write(ln) او حتى اسناد قيمة لها من متغير اخر

بكل بساطة فهو ك Integer مثلا فهدا type فقط تستعمله ولا تسند له أي قيم والغاية من Type énuméré ان تنشىء Type معين خاص بك أو Type آخر غير موجود في لغة البرمجة التي تستعملها

تصور مثلا أنك ستنشأ Type قيمته تفوق قيمة Integer...!!!

yassine_hell · 05-10-2011, 01:29 PM

me&delphi' كتب :تصور مثلا أنك ستنشأ Type قيمته تفوق قيمة Integer...!!!

لكن لا تتعامل معه مثلما تتعامل مع Integer

me_delphi · 09-10-2011, 12:05 AM

إقتباس :program exemple32 ;
type jours=(dim, lun, mar, mer, jeu, ven, sam) ;
var today : Jours ;
begin
today := mar ;
today:=succ(today) ;
inc(today,2) ;
case today of
dim : Writeln('dimanche') ;
lun : Writeln('lundi') ;
mar : Writeln('mardi') ;
mer : Writeln('mercredi') ;
jeu : Writeln('jeudi') ;
ven : Writeln('vendredi') ;
sam : Writeln('samedi') ;
else writeln('autre, ',ord(today)) ;
end;
end.

طبق المثال أخي وستجد أنه متشابه...ابحث

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة