... lý thuyết, phần bàitập mẫu và cuối cùng là phần bàitập tự giải để bạn đọc tự
mình kiểm tra những kiến thức và kinh nghiệm đã học. Trong phần bàitập mẫu, đối với
những bàitập khó hoặc có ... to’)
Else Writeln(N,’ khong phai la so nguyen to’);
End;
Readln;
End.
BÀI TẬP TỰ GIẢI
23
Giáo trình bàitậpPascal
Bài tập 3.2: Viết chương trình giải phương trình bậc nhất ax+b=0
Uses Crt;
Var ... d:=d+1;
NGUYENTO:=d=0;
32
Giáo trình bàitập Pascal
End;
Readln;
End.
Bài tập 5.10: Viết chương trình nhập vào 2 mảng số nguyên A, B đại diện cho 2 tập hợp
(không thể có 2 phần tử trùng nhau trong một tập hợp). Trong...
... tại các vị trí ngẫu
nhiên, màu ngẫu nhiên.
2
BÀI TẬP MÔN: NGÔN NGỮ LẬP TRÌNH (PASCAL)
(Kể từ bàitập này sinh viên cần lần lượt giải quyết các bài tập
theo tiến độ học lý thuyết – không đặt ... phím.
PHỐI HỢP CÁC KIỂU DỮ LIỆU:
1
Bài/ câu có dấu (*) là không bắt buộc. Chỉ dành cho sinh viên có năng lực toán học tốt.
5
BÀI TẬP MÔN: NGÔN NGỮ LẬP TRÌNH (PASCAL) (Bài 2 – 3 tiết)
Các thủ tục/hàm ... gồm các nút
còn lại của danh sách dài hơn)
8
7. XÂY DỰNG CÁC UNIT: Sau khi thực hiện xong bàitập trên đây thì đưa tất cả
các Procedure và Function đó vào một unit tên là My_Unit. Biên dịch...
... dòng .
Bài giải:
35
Bài tập ngôn ngữ lập trình PasCal Biên soạn: Hoàng Đức Hà
Bài tập chơng 6
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 .
Bài giải:
... ng«n ng÷ lËp tr×nh PasCal Biªn so¹n: Hoµng §øc Hµ
Readln;
END .
29
Bài tập ngôn ngữ lập trình PasCal Biên soạn: Hoàng Đức Hà
Bài tập chơng 7
Cấu trúc dữ liệu kiểu Record:
Bài 1 :
Thông tin ... ch in tap then Write(ch,' ');
33
Bài tập ngôn ngữ lập trình PasCal Biên soạn: Hoàng Đức Hà
Bài tập chơng 10
Làm việc với hình ảnh (Graphic):
Bài 1 :
Vẽ hình chữ nhật có tâm trùng với...
... đến j và bằng 1 nếu có đ-
- 8
Lê Ngọc Thắng hop_thu_cua_bodie_37@yahoo.com
Bài tập cơ bản Tập I
Các bàitập cơ bản
Bài 1. Viết chơng trình nhập số nguyên dơng N<=1000 và N số nguyên A[1], ... ghi
trong các lá Bài từ lá Bài 1 đến lá Bài N.
Dữ liệu ra ghi ra file OUT.BL2 trong đó dòng thứ nhất ghi số lợng lá bài. Trong các
dòng tiếp theo, mỗi dòng ghi 10 số hiệu của các lá Bài đợc chọn, ... quả cầu J.
Bài 29. Có N lá Bài với các số hiệu 1, 2, . . ., N, N<=50, trên lá Bài i ghi một số
nguyên dơng F[i], 1<=F[i]<=N. HÃy tìm một số nhiều nhất các lá Bài sao cho tập các số
hiệu...
... BàitậpPascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN GV: Trần Minh Thọ
BÀI TẬP CƠ BẢN - Đáp án ++
1. Viết chương trình tính điểm trung bình ... abc6ghj7kkkkk1hhhh9
Kết quả: abc1ghj6kkkkk7hhhh9
var a:array[1 100]of integer;
Bài tậpPascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN GV: Trần Minh Thọ
4. VCT giải hai bài toán cổ: 100 trâu 100 bó cỏ và vừa gà vừa chó 36 con ... ucln:=min;
end;
write('ucln ',ucln);
write('bcnn ',a*b/ucln:1:1);
readln;
end.
Bài tậpPascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN GV: Trần Minh Thọ
repeat
ch:=readkey;
write('*');
s:=s+ch;
until...
... nhau thì in ra hết.
ví dụ:
Input Output
Nguyen van truong truong
4
Truong thich hoc pascal Truong
pascal
5
BÀI 5: DÃY CON LỚN NHẤT
Cho một mảng số ngun gồm n phần tử. Tìm dãy con gồm m phần tử ... ra số chữ số đầu tiên lớn nhất tạo thành số đơn điệu.
Input Output
37486398 5
859672534163 12
BÀI 8: SỐ NGUYÊN TỐ GHÉP
Xét dãy A các số ngun tố 2, 3, 5, 7, 11, 13, 17, 19,
và dãy B gồm các ... ghép.
u cầu: Cho trước số ngun dương K ≤ 500, hãy tìm số ngun tố ghép thứ
K.
Input Output
2 3137
BÀI 9: TỔNG 2 SỐ NGUYÊN TỐ
Trong mt bc th mà Christian Goldbach gi cho Euler, ơng ã cp...
... Bàitập 3: Viết chương trình nhập vào 2 dãy số nguyên (a)
n
và (b)
m
, m≤n. Kiểm tra xem
dãy {b} có phải là dãy con của dãy {a} không?
Bài tập 4: Viết chương trình ... theo đường zigzag như hình vẽ
Bài tập 11: Viết chương trình để nén và giải nén một xâu ký tự .
Ví dụ: Xâu ‘AAAABBBCDDDDDDDEEF’ sau khi nén sẽ trở thành ‘4A3BC7D2EF’.
Bài 12: CHo mảng số thực vuông ... phần tử trên mỗi
dòng.
Bài 6: Tìm điểm cực tiểu của mảng hai chiều
Một phần tử được gọi là điểm cực tiểu của mảng 2 chiều A[m.n] nếu nó không lứon hơn
các phần tử kề nó
Bài 7: Tìm " Phần...
... cách 1 ô về phía bên phải.
Bài tập 2: Viết chương trình in ra màn hình tam giác Pascal. Ví dụ, với n=4 sẽ in ra hình
sau:
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
Ý tưởng:
Tam giác Pascal được tạo ra theo ... Bàitập 11: Viết chương trình để nén và giải nén một xâu ký tự .
Ví dụ: Xâu ‘AAAABBBCDDDDDDDEEF’ sau khi nén sẽ trở thành ‘4A3BC7D2EF’.
Bài 12: CHo mảng số thực vuông ... 'boi'. Bạn hãy lập trình để
a) Mã hóa một văn bản ( xâu kí tự)
b)Giải mã một văn bản đã mã hóa
Bàitập 1: Viết chương trình nhập vào số tự nhiên N (N lẻ), sau đó điền các số từ 1 đến
n
2
vào trong...
... 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;...
... Write(a[i]:8);
Readln;
End.
6. Làm bài t ng t bài 3. i m khác bi t là ch file d li u không có dòng đ u tiênươ ự Đ ể ệ ở ỗ ữ ệ ầ
ghi t ng s d li u nh trong bài 3. Ch ng trình ph i t ki m tra và ... reset(f);
i:=1;
Repeat
Readln(f,a[i]);
inc(i);
Until seekEof(f);
n:=i-1;
For i:=1 to n do Writeln(a[i]);
Readln;
End.
7. Làm bài t ng t bài 4. i m khác bi t là ch file d li u không có dòng đ u tiênươ ự Đ ể ệ ở ỗ ữ ệ ầ
ghi n, ch ... 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...