  Tiêu đề: Thảo luận pascal Thời gian:  23/1/2011, 6:12 pm |
|---|
| Mr.X Administrator  | | | | I'm :  Huân Chương :    Giới tính :   Tổng Số Bài Gửi : 267  Ca3Cash : 6051  Danh Vọng : 93  Nơi ở : : Vũng Tàu 2school »Châm Ngôn Sống : ABCDEFG
| |
|
|  |
Mảng 1 chiều:
Phần khai báo
Thật ra thì cái này không rắc rối như bạn nghĩ đâu
Nó giống như là một dãy số có dạng:1,3,5,4,65.68......
Có bao nhiêu số thì chỉ việc định dạng trong biến:Var so:array[1..max] of kiểu dữ liệu;
max ở đây là số lượng phần tử của dãy,
max có thể thay đổi ,tùy thuộc vào người dùng
Kiểu dữ liệu có thể là integer,real,byte..........
Vd:Dãy 1,2.3,5 có 4 số thì sẽ là var so:array[1..4] of integer;
|
|
:: 
%20{var%20a=window,link_domain='http://link.apps.zing.vn',b=document,c=encodeURIComponent,d=a.open(link_domain.concat('/pro/view/conn/share?').concat('u=').concat(c(b.location)).concat('&t=').concat(c(b.title)).concat('&desc=').concat(c(getMeta())).concat('&images=').concat(c(getImages())).concat('&media=').concat(c(getMedia())),'share_popup','scrollbars=no,status=no,toolbar=no,location=no,menubar=no,resizable=yes,height=430,width=550,top='.concat((screen.height-500)/2).concat(',left=').concat((screen.width%20-%20500)/2));a.setTimeout(function(){d.focus()},300);function%20getMeta()%20{var%20meta%20=%20document.getElementsByTagName('meta'),desc%20=%20'';for(var%20i=0;%20i<meta.length;%20i++){if(meta[i].getAttribute('name')%20!=%20null%20&&%20meta[i].getAttribute('name').toLowerCase()=='description')%20{desc%20=%20meta[i].getAttribute('content');break;}}return%20desc;};function%20getImages()%20{var%20arrImg%20=%20new%20Array(),u=location.href;if%20(u.indexOf('youtube.com')!=-1)%20{var%20ind%20=%20(u.indexOf('watch?v=')!=-1)?%20(u.indexOf('watch?v=')+8)%20:%200;var%20y_code=%20u.substr(ind,%2011);var%20hinh%20=%20'http://img.youtube.com/vi/'.concat(y_code).concat('/default.jpg');arrImg.push(hinh);}%20else%20{var%20meta_link%20=%20document.getElementsByTagName('link');for(var%20ind=0;%20ind<meta_link.length;%20ind++){if(typeof%20meta_link[ind].getAttribute('rel')!='undefined'%20&&%20meta_link[ind].getAttribute('rel')=='image_src'){arrImg.push(meta_link[ind].getAttribute('href'));break;}}if(arrImg.length==0){var%20image=document.getElementsByTagName('img');for(var%20i=0;%20i<image.length;%20i++){if(image[i].getAttribute('src')%20!=%20null%20&&%20image[i].getAttribute('src').search(/jpg/i)%20!=%20-1){var%20hinh%20=%20image[i].getAttribute('src');var%20inof%20=%20hinh.indexOf('/');if(inof%20!=%20-1){if%20(inof%20==%200){hinh=(hinh.indexOf('http://')==-1)?%20'http://'.concat(b.domain).concat(hinh):hinh;}else{hinh=(hinh.indexOf('http://')==-1)?%20'http://'.concat(b.domain).concat('/').concat(hinh):hinh;}}%20else%20if%20(inof==-1){hinh%20=%20location.href.concat(hinh);}if(hinh!='')%20{arrImg.push(hinh);if(arrImg.length>=5){break;}}}}}}return%20arrImg.join(',');};function%20getMedia(){var%20_code='',u=location.href;if(u.match('youtube.com')!=null){var%20ind_1%20=%20(u.indexOf('watch?v=')!=-1)?%20(u.indexOf('watch?v=')+8)%20:%200;if(ind_1!=0)%20{var%20y_source%20=%20'https://www.youtube.com/v/Y_CODE&hl=en_US&fs=1&autoplay=1&rel=0',y_code='';y_code%20=%20u.substr(ind_1,%2011);_code%20=%20y_source.replace(/Y_CODE/g,%20y_code);}}else{var%20media_data%20=%20document.getElementsByTagName('link');for(var%20ind=0;%20ind<media_data.length;%20ind++){if(typeof%20media_data[ind].getAttribute('rel')!='undefined'%20&&%20media_data[ind].getAttribute('rel')=='video_src'){_code%20=%20media_data[ind].getAttribute('href');break;}}}return%20_code;};})();)
