... HỆ SỐ CHỨC VỤ TIỀN ĂN TRƯA = 15000 * NGÀY CÔNG PHỤ CẤP GIA ĐÌNH = SỐ CON * 100000 SỐ CON 2 TẠM ỨNG= 300000 MÃ KHEN THƯỞNG A TẠM ỨNG = 200000 MÃ KHEN THƯỞNG ... Loan Như Cúc CHỨC VỤ TP PP KT TQ NV MỨC LƯƠNG 500 450 450 400 350 HSCV BV 300 NGÀY CÔNG MÃ KT SỐ CON TP PP NV KT NV NV BV TQ 26 25 24 25 26 23 20 18 B C D A A C C D 2 PCKV 21500 25000 35000 13000 ... HÀNG BÁN THÁNG 01/2003 STT 10 11 TÊN HÀNG Máy lạnh Tivi Xe Dream II Máy giặt Đầu Video Đầu DVD Computer Printer Scanner Digital Camera Maxtor HDD SỐ LƯNG 12 45 15 20 60 13 15 10 80 ĐƠN GIÁ THUẾ...
... thức in kết hình Mô tả: CONST Bacmax = 50; TYPE Trang 27 Dathuc = Record Bac: Integer; Heso:Array[0 Bacmax] of Real; End; Program CONG_DA_THUC; Uses Crt; Type dathuc=record bac:integer; heso:array[0 ... Writeln('Phuong trinh co vo so nghiem') Else Writeln('Phuong trinh vo nghiem') Else Writeln('Phuong trinh co mot nghiem: x=',-c/b:4:2) Else Begin d:=b*b-4*a*c; If d=0 then Writeln('Phuong trinh co nghiem ... cua ma tran co gia tri nam [1 5]} Function Count(a:MT;n:integer):integer; Var i,j,kq:integer; Begin kq:=0; For i:=1 to n For j:=1 to n If (a[i,j]>=1) and(a[i,j]
... n T o hàm constructors cho it ng: o constructor default: constructor tham s , dùng giá tr b ng cho bi n c a i t ng kh i gán o constructor copy: constructor có y tham s (s tham s c a constructor ... T o hàm constructors cho it ng: o constructor default: constructor tham s , dùng giá tr m c nh cho bi n c a i t ng kh i gán o constructor copy: constructor có y tham s (s tham s c a constructor ... h p l T o hàm constructors cho it ng o Constructor 1: constructor tham s , dùng giá tr ban u cho bi n c a i t ng kh i gán o Constructor 2: constructor có y tham s (s tham s c a constructor b...
... chấm phẩy (;) 1.2 Lệnh CASE Cú pháp: Dạng CASE B OF Const 1: S1; Const 2: S2; Const n: Sn; END; Dạng CASE B OF Const 1: S1; Const 2: S2; Const n: Sn; ELSE Sn+1; END; Trong đó: B: Biểu thức ... Xoá dòng vị trí trỏ dồn dòng phía lên • Thủ tục TEXTCOLOR(color:Byte): Thiết lập màu cho ký tự Trong color ∈ [0,15] • Thủ tục TEXTBACKGROUND(color:Byte): Thiết lập màu cho hình BÀITẬP MẪU Bài ... thay đổi suốt chương trình - Cú pháp: CONST = ; hoặc: CONST : = ; Ví dụ: CONSTMax = 100; Name = 'Tran Van Hung'; Continue = FALSE; Logic = ODD(5); {Logic...
... thức in kết hình Mô tả: CONST Bacmax = 50; TYPE Trang 27 Dathuc = Record Bac: Integer; Heso:Array[0 Bacmax] of Real; End; Program CONG_DA_THUC; Uses Crt; Type dathuc=record bac:integer; heso:array[0 ... Writeln('Phuong trinh co vo so nghiem') Else Writeln('Phuong trinh vo nghiem') Else Writeln('Phuong trinh co mot nghiem: x=',-c/b:4:2) Else Begin d:=b*b-4*a*c; If d=0 then Writeln('Phuong trinh co nghiem ... cua ma tran co gia tri nam [1 5]} Function Count(a:MT;n:integer):integer; Var i,j,kq:integer; Begin kq:=0; For i:=1 to n For j:=1 to n If (a[i,j]>=1) and(a[i,j]
... K1 co điê ̣n cấ p điê ̣n cho ̣ng KĐB pha MOTOR cha ̣y trước Sau 10 giây, Cơng tắ c tơ K2 co điê ̣n cấ p điên cho ̣ ̣ng KĐB pha MOTOR cha ̣y sau Sau 05 giây tiế p theo, Cơng tắ c tơ K3 co ... máy trộn hố chất dùng PLC S7-200 + Chế độ auto: Chuyển cơng tắc chế độ sang auto, nhấn nút RUN (ban đầu thùng rỗng tiếp điểm biến trở mở ) –PLC lệnh cấp điện cho P1 bơm liệu vào bình Khi liệu ... 2.Cả động chạy vòng 10s động chạy.Động chạy 5s dừng 5s lặp lại lần động chạy lại lặp lại chu trình ban đầu.Nếu nhấn Stop hệ thống dừng lại Ở chế độ Manu:Nhấn Start Động chạy.Nhấn Stop động dừng động...
... thức in kết hình Mô tả: CONST Bacmax = 50; TYPE Trang 27 Dathuc = Record Bac: Integer; Heso:Array[0 Bacmax] of Real; End; Program CONG_DA_THUC; Uses Crt; Type dathuc=record bac:integer; heso:array[0 ... Writeln('Phuong trinh co vo so nghiem') Else Writeln('Phuong trinh vo nghiem') Else Writeln('Phuong trinh co mot nghiem: x=',-c/b:4:2) Else Begin d:=b*b-4*a*c; If d=0 then Writeln('Phuong trinh co nghiem ... cua ma tran co gia tri nam [1 5]} Function Count(a:MT;n:integer):integer; Var i,j,kq:integer; Begin kq:=0; For i:=1 to n For j:=1 to n If (a[i,j]>=1) and(a[i,j]
... có dạng sau : DISCOMFORT INDEX DETERMINATION The dry-bulb temperature today is : 76 The wet-bulb temperature today is : 65 The discomfort index today is 71.4, a pleasant day DISCOMFORT INDEX DETERMINATION ... Câu Một số thời tiết ấm giống số gió lạnh số khó chịu (discomfort index) gọi số nhiệt độ - độ ẩm, định nghĩa : discomf ortIndex = 0.4(dryT emp + wetT emp) + 15 Trong đó, dryTemp - “Nhiệt ... dry-bulb temperature today is : 106 The wet-bulb temperature today is : 90 The discomfort index today is 93.4, very uncomfortable Câu Chỉ số độ ẩm H định nghĩa : H =T +h T nhiệt độ đo ◦ F h số độ...
... ['0','1','2','3','4','5','6','7','8','9'] then dem2:=dem2+1; end; writeln('Trong xau ',s,' co ',dem1,' nguyen am va co ',dem2,' ki tu so'); readln END Bài 15: Lập trình giải toán cố sau Vừa gà vừa chó ... tính tổng chữ số nó: Lời giải: uses crt; var a:integer;tong:byte; BEGIN clrscr; write('Nhap so co chu so: ');readln(a); tong:= a mod 10; a:=a div 10; tong:=tong+a mod 10; a:=a div 10; tong:=tong+a ... nghiem PT la: ',x1:0:2,' va: ',x2:0:2); end else if d=0 then begin x1:=(-b)/(2*a); writeln('PT co nghiem kep la: ',x1:0:2); end else writeln('PT vo nghiem'); readln END Bài 5: Nhập vào số nguyên...
... bai3 .dat sang bai3 n.dat : '); Writeln; Assign(f1, 'bai3 .dat'); Reset(f1); Assign(f2, 'bai3 n.dat'); Rewrite(f2); While not Eof(f1) Begin Read(f1,ds1); With ds1 Begin ds2.hoten :=holot+ten; val(copy(lop,1,2),ds2.khoi,c); ... Writeln('Phuong trinh co vo so nghiem') Else Writeln('Phuong trinh vo nghiem') Else Writeln('Phuong trinh co mot nghiem : x=',-c/b : : 2) Else Begin d :=b*b-4*a*c; If d=0 then Writeln('Phuong trinh co nghiem ... số Lớp : chữ viết hoa Prorgam file_banghi; Uses Crt; Type Danhsach1=record holot : string[25]; ten : string[10]; tuoi : 99; lop : string[3]; End; Danhsach2=record hoten : string[35]; tuoi : byte;...
... thức in kết hình Mô tả: CONST Bacmax = 50; TYPE Trang 27 Dathuc = Record Bac: Integer; Heso:Array[0 Bacmax] of Real; End; Program CONG_DA_THUC; Uses Crt; Type dathuc=record bac:integer; heso:array[0 ... Writeln('Phuong trinh co vo so nghiem') Else Writeln('Phuong trinh vo nghiem') Else Writeln('Phuong trinh co mot nghiem: x=',-c/b:4:2) Else Begin d:=b*b-4*a*c; If d=0 then Writeln('Phuong trinh co nghiem ... cua ma tran co gia tri nam [1 5]} Function Count(a:MT;n:integer):integer; Var i,j,kq:integer; Begin kq:=0; For i:=1 to n For j:=1 to n If (a[i,j]>=1) and(a[i,j]