معرفة عدد تكرارات رقمية داخل جدول

اذهب الى الأسفل

معرفة عدد تكرارات رقمية داخل جدول

مُساهمة  ali1 في 1/3/2014, 1:35 pm

معرفة عدد  تكرارات رقمية داخل جدول  

بسم الله الرحمن الرحيم

معرفة عدد تكرارات رقمية داخل جدول

الكود:

program hgj;
const co = 5;

type tab1= array [1..co] of integer;
var
  v,h,i,j : integer;
  t, k, l : integer;
  ii,jj,xx:integer;

var tab00: tab1;
ik:integer;

begin
 writeln ('entrez un nombre : ');
 for h := 1 to co do
  readln (tab00 [h]);

  for ii:=1 to co-1 do
  for jj:=1+ii to co do
  if tab00[jj]<tab00[ii] then
   begin
     xx:=tab00[ii];
     tab00[ii]:=tab00[jj] ;
     tab00[jj]:=xx;
   end;

 writeln;
 k := 0;
 for i := 1 to co do
 begin
  t := tab00 [i];
  for j := 1 to co do
   if t = tab00 [j] then
     k := k + 1;
  if l <> tab00 [i] then
    writeln (tab00 [i],' -->  ', k );
  l := tab00 [i];
  k := 0;
 end;
 readln;

end.



عدل سابقا من قبل mah11 في 6/11/2015, 10:25 am عدل 1 مرات (السبب : تنسيق الموضوع كي يبدو في شكل لائق)

ali1
مبرمج مجتهد

عدد المساهمات : 860
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: معرفة عدد تكرارات رقمية داخل جدول

مُساهمة  Admin في 21/3/2014, 2:33 pm

بسم الله الرحمن الرحيم

بارك الله فيك

Admin
مبتدئ في البرمجة

عدد المساهمات : 47
تاريخ التسجيل : 21/03/2014

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى