Bai tap Pascal co ban
... Khong co - 14 Lê Ngọc Thắng hop_thu_cua_bodie_37@yahoo.com Bài tập Tập I Ví dụ với file INP.TXT 31 27 27 26 22 12 20 file OUT.TXT 3 Với file INP.TXT 1 29 29 26 19 12 20 file OUT3.TXT Khong co ... ghi file OUT.BL nh sau: -7 Lê Ngọc Thắng hop_thu_cua_bodie_37@yahoo.com Bài tập Tập I - Nếu đờng đi, ghi dòng chữ KHONG CO DUONG DI, - Nếu có đờng đi, ghi hai dòng: dòng thứ ghi số cung, dòng ... hai số nguyên không âm R1, S1, R1
Ngày tải lên: 24/06/2013, 01:28
... 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Ế...
Ngày tải lên: 07/07/2013, 01:27
60 bài tập Pascal cơ bản
... 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]
Ngày tải lên: 26/07/2013, 01:27
... 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...
Ngày tải lên: 20/08/2013, 15:35
bai tap pascal co ban.doc
... 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ÀI TẬ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...
Ngày tải lên: 26/08/2013, 00:10
61 BÀI TẬP PASCAL CƠ BẢN
... 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]
Ngày tải lên: 28/08/2013, 08:00
Hệ thống bài tập PLC cơ bản
... 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...
Ngày tải lên: 20/09/2013, 23:07
Bai tap Pascal cơ bản
... 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]
Ngày tải lên: 10/10/2013, 04:11
tổng hợp bài tập C# cơ bản
... 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ố độ...
Ngày tải lên: 16/10/2013, 10:56
Bài tập pascal cơ bản
... ['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...
Ngày tải lên: 23/10/2013, 20:15
Bài tập Pascal cơ bản đến nâng cao theo chương trình tin học lớp 11 không phân ban
... 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;...
Ngày tải lên: 30/10/2013, 08:49
Bài soạn Những bài tập Pascal cơ bản
... 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]
Ngày tải lên: 24/11/2013, 09:11
Bài tập Pascal cơ bản và hướng dẫn
... write( 'Co hien so khong (c/k)');readln(tloi); if upcase(tloi)'C' then write('Tam biet') else if length(s1)
Ngày tải lên: 26/12/2013, 20:00