الموضوع : كتابة كود برمجي بلغة Pascal لإنشاء مصفوفة حروف Array of char ثم القيام بملئه, ثم نقوم بعرض المحتوى.
Uses Crt;
إنشاء مصفوفة تتكون من 100 خانة
Type Table = Array [1..100] of Char;
كود لملأ المصفوفة
Procedure Fill (var Tab : Table);
Var i : Integer;
Begin
for i := 1 to 100 do
begin
Write('Taper le charactère n°',i,' : ');
ReadLn(Tab[i]);
end;
End;
هذه العملية لعرض عناصر المصفوفة
Procedure Display (var Tab : Tableau);
Var i : Integer;
Begin
for i := 1 to 100 do
Write(Tab[i],' ');
WriteLn;
End;
تنفيذ الكود الذي قمنا بكتابته
Var Tab1 : Table;
BEGIN
ClrScr;
Fill(Tab1);
Display(Tab1);
END.
ليست هناك تعليقات:
إرسال تعليق