BUỔI 1 HỌC ĐỘI TUYỂN

KIỂU DỮ LIỆU TRONG PASCAL

Các kiểu số nguyên

Tên kiểuKhoảng cách giá trịDung lượng theo bytes
Byte0.. 2551
Shortint-128.. 1271
Smallint-32768.. 327672
Word0.. 655352
Integer-32768.. 327672 [4]
Longint-2147483648.. 21474836474
Longword0.. 42949672954
int64-9223372036854775808.. 92233720368547758078 [5]
QWord0.. 184467440737095516158 [6]
Cardinal,
Dword
Tương đương với longword

Các kiểu số thực

Tên kiểuKhoảng cáchSố chữ số có nghĩaDung lượng theo bytes
Realphụ thuộc vào nền tảngKhông rõ4 đến 8
Single1.6E-45.. 3.4E387-84
Double5.0E-324.. 1.7E30815-168
Extended1.9E-4932.. 1.1E493219-2010
Comp-2E64+1.. 2E63-119-208
Currency-922337203685477.5808.. 922337203685477.580719-208

Kiểu chữ

Tất cả các kiểu chữ đều có thể lưu được các ký tự trong bảng mã ASCII

TênSố ký tự lưu đượcDung lượng theo bytes
Char11
Widechar?2
String255?
ShortstringTương tự String (255)?
AnsistringTùy thuộc vào bộ nhớ (càng nhiều bộ nhớ thì lưu được càng nhiều)?

Nhận xét

Đăng nhận xét

Bài đăng phổ biến từ blog này

Xauduynhat - Xâu duy nhất

Xauduynhat - Xâu duy nhất        Cho một xâu kí tự chỉ gồm các kí tự chữ cái. Do yêu thích tính đơn nhất nên Nam muốn tìm ra một xâu con gồm các kí tự liên tiếp sao cho trong xâu này mỗi kí tự chỉ xuất hiện đúng 1 lần duy nhất.        Bạn được Nam nhờ giúp đỡ, hãy tìm giúp nam xâu đạt yêu cầu có độ dài lớn nhất sẽ là bao nhiêu. Input: -  Gồm một dòng duy nhất là xâu ban đầu S (độ dài <= 5*10 4 ) Output: -  Gồm một số duy nhất là đáp án tìm được. Ví dụ ·          input acbE output 4 var st,d:widestring; // =2^30 ki tu, ansistring=2^31 ki tu     i,j,max:longint; begin readln(st); max:=0;d:=''; for i:=1 to length(st)-1 do     for j:=i to length(st) do         if pos(st[j],d)=0 then d:=d+st[j]         else      ...
Đọc thêm

ALARM - Đồng hồ báo thức

ALARM - Đồng hồ báo thức Mùa hè đến là lúc học sinh được nghỉ học, là khoảng thời gian tuyệt vời để vui chơi thỏa thích cùng nhau. Thế nhưng Huy - một học sinh lớp 10 chuyên Toán lại muốn tận dụng những ngày hè rảnh rỗi để "tu luyện" nhằm đạt kết quả cao trong kỳ thi VMO sắp tới. Cậu ta đặt ra một thời gian biểu cho mình và sử dụng đồng hồ báo thức để thực hiện một cách hợp lý. Sau một hồi lục lọi quanh nhà, cậu đã tìm được một chiếc đồng hồ báo thức hiển thị bằng đèn LED mà ba cậu mua cho từ năm ngoái. Không may, do ít sử dụng mà chiếc đồng hồ đã bị hỏng về phần hiển thị giờ. Nó hỏng đến nỗi cậu không thể đọc được thời gian trên đồng hồ mà chỉ đếm được số vạch LED mà nó hiển thị. Vì vậy, để xác định thời gian, cậu phải tìm một thời điểm mà đồng hồ hiện thị có số vạch LED bằng số vạch mà cậu đếm được. Do bận ôn thi, cậu không có thời gian suy nghĩ. Đây chính là lúc các NTU Coder giúp Huy đấy! Lưu ý: Hình của bài vừa được thay đổi, nếu bạn sai ở test 6 hãy xem lại hình ...
Đọc thêm

cộng trừ nhân chia phân số

Code cộng, trừ, nhân chia phân số trong pascal var a,b,c,d:longint; function ucln(a,b:longint):longint; var r:longint; begin while a mod b <>0 do begin r:=a mod b; a:=b; b:=r; end; exit(b); end; procedure cong(a,b,c,d:longint); var tu, mau,UC:longint; begin tu:=a*d+b*c; mau:=b*d; UC:=ucln(tu,mau); tu:=tu div uc; mau:=mau div uc; if mau=1 then writeln(a,'/',b,' + ',c,'/',d,' = ',tu) else writeln(a,'/',b,' + ',c,'/',d,' = ',tu,'/',mau); end; procedure tru(a,b,c,d:longint); var tu, mau,UC:longint; begin tu:=a*d-b*c; mau:=b*d; UC:=ucln(tu,mau); tu:=tu div uc; mau:=mau div uc; if mau=1 then writeln(a,'/',b,' - ',c,'/',d,' = ',tu) else writeln(a,'/',b,' - ',c,'/',d,' = ',tu,'/',mau); end; procedure nhan(a,b,c,d:longint); var tu, mau,UC:longint; begin tu:=a*c; mau:=b*d; UC:=ucln(tu,mau); if tu=0 then begin writeln(a,'/',b,...
Đọc thêm