... reset(fou);
For i:=1 to n do
Begin Readln(fou,atg); Writeln(atg); End;
close(fou);
Readln;
End.
15. Đầu bài giống bài trên. Hãy viết chương trình để thực hiện các công việc sau:
- Đếm xem trong lớp có bao ... chứa một chương trình Pascal hoàn chỉnh. Trong chương trình này trên một
dòng có thể chứa nhiều lệnh.
Em hãy viết chương trình in ra file mới có tên BLMOI.PAS chương trình Pascal trên sao cho ...
Writeln(ht[i],t[i]:4,xl[i]:3);
Readln;
End.
11. Thực hiện tất cả các thao tác với các dạng file văn bản như trong phần Câu hỏi, ví dụ, bàitập nhưng theo
chiều ngược lại, tức là thực hiện các thao tác ghi.
(Bai 1)
Var f:text;
m,n:integer;
Begin
m:=10;...
... thuyết và Bàitập lập trình Pascal 5.5-6.0 Nguyễn Thị Kiều Duyên
4. Lý thuyết và bàitậpPascal Hạnh Nguyên.
5. Một số sáng kiến kinh nghiệm và ý kiến của đồng nghiệp.
6. Một số bàitập tham ... phương pháp giúp học sinh
giải bàitậpkiểu xâu”, giúp các em nắm được kiểu dữ liệu có cấu trúc- kiểu xâu và ứng
dụng của kiểu dữ liệu này trong thực tiễn (Chương IV -bài 12-tin học 11).
3/ Mục ... Đưa ra 1 số bàitập để học sinh thảo luận qua đó nắm vững được kiểu dữ liệu
có cấu trúc: kiểu xâu. Hình thành ở học sinh kỹ năng phân tích, xử lý các vấn đề liên
quan đến bàitậpkiểu xâu, sử...
... ; END .
* Bài 3 :Cho số tự nhiên n , hãy lập trình để tính các tổng sau :
a. a. 1 + 1/2
2
+ 1/3
2
+ … + 1/n
2
b. b. 1 + 1/2! + 1/3! + … + 1/n!
GIẢI
BÀI TẬP CƠ BẢN TRANG 6
BÀITẬP CƠ BẢN
... Gotoxy(5, 6); Write(1);
Gotoxy(5, 8); Write(2);
BÀI TẬP CƠ BẢN TRANG 26
BÀITẬP CƠ BẢN
Write('Bam Enter de ket thuc ');
Readln;
END.
Bài 3 :
Xét chương trình sau :
Program B4 ;
Var
... thúc chương
trình . Trong chương trình phải dùng một tập hợp để kiểm tra việc nhập giá trị cho biến từ bàn
phím .
BÀI TẬP CƠ BẢN TRANG 37
BÀITẬP CƠ BẢN
End ;
inc ( j ) ;
Until j > m ;
...
... S);
Readln;
END .
BÀI TẬP CHƯƠNG 6: DỮ LIỆU KIỂUTẬP
Bài 1 : Bạn hãy viết hàm Card(A) đếm số phần tử của tập hợp A
cho trước có kiểu Set Of 0 99 .
(* hàm đếm số phần tử của tập hợp *)
Uses Crt;
Type ... & THCS Phương Ninh BÀITẬP CƠ BẢN
GV: Diệp Thanh Toàn Trang 13
BÀI TẬP CHƯƠNG 3:CHƯƠNG TRÌNH CON
Bài 1 :Dùng thủ tục chuyển một số tự nhiên n cho trước sang hệ cơ
số 2 .
GIẢI
Procedure Change ... ');
Readln;
END .
BÀI TẬP CHƯƠNG 4: CẤU TRÚC DỮ LIỆU MẢNG
Bài 1: Giải hệ phương trình tuyến tính hai ẩn dùng ma trận :
a
11
x + a
12
y = c
1
a
21
x + a
22
y = c
2
GIẢI
Uses Crt;
Var a:...
... Readln;
END .
BÀITẬP CHƯƠNG 4: CẤU TRÚC DỮ LIỆU MẢNG
Bài 1 :
Giải hệ phương trình tuyến tính hai ẩn dùng ma trận :
a
11
x + a
12
y = c
1
BÀI TẬP CÔ BAÛN TRANG 21
BÀITẬP CƠ BẢN
S := ... Write('Nhan Enter de ket thuc ');
BÀI TẬP CÔ BAÛN TRANG 17
BÀITẬP CƠ BẢN
END.
Bài 2 :
Bạn hãy lập chương trình tạo một tập hợp các số nguyên chẵn kiểu Byte và loại khỏi nó các
số chia ... Clrscr;
BÀI TẬP CƠ BẢN TRANG 49
BÀITẬP CƠ BẢN
If (X+Y+Z=12) then Writeln(' x=',X,' y=',Y, 'z=',Z);
Readln;
End.
Bài 6 :
Cho trước các số N , a , b , c tự nhiên . Giải...