المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : ارجو مساعدتي في برنامج pascal

ياسين 1990
2011-04-15, 18:13
السلام عليكم
ارجو مساعدتي في برنامج يقلب قيم عدد الاول يصبح الاخر والعكس

مثال n=5981........................................فتصب ح n=1895



program pascal
وليد_الجلفة
2011-04-16, 10:04
بالcمعليهش...............................
ياسين 1990
2011-04-18, 08:19
شكرا لك لكن احتاجها بالباسكال
drs1985
2011-04-21, 10:18
function invers(i:integer):string;
var str1,str2:string
j:integer
begin
str1:inttostr(i);
str2:='';
for j:=1 to length(str1)do

str2:=str2+str1[ length(str1)-j];

invers:=str2
end;
اعذرني لقد نسيت pascal قليلا