... n dobegin16 Bàitập 8 .11: Viết chương trình sao chép nội dung của một file cho trước vào file khác, tên của file nguồn và file đích được nhập từ bàn phím khi chạy chương trình. Program Sao_chep_File;const ... trong quá trình thực hiện chương trình. - Cú pháp: VAR <Tên biến>[,<Tên biến 2>, ] : <Kiểu dữ liệu>;44 Bàitập 8.1: Tạo một file SINHVIEN.DAT để lưu thông tin của một lớp sinh ... readln;End. Bài tập 8.5: In ra màn hình toàn bộ nội dung của một file văn bản, tên file được được nhập từ bàn phím khi thực hiện chương trình. Program Vidu_5;Var f: Text;9 Bài tập 2.1: Viết...
... (ngay 14) vào stt.Giải quyết bài toán với ngôn ngữ C- Khai báo các thư viện sử dụng- Định nghĩa hàm main( ) là hàm chính của chương trình có mục tiêu là giải quyết bài toán với 3 bước trên:+ ... : stt := stt + 31; 4,6,9 ,11: stt := stt + 30; 2 : stt := stt + 28;Else stt := stt + ngay;end; Writeln(‘Ngay thu ‘, stt, nam); // Xuat ket qua Readln; End . Bài toán ngược: Có số thứ ... lời “N la so nguyen to” hoặc “N khong phai la so nguyen to” tùy theo giá trị của biến Chương trình: Program SNT;Uses crt;Var n , i :Integer; // Khai bao bien su dungBEGINWrite(‘Nhap vao...
... max:=y-z else if max<(z-x)then17 Bàitậplậptrình pascal I. Cấu trúc tuần tự Bài 1: Lập chơng trình nhập vào 4 số. Tính tổng, tích, trung bình cộng các số đó. Bài 2: Tính chu vi của đa giác ... WHILE Bài 1: Viết phơng trình phân tích sốn thành thừa số nguyên tố. Bài 2: Lập phơng trình nhập vào một số tự nhiên n. Tính giá trị biểu thức n! = 1.2.3 n và 2n Bài 3: Lập phơng trình ... Viết phơng trình nhập vào một xâu.Kiểm tra xem xâu đó có phải là xâu đối xứn hay không? Bài 5: Viết phơng trình nhập 2 xâu. HÃy ghép 2 xâu lại thành 1 xâu mới. Bài 6: Lập phơng trình vào...
... " ;Pascal& quot;, 1)Do While i > 0 dem = dem + 1 i = i + 6 i = InStr(i, s, " ;Pascal& quot;, 1)LoopText2.Text = " Trong cau nhap co " & Str(dem) & " tu &apos ;Pascal& apos;"End ... Str(tong)End SubPrivate Sub Form_Load()Text1.Enabled = FalseEnd Sub Bài 14 Đếm số lượng chữ thường và chữ hoa trong câu nhập Bài11 Kiểm tra tính tăng, giảm của mảng nhậpDim a(100), n, iPrivate ... nhap A(" & Str(i) & ")", "Nhap mang A")Next iEnd Sub Bài 12 Đếm số từ Pascal (không phân biệt chữ thường, chữ in) trong câuPrivate Sub Command1_Click()Text1.Enabled...
... BÀITẬ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 ... 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 ... 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 dụng hiển thị giờ hệ thống như hình vẽ sau: Bài 7: Viết ứng dụng hiển thị giờ hệ thống như hình vẽ sau:Bài...
... 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 nút sẽ hiển thị, icon sẽ hiển thị và nhấn nút Display chương trình...
... của các hàm cho dưới dạng sau :a/ b/ Bảng Karnaugh của hàm g như sau : CDAB 00 01 11 1000 1 101 1 1 11 10 1 1c/ Hàm h có bảng chân trị như sau:AB C D h(A,B,C,D)0 0 0 0 10 0 0 1 10 ... cho dưới dạng sau : (4 Điểm). a/ b/ Bảng Karnaugh của hàm g như sau : CDAB 00 01 11 1000 1 101 1 1 11 110 1 1 1c/ Hàm h có bảng chân trị như sau :AB C D h(A,B,C,D)0 0 0 0 10 0 0 1 ... 01 0 1 0 01 0 1 1 0Obj128Obj129 a/ Có hàm sau : b/ Bảng Knaugh như sau :00 01 11 1000 1 101 1 1 11 10 1 1c/ Có bảng chân trị như sau :A B C D (A.B.C.D)0 0 0 0 10 0 0 1 10 0 1 0...
... + + ữ+ Bài 12(sbt):a)cho phơng trình : 1+6 +11+ 16++x=970; tìm x biết 1, 6, 11, x là cscb)giải phơng trình (x+1)+(x+4)+(x+7)++(x+28)=155. biết 1, 4, 7,28 là một cscc)giải phơng trình 2+7+12++x=245, ... cscd)(2x+1)+(2x+6)+(2x +11) ++(2x+96)=1010, biết 1, 6, 11 96là csc Bài 13(snc-7): có tồn tại hay không một csc, sao cho csc ấy chứa đồng thời ba phần tử 1, 3 , 3. Bài 14(sbt -112 ): có thể có một ... vi của nó lập thành một csc đợc hay khôngB i 15: có thể có một tam giác vuông mà số đo các cạnh của nó lập thành một csc không? Bài 15:(dht-412-)Tìm m để phơng trình sau có 4 nghiệm lập thành...
... Prim_Algorithm;{chuong trinh nay cai dat bang mang}uses dos,crt;const max=150;fname='D: \Pascal\ File\Prim.txt';type filename=string[12];var TrongSo: array[1 max,1 max] of integer;{ma ... for i:=1 to n do Begin For j:=1 to n do var i: integer; f: text;begin assign(f,'D: \Pascal\ Prim.out'); rewrite(f); Writeln(f,' '); Writeln(f,'Ma tran trong so,...
... Son' va phai thanh 'Nam'10: Chuyen sinh vien 'Le Thi Lan Anh' sang khoa CNTT 11: Cho biet ket qua hoc tap cua sinh vien co ma S00712: Liet ke nhung sinh vien sinh vao ngay ... Lan','Anh','S005','03/07/1987','Nu','DTVT')insert into SINHVIEN values('Nguyen Thi','Lam','S006','25 /11/ 1984','Nu','DTVT')insert into SINHVIEN values('Phan Thi','Ha','S007','03/07/1988','Nu','CNTT')insert...