bài tập lập trình l

Ngày tải lên: 09/08/2012, 23:24

... 1) Loop Until i <= 0 Text1.Text = s Else Label1.Caption = "Khong co bat ky tu 'em' nao trong cau !!" End If End Sub Private Sub Form_Load() Text1.Enabled = False End Sub Bài ... Sub Form_Load() Text1.Enabled = False End Sub Bài 15 Thay thế tất cả các từ “em” trong câu thành “anh”. Nếu không có từ “em” thì báo l không có Private Sub Command1_Click() Text1.Enabled = True End ... " ky tu la chu so" Text1.Text = kq Text2.Text = Str(tong) End Sub Private Sub Form_Load() Text1.Enabled = False End Sub Bài 14 Đếm số l ợng chữ thường và chữ hoa trong câu nhập Bài 11 Kiểm...

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

... scan code,… Bài 2: Viết chương trình xuất một chuỗi l n giữa vùng cữa sổ client. Sau đó có thể dùng các phím di chuyển để dịch chuyển chuỗi trên vùng cửa sổ. Bài 3: Viết chương trình vẽ một ... BÀI TẬP CHƯƠNG 4 Bài 1: Viết chương trình chặn các thông điệp bàn phím và thông điệp chuột - Khi người dùng click chuột thì thông báo nút chuột vừa được ... chuột vừa click, khi người dùng nhấn phím cộng (“+”) hoặc trừ (“-”) thì phóng to, thu nhỏ hình tròn mỗi l n 10 pixel. Bài 5: Viết ứng dụng hiển thị ngày giờ hệ thống như hình vẽ sau: Bài 6: Viết...

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

... báo l i. - Khi người dùng nhấn nút Close, form Student Detail sẽ đóng l i. Bài 2: - Viết ứng dụng minh họa cách sử dụng dialog có giao diện như trong hình vẽ - Sau khi người sử dụng chọn các loại ... người sử dụng chọn các loại nút sẽ hiển thị, icon sẽ hiển thị và nhấn nút Display chương trình sẽ hiển thị l n dialog tương ứng với các thông số đã được chọn. Ví dụ: - ...

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

... kiện Output 1 Output 2 N=0 0 0 N<0 0 1 N>1 1 0 N=1 1 1 (Hướng dẫn : l p bảng chân trị, để ý N<0 khi bit đầu tiên l 1 và don’t care cho những bit còn l i) 3. Rút gọn và vẽ sơ đồ mạch ... kế một mạch logic (l p bảng chân trị, dùng bản đồ Karnaugh để đơn giản, vẽ mạch) với các đầu vào l hai số x 1 x 0 , y 1 y 0 và các đầu ra như sau: - Đầu ra f1 có trị 1 khi (ngược l i có trị ... kế một mạch logic (l p bảng chân trị, dùng bản đồ Karnaugh để đơn giản, vẽ mạch) với các đầu vào l hai số x 1 x 0 , y 1 y 0 và các đầu ra như sau: - Đầu ra f1 có trị 1 khi (ngược l i có trị...

Ngày tải lên: 12/09/2012, 16:40

Ngày tải lên: 13/09/2012, 09:21

Ngày tải lên: 13/09/2012, 09:21

Ngày tải lên: 13/08/2013, 16:40

Ngày tải lên: 13/08/2013, 16:40

Ngày tải lên: 14/08/2013, 15:03

... UNION(R1,R2:INTEGER); VAR X:INTEGER; BEGIN X:=LAB[R1]+LAB[R2]; IF LAB[R1]>LAB[R2] THEN BEGIN LAB[R1]:=R2; LAB[R2]:=X; END ELSE BEGIN LAB[R1]:=X; LAB[R2]:=R1; ... AH(ROOT,LAST:INTEGER); VAR KEY:CANH;CON:INTEGER; BEGIN KEY:=E[ROOT]; WHILE ROOT*2<=LAST DO BEGIN CON:=ROOT*2; IF (CON<LAST)AND(E[CON+1].C<E[CON].C) THEN INC(CON); IF KEY.C<=E[CON].C ... E[ROOT]:=KEY; END; {========================================================== ==========} PROCEDURE KRUSKAL; VAR I,R1,R2,COUNT,A:INTEGER;TMP:CANH; BEGIN BEGIN IF NOT CONNECTED THEN WRITELN(F2,'DO THI KHONG LIEN THONG') ELSE BEGIN WRITELN(F2,'CAY KHUNG NHO NHAT LA:'); ...

Ngày tải lên: 19/08/2013, 09:35

... trinh - Du lieu lay tu File.'); Writeln; writeln(' R(andom). Chay chuong trinh - Du lieu Random.'); Writeln; writeln(' Q(uit). Thoat khoi chuong trinh.'); Writeln; ch:=ReadKey; ... writeln(' '); writeln(' Hay bam phim chuc nang:'); Writeln; writeln(' K(eyboard). Chay chuong trinh - Du lieu nhap tu ban phim.'); Writeln; writeln(' F(ile). ... gettime(h,m,s,hund); end; writeln(f); writeln(f,'Length: ',DodaiCayKhung); close(f); end; { } begin repeat clrscr; writeln('THUAT TOAN PRIM TIM CAY KHUNG NHO NHAT'); writeln(' DUNG...

Ngày tải lên: 19/08/2013, 09:35

... fillellipse(320,240,640,480); setfillstyle(1,12); fillellipse(120,360,65,65); setfillstyle(1,16); fillellipse(105,335,57,57); setfillstyle(1,11); fillellipse(105,389,54,54); setfillstyle(1,14); fillellipse(105,360,51,51); ... Writexyso(i*4-3,dong-4,159,f1[i]);Writexyso(j*4-3,dong+4,159,f2[j]);delay(tg); End; Procedure clrr; end; Until l = 7; end; procedure gt; var gd,gm,x,y,m,dem:integer; procedure duongtron; Var x,y : Integer; Begin setlinestyle(0,0,1); setfillstyle(1,4); fillellipse(320,240,640,480); ... writexyso (l* 4-3,dong,47 ,l) ; writexyso(r*4-3,dong,47,r); end; until i>j; writexyso (l* 4-3,dong,old ,l) ; writexyso(r*4-3,dong,old,r); if l& lt;j then Sort (l, j); l: =0; case dc of #80:if i<7...

Ngày tải lên: 19/08/2013, 09:35

... SINHVIEN.MAKHOA=KHOA.MAKHOA and LANTHI=1 group by HOSV,TENSV,TENKHOA constraint PK_MONHOC_MAMH primary key (MAMH) ) create table KETQUA( MASV char(5) NOT NULL, MAMH char(5) NOT NULL, LANTHI decimal NOT NULL, DIEM ... references KHOA(MAKHOA) ) create table MONHOC( TENMH nvarchar(50) NOT NULL, MAMH char(5) NOT NULL, SOTIET int, having count(*)>=ALL(select count(*) as [So Luong] from SINHVIEN,KHOA where ... mon CSDL o lan thi thu nhat 24: Cho biet sinh vien nao rot mon CSDL o lan thi thu nhat ma chua thi lai lan 2 25: Dem so luong sinh vien cua khoa 'Quan Tri Kinh Doanh' 26: Dem so luong...

Ngày tải lên: 19/08/2013, 09:35

... return false; } return true; } else return false; } public static void lietKeSNT(int n){ int i=1,count=0; System.out.println("Cac so nguyen to nho hon "+n+" la: "); while(i<n){ if(checkSNT(i)){ System.out.print(" ... e){ System.out.println("Ban phai nhap so! hay nhap lai "); input.nextLine(); } } return (n); } public static float nhapFloat(){ Scanner input= new Scanner(System.in); boolean check= false; float ... "+n+ " "); lietKe(n); } } Bài 06 : package bai06; import java.util.Scanner; public class Main { public static void lietKe(int n){ int i=2,count=0; while(count<n){ if(cachamchung.checkSNT(i)){ System.out.print("...

Ngày tải lên: 19/08/2013, 09:39

Ngày tải lên: 20/08/2013, 15:35

Ngày tải lên: 20/08/2013, 15:35

Ngày tải lên: 20/08/2013, 15:35

Ngày tải lên: 20/08/2013, 15:35