CAC BAI TAP PASCAL HAY doc

... CÁC BÀI TẬP PASCAL HAY DÀNH CHO HS LỚP 9 BÀI 1 : 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 ... bằng 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ích tam giác MCN. 2.Tìm giá trị lớn nhất và giá trị nhỏ nhất của diện...

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

... '); 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) Else ... 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 &...

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

... If S>Max Then {Nếu dãy con tìm được có tổng lớn hơn dãy con trước} Begin Max:=S; {Thay tổng mới} k:=i; {Thay vị trí đầu tiên của dãy con mới} End; End; Writeln('Day con co tong lon nhat ... tập 5.12: 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 qui luật sau: + Mỗi dòng đều...

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

... Nhập 3 số a , b , c bất kì . Hãy kiểm tra xem ba số đó có thể là độ dài ba cạnh của một tam giác hay không ? Thông báo lên màn hình ‘ Thỏa mãn ‘, ‘ Không thỏa mãn trong từng trường hợp tương ứng ... kì . Đếm các số lớn hơn 10 và nhỏ hơn 20 và tính tổng của chúng . Sau đó , đưa ra màn hình :So cac so >10 và <20 la : ( gia tri ) ;Tong cua chung la : ( gia tri ) GIẢI Var Tong , So : Re...

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

... r1,r2,d>0). Xác định vị trí tương đối giữa 2 đường tròn(cắt nhau, tiếp xúc nhau hay khơng cắt nhau) Program bai1 8; Uses crt; Var r1,r2,d:real; Begin Clrscr; Writeln(‘vi tri tuong doi giua 2 ... trong Pascal? Câu 2: Cho các câu lệnh sau: a) if (15 mod 2) = 0 then X:= X + 1 b) if X > 5 then X:= X + 1; Giá tri của X là bao nhiêu nếu giá trị của X trước đó là 2. Câu 3 : Các câu lệnh P...

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

... Bài tập pascal 11 Bài tập 1:Nhập ba số bất kỳ kiểm tra ba số vừa nhập có phải là ba cạnh của tam giác hay không? Var a , b , c : Real ; BEGIN Writeln ... trình nhập tệp tin và tính số phần tử tệp vừa nhập Uses Crt; Type Tap= set of 0 99; Const inp='Number.dat'; Var S : Tap; i : byte; Procedure Nhap; Var a: byte; f: text; Begin S:=[]; ... Close(f); End; Function...

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

... bo cac phan tu khoi tap hop *) Uses Crt; Var tap: set of char; ch: char; BEGIN tap: =[]; Writeln('Nhap cac phan tu cho mot tap hop cac ki tu: '); Repeat ch:=ReadKey; tap: =tap+ [ch]; ... END. 2) Uses Crt; Var tap: set of char; ch: char; BEGIN tap: =[]; Writeln('Nhap cac phan tu cho mot tap hop cac ki tu: '); Repeat ch:=ReadKey; tap...

Ngày tải lên: 28/11/2013, 23:11

... rồi. Docking (gắn vào) Khi ta Dock một control vào một cạnh của form có nghĩa là ta dán dính nó vào cạnh đó. Áp dụng ta thường thấy nhất của Docking là ToolBar và StatusBar. ToolBar thì dock ... Bottom, Left hay Right), cái hình vuông ở giữa tượng trưng cho trị số Fill, và thanh dưới chót có chữ None cho phép ta xóa không chọn trị số Dock nào cả Khi ta click một thanh, trị số Docking tương...

Ngày tải lên: 10/12/2013, 14:15

... bo cac phan tu khoi tap hop *) Uses Crt; Var tap: set of char; ch: char; BEGIN tap: =[]; Writeln('Nhap cac phan tu cho mot tap hop cac ki tu: '); Repeat ch:=ReadKey; tap: =tap+ [ch]; ... END. 2) Uses Crt; Var tap: set of char; ch: char; BEGIN tap: =[]; Writeln('Nhap cac phan tu cho mot tap hop cac ki tu: '); Repeat ch:=ReadKey; ta...

Ngày tải lên: 26/12/2013, 19:57

... Hùng Vương – Phú Thọ – ĐT 01689 186 513 PHẦN 3 : PHÂN TÍCH VÀ HƯỚNG DẪN GIẢI CÁC BÀI TẬP HÓA HAY VÀ KHÓ TRONG ĐỀ THI ĐẠI HỌC, CAO ĐẲNG NĂM 2013 Ở phần này, ta sẽ vận dụng những phương pháp ... kết quả cao trong kỳ thi Đại học, Cao đẳng năm 2014. I. Phân tích và hướng dẫn giải các bài tập hay và khó trong đề thi Đại học, Cao đẳng năm 2013 1. Phương pháp bảo toàn electron Câu 16 – Mã

Ngày tải lên: 14/01/2014, 23:42