Bài tập Pascal HSG TP Tuyên Quang

... ngược từ xâu, từ in dòng xuất số ký tự từ? ( vd: Tran Quang Khai  Khai : ký tự Quang : ký tự Tran : ký tự uses crt; var s,s1,s2,t:string; Bài tập Pascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN a:array[1 100] ... i,j,tam:integer; a:array[1 n]of integer; begin randomize; for i:=1 to n a[i]:=random(1000); Bài tập Pascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN for i:=1 to n-1 for j:=i+1 to n if a[i]

Ngày tải lên: 28/04/2015, 08:00

... kiểm tra lỗi chương trình Pascal theo cách sau : Cách : Kiểm tra xem số lượng dấu ‘ ( dấu mở dấu đóng ) có không ? Cách : Kiểm tra xem số lượng từ Begin End có không ? Bài :Cho file text Hãy 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 Bài :Bạn lập chương trình tạo tập hợp số nguyên chẵn kiểu Byte loại khỏi số chia hết cho Kết thể hình Bài :Xét chương...

Ngày tải lên: 26/12/2013, 19:57

... tử nhiệt độ T Piston nối với mặt đáy bình lò xo có độ cứng k ban đầu chưa biến dạng Khi truyền nhiệt lượng Q cho khí l Hãy xác định nhiệt lượng Q’ khí ngăn trái tỏa nhiệt độ T cho nguồn điều nhiệt ... 3nRT − kl Bài 8: Một phòng có nhiệt độ T nhiệt nơi có nhiệt độ T với tốc độ A(T2 – T1) Phòng sưởi ấm máy sưởi hoạt động theo chu trình Carnot hai nguồn nhiệt T T2 Công su...

Ngày tải lên: 08/06/2015, 14:29

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