delphi4arab منتديات دلفي للعرب

السلام عليكم :

اخواني الاعزاء ( بيئة العمل باسكال )

سؤال ( كيف يتم ادخال سلسلة نصية و اضافة عناصرها الى مصفوفة تحتوي هذه المصفوفة الحروف الابجدية الانكليزية

فاذا وجد البرنامج الحرف A مرة واحدة في السلسلة النصية , فيجب ان يزداد العداد المقابل للحرف A بواحد واذا وجد

الحرف A مرتين فيجب ان يزداد عداد الـ A بأثنين وهكذا ...

مثال توضيحي ( المثال بلغة فيجول بيسك 6 ) وهو للتوضيح فقط

السلام عليكم
هل يتم الادخال زمن التشغيل ؟

PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
type
  TRec = record
    C: Char;
    N: Integer;
  end;
var
  MyArray: array[0..25] of TRec; // array of record
  I, J: Integer;
begin
  MyArray[0].C :='A';
  MyArray[0].N := 0;

  MyArray[1].C :='B';
  MyArray[1].N := 0;

  MyArray[2].C :='C';
  MyArray[2].N := 0;

  MyArray[3].C :='D';
  MyArray[3].N := 0;

  MyArray[4].C :='E';
  MyArray[4].N := 0;

  MyArray[5].C :='F';
  MyArray[5].N := 0;

  MyArray[6].C :='G';
  MyArray[6].N := 0;

  MyArray[7].C :='H';
  MyArray[7].N := 0;

  MyArray[8].C :='I';
  MyArray[8].N := 0;

  MyArray[9].C :='J';
  MyArray[9].N := 0;

  MyArray[10].C :='K';
  MyArray[10].N := 0;

  MyArray[11].C :='L';
  MyArray[11].N := 0;

  MyArray[12].C :='M';
  MyArray[12].N := 0;

  MyArray[13].C :='N';
  MyArray[13].N := 0;

  MyArray[14].C :='O';
  MyArray[14].N := 0;

  MyArray[15].C :='P';
  MyArray[15].N := 0;

  MyArray[16].C :='Q';
  MyArray[16].N := 0;

  MyArray[17].C :='R';
  MyArray[17].N := 0;

  MyArray[18].C :='S';
  MyArray[18].N := 0;

  MyArray[19].C :='T';
  MyArray[19].N := 0;

  MyArray[20].C :='U';
  MyArray[20].N := 0;

  MyArray[21].C :='V';
  MyArray[21].N := 0;

  MyArray[22].C :='W';
  MyArray[22].N := 0;

  MyArray[23].C :='X';
  MyArray[23].N := 0;

  MyArray[24].C :='Y';
  MyArray[24].N := 0;

  MyArray[25].C :='Z';
  MyArray[25].N := 0;
  // nested loop
  for I := 0 to Length(MyArray) - 1 do
    for J := 0 to Length(MyArray) - 1 do
      if MyArray[I].C = MyArray[J].C then
        MyArray[I].N := MyArray[I].N + 1;
  // print
  for I := 0 to Length(MyArray) - 1 do
  Memo1.Lines.Add(MyArray[i].C + '    ' + IntToStr(MyArray[i].N));
end; 

PHP كود :
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TDynamicSA= array of string;

function OccurrencesOfChar(const S: string; const C: char): integer;
var
  i: Integer;
begin
  result := 0;
  for i := 1 to Length(S) do
    if S[i] = C then
      inc(result);
end;

var text:string;
count,Alpha:TDynamicSA;
i:Integer;
begin
 Writeln('tapez votre texte ici : ')  ;
 read(text);
 text:=UpperCase(text)  ;
 for i:=1 to 26 do begin
 SetLength(count,i+1);
  SetLength(Alpha,i+1);
  count[i] :=IntToStr(OccurrencesOfChar(text,Char(64+i)));
  Alpha[i]:= Char(64+i);
 end;
 for i:=1 to 26 do
 Writeln(Alpha[i]+' : '+count[i]);

 Readln;
Readln;
end. 

ali spyman

S.FATEH

onexite