Xuất, nhập dữ liệu trong Pascal

Thứ hai - 27/07/2020 09:39
1. KHÁI NIỆM
Bất cứ ngôn ngữ lập trình nào cũng phải cung cấp cho người lập trình các phương tiện để :
- Nhập dữ liệu vào (từ bàn phím, đĩa từ)
- Xuất dữ liệu ra (màn hình, máy in, đĩa từ).
2. CÁC THỦ TỤC XUẤT DỮ LIỆU CỦA TURBO PASCAL
Cách viết Ý nghĩa
WRITE (X1, X2, ..., Xn) ; Viết giá trị của các biến X1, X2, ..., Xn ra màn hình.
WRITELN (X1, X2, Xn) ; Tác dụng như trên nhưng viết xong có xuống dòng.
WRITELN ; Xuống dòng.
WRITELN (I : n) ; Viết ra giá trị của biến nguyên I vào n chỗ tính từ bên phải sang bên trái. Nếu thừa chỗ sẽ để trống bên trái.
WRITELN (R : n : m) ; Viết ra giá trị của biến thực R vào n chỗ, chỉ lấy m số thập phân.
WRITELN ('ABC...F') ; Viết ra nguyên văn chuỗi kí tự
ABC…F
WRITELN (LST, X1; ..., Xn) ; Viết giá trị của các biến X1, ..., Xn ra máy in.
ASSIGN (F, Tên_File) ; Mở một File F trên đĩa có tên là Tên­­­_File
REWRITE(F) ; Chuẩn bị viết.
WRITE(F, X1; ..., xn) ; Viết các giá trị của các biến X1, ..., Xn và file F.
CLOSE(F) ; Đóng File F
Chú ý : Biến F phải được khai báo trước ở phần trên.
VAR
F : TEXT;

3. CÁC THỦ TỤC TRÌNH BÀY MÀN HÌNH CỦA TURBO PASCAL
a) Thông thường màn hình của máy vi tính được chia thành 25 dòng, mỗi dòng viết được 80 kí tự.
Chỗ đang làm việc trên màn hình có một khối sáng nhấp nháy gọi là con trỏ.

b) Các thủ tục :
Cách viết Ý nghĩa
GOTOXY(m,n) Di chuyển con trỏ tới tọa độ (m,n) của màn hình.
CLRSCR; Xóa màn hình.
TEXTCOLOR(COLOR) ; Đặt màu cho văn bản.
TEXTBACKGROUND (LOLOR) Đặt màu nền.

c) Các hằng số màu đã được định sẵn :
0 Black 4 Red 8 Dark Green 12
1 Blue 5 Magenta 9 Light Blue 13 Light Magenta
2 Green 6 Brown 10 Light Green 14 Yellow
3 Cyan 7 Light Grey 11 Light Cyan 15 White

- Ví dụ 1 :
PROGRAM chào 1 ;
BEGIN
     Writeln (‘Turbo’) ;
     Writeln ('Pascal') ;
END.
—> Kết quả trên màn hình :
       Turbo
       Pascal

- Ví dụ 2 :
PROGRAM chào 2 ;
BEGIN
     Write ('Turbo') ;
     Write ('Pascal') ;
END.
-> Kết quả trên màn hình :
     Turbo Pascal

- Ví dụ 3 :
PROGRAM SoNguyen_l ;
VAR
      So : Integer ;
BEGIN
      So := 5 ;
      Writeln (Biến nguyên có giá trị là : ', So) ;
END.
-> Kết quả trên màn hình :
    Biến nguyên có giá trị là : 5 

- Ví dụ 4 :
PROGRAM Viet_so_co_qui_cach ;
VAR
      I : Integer ;
      R : Real ;
BEGIN
      I := 123 ;
      R := 81.123456789 ;
      Writeln ('12345678910')
      Writeln (1:8) ;
      Writeln (R : 10 : 6) ;
END.
—> Kết quả trên màn hình :
      12345678910
                     123
           81.123456

4. CÁC THỦ TỰC NHẬP Dử LIỆU CỦA TURBO PASCAL
Cách viết Ý nghĩa
READ(X1 X2, ..., Xn) Nhập dữ liệu từ bàn phím vào các biến X1 X2, ..., Xn
READLN(X1 X2, ..., Xn) Tác dụng giống như trên nhưng khi nhập xong con trỏ có xuống hàng.
READLN ; Dừng chương trình, đợi phím Enter mới tiếp tục.
ASSIGN(F, Ten File) ; Mở File F có tên là Tên File.
RESET(F) ; Chuẩn bị đọc.
READ(F, X1 X2, ..., Xn) ; Đọc các giá trị có ghi trên File F ra các biến X1 X2, ..., Xn
CH := Read Key ; Đọc một kí tự từ bàn phím vào biến kí tự CH.
KEYPRESSED Một hàm có giá trị là TRUE nếu có một phím được bấm và FALSE nếu ngược lại.

- Ví dụ 1 :
PROGRAM nhap_thu_l ;
VAR
      i, j, k, 1 : Integer ;
BEGIN
      Read (i, j, k, 1) ;
      Writeln (ĩ, j, k, 1) ;
      Readln ;
      Readln (i, j, k, 1) ;
      Writeiln (i, j, k, 1) ;
END.

- Ví dụ 2 :
PROGRAM Nhap_thu_2 ;
VAR
      So : Integer ;
BEGIN
       Writeln (’Gõ vào một sô' nguyên') ;
       Readln (So);
       Writeln ('Bạn vừa gõ số', So) ;
END.
Bản quyền bài viết thuộc về Sachgiai.com. Ghi nguồn Sách giải.com khi đăng lại bài viết này.

  Ý kiến bạn đọc

THÀNH VIÊN

Hãy đăng nhập thành viên để trải nghiệm đầy đủ các tiện ích trên site
Kênh Bóng đá trực tiếp hôm nay miễn phí
Kênh
90Phut TV full HD ⇔ 32win
69VN ⇔  ⇔ F168 ⇔ 123b

Vmax ⇔ 78Win ⇔ https://xn88.bio/
GK88 ⇔ SHBET ⇔ nh88 ⇔ u888 ⇔ 789f
fo88vic88 ⇔ x88 ⇔ win678 ⇔ 69vn
BL555 ⇔ 99OK ⇔ KJC ⇔ Link MB66
mv66af88 ⇔ 8x bet ⇔ 88AA
789BET ⇔ LC88 ⇔ BL555 ⇔ 789f
OKFUN ⇔ 789F ⇔ MB66 ⇔ 8xbet
https://789betcom0.com/ ⇔ https://hi88.baby/
UU88 ⇔ au88 ⇔ win678 ⇔ https://xx88.ink/
zo88 ⇔ ev99 ⇔ 888b ⇔ go88 ⇔ kèo nhà cái
cm88 ⇔ 88aa ⇔ Kkwin ⇔ tv88 ⇔ 77win
mb66.racing ⇔ u888 ⇔ FO88 ⇔ 88xx
188v ⇔ f168 ⇔ QQ88 ⇔ bk8 ⇔ bk8
789club ⇔ iwinclub ⇔ Subnhanh ⇔ Bluphim
m88 ⇔ Nettruyenviet ⇔ P3 ⇔ 8s
vn23 ⇔ SHBET ⇔ kubet ⇔ 888new
NOHU ⇔ hi88 ⇔ https://fun88.social/
thabet ⇔ SV88 ⇔ https://vnalo789c.com/
https://qq88.fun/ ⇔ f168 ⇔ 888New ⇔ QQ88
daga ⇔ SHBET ⇔ keo nha cai ⇔ bl-555.site
https://bshbet.com/ ⇔ https://uk88.rocks
kkwin ⇔ KUWIN ⇔ 8xbet ⇔ RR88 ⇔ 188v
mb6678win ⇔ https://hello8880.net/
tv88UU88 ⇔ 5mb ⇔ MB66 ⇔ TV88
NOHU ⇔ 77ball ⇔ 32win ⇔ Kuwin
ek333 ⇔ xoso66 ⇔ nổ hũ ⇔ SUN WIN
Fun88 ⇔ 78win ⇔ Jun88 ⇔ uu88
NOHU ⇔  KINGFUN ⇔ https://789club24.com/
https://98winlive.com/ ⇔ https://789win.voyage/
https://bet88yk.com/ ⇔ https://alo789apk.app/
https://33win100.com/ ⇔ https://u888ny.com/
69vn ⇔ vn88 ⇔ OK8386 ⇔ x88 ⇔ SHBET
https://hi88.voyage/ ⇔ https://79kings.blue/
https://dom88.jp.net/ ⇔ https://hello880.net/
https://789club60.com/ ⇔ https://blc88.net/
23win ⇔ 6ff ⇔ f168 ⇔ xoso66 ⇔ bomwin
nhatvip ⇔ https://789club24.com/ ⇔ 789 bet
win68 ⇔ 8xbet ⇔ go99 ⇔ 78win ⇔ QQ88
XX88 ⇔ ev99 ⇔ 69vn ⇔ rr88 ⇔ rr88
Uu88 ⇔ win456 ⇔ Tài xỉu online ⇔ XN88
https://33win101.com/ ⇔ oxbet ⇔ Slot365
78wind.com ⇔ https://shbet.gg/ ⇔ XX88
daga ⇔ SV388 ⇔ OKFUN ⇔ ee88 ⇔ 12bet
hitclub ⇔ Kkwin ⇔ VankhanhTV ⇔ Hay 88
3WIN ⇔ WIN678 ⇔ https://58winbank.com/
68 game bàiEE88 ⇔ 77BET ⇔ 12BET
vmaxVMAX ⇔ ok9 football ⇔ K8CC
https://hi88o.com/ ⇔ https://hi88.gives/
https://qq88.co.com/ ⇔ https://f168.law/
8xbet ⇔ https://shbetk.net/ ⇔ RIKVIP ⇔ rikvip
https://mm88login.com/ ⇔ 79king
ww88 ⇔ https://78win.bot/ ⇔ https://13win.vegas/
https://lc88o.com/ ⇔ https://hi88.uno/
https://58win1.info/ ⇔ j88 ⇔ j88 ⇔ 69vn
Slot365 ⇔ alo88 ⇔ UU88 ⇔ 32 win
888TO ⇔ wstar77 ⇔ 73bet ⇔ 888b
11uu ⇔ 123B ⇔ 78win ⇔ Slot365
789f ⇔ mv88 ⇔ 789f ⇔ Bsport
888New ⇔ Bet88 ⇔ Vmax ⇔ Sun Win
tỷ lệ kèo nhà cái hôm nay ⇔ BIN88
https://j88.ventures/ ⇔ https://qq88.studio/
https://nh8811.com/ ⇔ Leo88 ⇔ 78win
88CLB ⇔ SV388 ⇔ https://cakhiatv88.net/
7m ⇔ i9 Bet ⇔ Tv88 ⇔ hi88 ⇔ 888To
socolive trực tiếp74bet ⇔ VN168
Bong88 ⇔ socolive ⇔ bet88 ⇔ 555WIN
https://au88.black/ ⇔ trực tiếp bóng đá
https://king88clb.com/ ⇔ https://f168hi.com/
sv66nhà cái thabet ⇔ 88clb ⇔ Nn88
https://32win.vc/ ⇔ 888new ⇔ PG88 ⇔ PG88
EE88 ⇔ SanClub ⇔ F168 ⇔ QQ88
hb88 ⇔ Vin777 ⇔ SV388 ⇔ MV66 ⇔ 23WIN
https://vankhanhtvv.com/ ⇔ Nhà Cái LC88
https://789fnew.com/ ⇔ https://u888lm.com/
https://sv66.coupons/ ⇔ https://f168.tech/
https://8kbetbh.com/ ⇔ https://ta88club.kim/
socolivemv88 ⇔ https://rr88.com.se/
https://bet168.com.co/ ⇔ https://8kbet.co/
https://888b-link.cc/ ⇔ https://sunwinn.deal/
88gokingfun ⇔ https://bong88vn.wiki/
SHBET ⇔ https://shbet.racing/
789f ⇔ U888 ⇔ https://new88blog.org/
MM88 ⇔ 33win ⇔ BL555 ⇔ 69vn
https://qq887p.com/ ⇔ https://w88link1.com/
xocdia88 ⇔ 77ball ⇔ vuabet88 ⇔ betvisa
https://789freal.com/ ⇔ https://2789f.com/
https://fun88link0.com/ ⇔ https://fun88link1.com/
https://188betlink0.com/ ⇔ https://188betlink1.com/
https://188betlink2.com/ ⇔ https://w88link0.com/
thabet ⇔ 32WIN ⇔ J88 ⇔ ax88 ⇔ 789F
QQ88 COM ⇔ https://xx88.sale/ ⇔ 78win
https://bet88.pictures/ ⇔ https://xo88.group/
https://86bet.tech/ ⇔ https://nohu90.consulting/
789BET ⇔ https://i9betz4.com/ ⇔ đá gà 88
w88link2.com ⇔ w88link3.com ⇔ luck8
https://8dayvip.mobi/ ⇔ https://8dayvip.com/
QQ88 Com ⇔ af88 ⇔ https://79kingsr.com/
https://pg99yk.com/ ⇔  hm88.com ⇔ J88
https://luongson161.tv/ ⇔ 78WIN ⇔ MB66
78win ⇔ U888 ⇔ nn88 ⇔ 99win ⇔ hi88
https://8kbettt.com/ ⇔ https://hi88.biz/
https://thabetcasino.us.com/ ⇔ 789Win ⇔ vn88
https://hello88net.com/ ⇔ https://pg88.jpn.com/
https://az8888.org/ ⇔ https://fly88.gifts/
lc88 ⇔ VN88 ⇔ 69vn ⇔ nh88 ⇔ vn88
GO8 ⇔ 888new ⇔ sv388 ⇔ KWIN
tỷ lệ kèo nhà cái 88 ⇔ PG66 ⇔ 68win
BL555 ⇔ 23win ⇔ SV388 ⇔ SHBET ⇔ hitclub
Game bài đổi thưởng ⇔ https://saobet.shop/
https://99ok99ok.com/ ⇔ UU88 ⇔ HM88
https://bet88.ventures/ ⇔ bongdalu22.com
zx88 ⇔ ev99 ⇔ 8s ⇔ bet8s ⇔ QQ88
https://f168.name/ ⇔ https://13wincom.io/
Nhà cái vn88 ⇔ Nhà Cái QQ88
https://fb888.in.net/ ⇔ https://kjc.ac/
https://onbet.in.net/ ⇔ link vn88 ⇔ HZ88
http://58win.trading/ ⇔ https://qq88.gives/
bong88 ⇔ sky88 ⇔ Cổng game rikvip ⇔ ev99
79KING ⇔ Bet88 ⇔ XN88 ⇔ i9bet ⇔ VN23
https://kkwin.fan/ ⇔ https://555win.bike/
https://f8bet.courses/ ⇔ https://go8play.com/
https://lc88.bar/ ⇔ 789f ⇔ abc8 ⇔ good88
789win ⇔ Hitclub ⇔ https://f8bet80.one/
lương sơn tv ⇔ vwin ⇔ sut88 ⇔ vua88
hb88 ⇔ https://okfun.center/ ⇔ 68win
LC88 ⇔ 79king ⇔ https://hi88.tours/
https://ok9.charity/ ⇔ https://kkwin68.info/
Bạn đã không sử dụng Site, Bấm vào đây để duy trì trạng thái đăng nhập. Thời gian chờ: 60 giây