bài tập pascal hay

Ngày tải lên: 01/08/2013, 05:41

Ngày tải lên: 25/09/2013, 19:10

Ngày tải lên: 27/09/2013, 01:10

Ngày tải lên: 28/09/2013, 13:10

Ngày tải lên: 01/11/2013, 06:11

Ngày tải lên: 27/06/2014, 16:20

Ngày tải lên: 07/07/2014, 22:00

... 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 ... văn bản đã mã hóa Bài 14 : Để mã hóa một văn bản gồm toàn chữ cái tiếng Anh người ta có thể làm như sau: Thay mỗi kí tự bằng kí tự đứng sau nó trong bảng chữ cái, riêng z thay bằng a . Ví dụ ... 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...

Ngày tải lên: 16/07/2013, 01:26

... nhau thì in ra heát. ví duï: Input Output Nguyen van truong truong 4 Truong thich hoc pascal Truong pascal 5 Bài 12: Dãy con lớn nhất Cho một mảng số nguyên gồm n phần tử. Tìm dãy con gồm m phần ... 3 6 3 1) Thông báo: SO HANG XUAT HIEN NHIEU NHAT LA SO: 3 VI TRI TUONG UNG TRONG DAY LA: 3 4 6 Bài 8 : XẾP GẠCH. Minh rất thích trò chơi xếp các chiếc hộp có hình viên gạch. Minh đặt các viên ... ta có dữ liệu vào, ra: Input Output 6 5 2 4 1 7 5 5 7 9 9 9 9 9 9 9 Khong can di chuyen lan nao Bài 9 : Sắp số trong xâu 1. Nhập một xâu s bao gồm số và kí tự, in ra xâu đã sắp xếp số theo thứ...

Ngày tải lên: 20/07/2013, 01:28

Ngày tải lên: 16/08/2012, 09:03

Ngày tải lên: 16/08/2012, 09:03

... Writeln('De '); Writeln('Cu '); Readln End. *********0108********* Program Tam_giac _Pascal; Begin Writeln(' 1'); Writeln(' 1 1'); Writeln(' 1 2 1'); ... Write('-Nhap mot so thuc = '); Readln(so_thuc); Writln; GIAO TRINH LY THUYET VA BAI TAP TURBO PASCAL- CHUONG 1 Dang Thanh Tuan(15/3/2004) **********0101********** Program PTB2; Var a,b,c:Integer;...

Ngày tải lên: 17/08/2012, 09:04

... lý thuyết, phần bài tập mẫu và cuối cùng là phần bài tậ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ài tập mẫu, đối với những bài tậ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ài tập Pascal 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ài tậ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...

Ngày tải lên: 17/08/2012, 10:48

... GIAO TRINH LY THUYET VA BAI TAP TURBO PASCAL- CHUONG 1 Dang Thanh Tuan(15/3/2004) **********0101********** Program PTB2; Var a,b,c:Integer; ...

Ngày tải lên: 31/08/2012, 09:33

... 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ài tậ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 ... (*) 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 đã học: Textmode(), Textcolor(), TextBackGround(), ... 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ài tậ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...

Ngày tải lên: 13/11/2012, 12:03

Ngày tải lên: 01/03/2013, 17:01

... Tp.HCM 1/2 Hướng dẫn làm bài tập Project hay Đồ án môn học oOo 1. Phạm vi áp dụng: Hướng dẫn này được áp dụng cho các bài thực hành giữa kỳ (bài tập project) vàv các bài đồ án cộng điểm của ... OOP 2. Yêu cầu chung: - Thường các bài tập Project hay đồ án sẽ được yêu cầu nộp 2 phần chính:  Sưu liệu: là phần tài liệu .DOC đi kèm, để mô tả bài tập. Chỉ nộp file. Xem phần [3] để biết ... mềm vì có thể thất lạc hay hư hỏng.  GV sẽ không nhận bất kỳ bài nộp nào qua email, vì bất kỳ lý do gì. GV cũng sẽ không trả lời email gởi nộp bài, và đương nhiên, bài nộp đó coi như không...

Ngày tải lên: 28/04/2013, 21:02

Ngày tải lên: 31/05/2013, 00:21

Ngày tải lên: 05/06/2013, 01:26

... '); Readln(x); i:=1; Thay:= False; While (i<=n) And (not Thay) do If x = M[i] then Thay:= true Else i:=i+1; If thay then Writeln('So ',x,' tim thay tai vi tri ',i) ... Write('So ',x,' tim thay tai cac vi tri la:'); Thay:= False; For i:=1 to n do If x = M[i] then Begin Thay:= true; Write(i:3); End; If not thay then Writeln('Khong co ... M: Array[1 100] of Integer; i,n: 1 100; x: Integer; Thay: Boolean; BEGIN Writeln('Chuong trinh tim xem x co thuoc day so nguyen hay khong?'); Write('Nhap day so, co so phan...

Ngày tải lên: 15/06/2013, 01:26