Cách xóa file trong Pascal

CÁCH CÀI ĐẶT FREE PASCAL

Bước 1: Các bạn truy cập vào link sau: https://download.com.vn/free-pascal/download. Download bản Free Pascal trong link.

Bước 2: Các bạn tạo tab mới trong chính trình duyệt đã truy cập vào địa chỉ web trên và nhấn tổ hợp phím Ctrl+J. Sau đó chờ tải xong bản Free Pascal và nhấn vào "Hiển thị trong thư mục" và nhấn đúp chuột vào tệp (hoặc các bạn có thể di chuyển tệp ra màn hình Desktop và nhấn đúp chuột vào tệp).

Bước 3: Nhấn "Next" liên tục đến khi trình cài đặt bắt đầu. Chờ trình cài đặt hoàn thành, các bạn nhấn đúp chuột vào biểu tượng Free Pascal là xong. Các bạn đã vào phần mềm Free Pascal.

HƯỚNG DẪN LẬP TRÌNH FREE PASCAL

Để lập trình các bạn nhớ các từ khóa cơ bản cần thiết khi lập trình:
Program: tên chương trình
Uses: tên thư mục chứa sẵn các câu lệnh lập trình (thường là crt)
Var: tên biến và kiểu dữ liệu của biến lập trình
Const: kí tự chứ giá trị và giá trị của kí tự

Begin: bắt đầu lập trình
Clrscr: xóa màn hình kết quả
Write hoặc Writeln: in ra màn hình các kí tự mình muốn hiển thị
Read hoặc Readln: đọc dữ liệu hoặc hiện ra kết quả
Delay: dừng chạy chương trình cho đến thời gian nhất định
if <> then <> else: chạy chương trình theo điều kiện người lập trình đưa ra
...

SAU ĐÂY LÀ BẢN LẬP TRÌNH TRÒ CHƠI ĐỐ VUI DO MÌNH TỰ LẬP TRÌNH RA

Để sao chép bản lập trình này Free Pascal, các bạn không thể sử dụng theo cách truyền thống (Ctrl+C hoặc Ctrl+V) mà phải làm theo cách sau:

Bước 1: Đánh dấu phần cần sao chép (các bạn hãy đánh dấu từ đầu đến cuối bản lập trình bằng cách kéo thả chuột từ đầu đến cuối nhé). Nhấn tổ hợp phím Ctrl+C.

Bước 2: Vào Free Pascal, nháy chuột vào Edit, sau đó nhấn vào Paste from Window. Bản lập trình đã được sao chép vào Free Pascal.

Bước 3: Các bạn nhấn tổ hợp phím Ctrl+F9 để chạy chương trình và làm theo hướng dẫn:

SAU ĐÂY LÀ BẢN LẬP TRÌNH

Program Do_vui;
uses crt;
var a,b:integer; c:real;
x,y,z:string;
Begin
Clrscr;
Writeln ('Chao mung cac ban da den voi tro choi DO VUI!');
Delay (900);
Writeln ('Trong khi choi, nhan chon dap an ban muon chon va nhan Enter (Luu y: Dap an la so, neu ban nhap chu hoac khac dap an dung, tro choi se tinh la sai!)');
Delay (1000);
Writeln ('Bay gio thi cung do vui thoi!');
Delay (2000);
Writeln ('Cau hoi 1: What la cai gi?');
Writeln ('1. What la cai gi.');
Writeln ('2. What la cai gi.');
Readln (a);
if (a=2) then Writeln ('DUNG ROI!') else Writeln ('SAI MAT ROI! BAN CHOI DO QUA DI THOI!');
Delay (2000);
Writeln ('Hen gap lai ban sau!');
Readln;
End.

CHÚC CÁC BẠN THÀNH CÔNG!
HÃY LIKE, BÌNH LUẬN HOẶC CHIA SẺ ĐỂ ỦNG HỘ MÌNH NHÉ@@