... 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ẢI23Giá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=0Uses Crt;Var ... d:=d+1;NGUYENTO:=d=0;32Giá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.2BÀ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.5BÀ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)87. 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 10Là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 ICá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], ... ghitrong 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ácdò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 ... abc6ghj7kkkkk1hhhh9Kết quả: abc1ghj6kkkkk7hhhh9var 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ọrepeatch:=readkey;write('*');s:=s+ch;until...
... nhau thì in ra hết.ví dụ:Input OutputNguyen van truong truong 4Truong thich hoc pascal Truong pascal 5BÀI 5: DÃY CON LỚN NHẤTCho 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 Output37486398 5 859672534163 12BÀI 8: SỐ NGUYÊN TỐ GHÉPXé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 Output2 3137BÀ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ềuMộ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ìnhsau:11 11 2 11 3 3 11 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 đếnn2 vào trong...
... reset(fou);For i:=1 to n doBegin 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;Beginm:=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;RepeatReadln(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 doBegin 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...