... 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;...
... 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/22 + 1/32 + … + 1/n2 b. b. 1 + 1/2! + 1/3! + … + 1/n! GIẢIBÀ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 Acho 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ẢNGV: Diệp Thanh Toàn Trang 13BÀ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ẢIProcedure 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 :a11x + a12y = c1a21x + a22y = c2GIẢIUses 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 :a11x + a12y = c1BÀ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...