معرفة عدد تكرارات رقمية داخل جدول
2 مشترك
صفحة 1 من اصل 1
معرفة عدد تكرارات رقمية داخل جدول
معرفة عدد تكرارات رقمية داخل جدول
بسم الله الرحمن الرحيم
معرفة عدد تكرارات رقمية داخل جدول
بسم الله الرحمن الرحيم
معرفة عدد تكرارات رقمية داخل جدول
- الكود:
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 مرات (السبب : تنسيق الموضوع كي يبدو في شكل لائق)
ali- مبرمج مجتهد
- عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013
رد: معرفة عدد تكرارات رقمية داخل جدول
بسم الله الرحمن الرحيم
بارك الله فيك
بارك الله فيك
Admin- مبتدئ في البرمجة
- عدد المساهمات : 47
تاريخ التسجيل : 21/03/2014
مواضيع مماثلة
» كيفية انشاء جدول داخل قاعدة بيانات من نوع mysql
» انشاء عدة Forms داخل Form1 وانشاء عدة TabPages داخل tabControl
» انشاء عدة Forms داخل Form1 وانشاء عدة TabPages داخل tabControl
» انشاء عدة Forms داخل Form1 وانشاء عدة TabShet داخل PageControl
» معرفة العدد موجب أو سالب
» انشاء عدة Forms داخل Form1 وانشاء عدة TabPages داخل tabControl
» انشاء عدة Forms داخل Form1 وانشاء عدة TabPages داخل tabControl
» انشاء عدة Forms داخل Form1 وانشاء عدة TabShet داخل PageControl
» معرفة العدد موجب أو سالب
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى