Bai tap pascal lop 8

... Writeln; Writeln; Write('-Vi tri muon xoa: '); For i:=vitri to spt - Do Readln(vitri); a[i]:=a[i+1]; spt:=spt - 1; Writeln; Writeln(' MANG SAU KHI XOA'); Writeln( '- -' ); Writeln; For ... upcase(s[i+1]; Writeln(‘xau sau dieu chinh la’,s); Readln End Bài tập phần ghi, file Bài tập 1: Chương trình nhập danh sách học sinh gồm Họ tên, tuổi, lớp học sinh,in danh sách vừa n...

Ngày tải lên: 08/05/2014, 17:03

... (Ba) : ',ten:24); Writeln(' , ',tuoi,' tuoi'); Writeln('+Co so Pignet = ',pig:6:2); Readln End Bài 11 Program Tinh_luong; Var Ten:String; nc,pc,tam:Integer; bl,hs,tt,cl:Real; Begin Writeln('CHUONG ... Writeln('+Chieu dai cua vecto = ',l:10:2); Writeln(' Bam phim de ket thuc'); Readln End Bài 11 Program Trung_binh; Var a,b,c:Integer; P,S:Real; Begin Writeln('TINH TRUNG BINH CONG,TRUNG...

Ngày tải lên: 03/07/2014, 13:20

... Readln; END BÀI TẬP CHƯƠNG 6: DỮ LIỆU KIỂU TẬP Bài : Bạn viết hàm Card(A) đếm số phần tử tập hợp A cho trước có kiểu Set Of 99 (* hàm đếm số phần tử tập hợp *) Uses Crt; Bài tập Pascal có lời ... 'z' Bài tập Pascal có lời giải 39 Thầy gửi tài liệu em xem để học (0946873 510- Hồng Nam Trung-mientrung19@gmail.com) If ch in tap then Write(ch,' '); Readln; END BÀI TẬP CHƯƠNG 7:...

Ngày tải lên: 01/08/2015, 23:11

Ngày tải lên: 17/10/2015, 14:35

... ĐT : 0972. 311. 481 Trang 30 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang Bài tập 2: Chương trình nhập danh sách học sinh gồm Họ tên, tuổi, lớp Chương trình in danh sách sau xếp theo thứ tự ... upcase(s[i+1]; Writeln(‘xau sau dieu chinh la’,s); Readln End Bài tập phần ghi, file Bài tập 1: Chương trình nhập danh sách học sinh gồm Họ tên, tuổi, lớp học...

Ngày tải lên: 30/10/2013, 08:49

... khoảng thời gian t (tháng) Biết phơng thức tính lãi lũy kế, nghĩa lãi xuất sau tháng đợc cộng vào số tiền gốc b) Hãy cho biết ngời phải gửi tháng để thu đợc tổng số tiền gốc lãi không b triệu đồng ... trũn Trõu ng n nm Trõu nm n ba Nm trõu nghộ n mt Hi cú bao nhiờu trõu ng, trõu nm, trõu nghộ? Bi 17: Vit chng trỡnh nhp vo cỏc s nguyờn t bn phớm cho n no gp s nguyờn t thỡ kt thỳc nhp Tớnh tng

Ngày tải lên: 27/11/2013, 16:11

... (n6) Bài tốn: Cho trước số hạng dãy 6174 Cho biết số số hạng cuối (là số hạng 6174) dãy Dữ liệu: Cho tập tin văn DL6174.INP, gồm dòng gồm số ngun dương số hạng dãy số 6174 Kết quả: Cho tập tin ... dòng g m s ngun t cách nh t d u cách có t ng b ng s ã cho (ho c khơng tìm c – ghi “khong”) Input Output 35 12 57 23 Gv: Trần Minh Thọ 3/5 BÀI 10: ĐỊNH LÝ 6174 Dãy 6174 tạo theo cách...

Ngày tải lên: 27/06/2014, 16:20

... soạn: Nguyễn Minh Đức 49 Bài tập Pascal Readln; End Bài 13 Mã số sách Để đánh mã số cho sách, cán thư viện dự định dùng từ có kí hiệu liên tiếp gồm : kí tự (A Z) kí số (001 99 9) Em lập trình tạo ... kiện giá trị số tổng lập phương chữ số uses crt; Var a,b,c,i:integer; Begin clrscr; For i:=100 to 99 9 begin a:=i div 100; b:=(i div 10) mod 10; c:=i mod 10; if a*a*a+b*b*b+c*c*c=i then begi...

Ngày tải lên: 02/11/2014, 21:35

... phần xếp Bài tập 1.10: Viết chương trình cho biết chữ số hàng trăm, hàng chục, hàng đơn vị số có ba chữ số Ví dụ nhập số 357 máy in ra: - Chữ số hàng trăm: - Chữ số hàng chục: - Chữ số hàng đơn ... Trang 19 100 tập Turbo Pascal IV Cấu trúc lặp với số lần lặp chưa biết Bài tập 4.1: Viết chương trình in số lẻ nhỏ n ( Với n nhập) a Hướng dẫn: - Sử dụng kiến thức số...

Ngày tải lên: 08/06/2015, 23:27

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

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

... Program Hinh_tron; Var r:Integer; s:Real; Begin Writeln('CHUONG TRINH TINH DIEN TICH HINH TRON'); Write('-Cho biet ban kinh = '); Readln(r); s:=3.1416 * r * r; Writeln('*Dien tich hinh tron = ... Program Pithagore; Var a,b :Integer; c:Real; Begin Writeln(' CHUONG TRINH TINH CANH HUYEN TAM GIAC VUONG'); Writeln(' theo dinh ly Pithagore'); Write('-Nhap canh a = '); Readln(a); Write('-Nhap ... W...

Ngày tải lên: 17/08/2012, 09:04

... PHANTICH(n); Readln; End BÀI TẬP TỰ GIẢI Bài tập 4.7: Viết hàm tìm Max , số thực Bài tập 4.8: Viết hàm PERFECT(n:Word):Boolean; để kiểm tra số nguyên n có phải số hoàn thiện hay không? Bài tập 4.9: Viết ... nguyen to’) Else Writeln(N,’ khong phai la so nguyen to’); End; Readln; End BÀI TẬP TỰ GIẢI 23 Giáo trình tập Pascal Bài tập 3.12: Viết chương trình giải phương trình b...

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

... Writeln('Nam '); Writeln('De '); Writeln('Cu '); Readln End *********0108********* Program Tam_giac _Pascal; Begin Writeln(' 1'); Writeln(' 1'); Writeln(' 1'); Writeln(' 3 1'); Writeln('1 1'); Readln

Ngày tải lên: 31/08/2012, 09:33

... vận Kho vận Kho vận Địa kho Kho ảo Kho ảo Kho ảo Kho ảo Danh mục đầu tư XDCB Phân nhóm Mã nhóm SCL ĐTU MSM Tên nhóm Sửa chữa lớn TSCĐ Đầu tư xây dựng Mua sắm TSCĐ Danh mục đầu tư Mã số Tên Công ... ban Nhân viên Nhân viên Trưởng Phòng ban Nhân viên Danh mục tài khoản Ngân hàng Ngân hàng Mã nhóm Tên nhóm NH001 Ngân Hàng ANZ NH002 Ngân Hàng Đầu Tư Phát Triển NH003 Ngân Hàng Sài Gòn Cô...

Ngày tải lên: 16/10/2012, 17:00