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

... + = = 1800 => = 360 Vậy = 360 Bài tập tham khảo: Bài 1: Chiếu tia sáng SI tới gơng phẳng G Nếu quay tia xung quanh điểm S góc tia phản xạ quay góc bao nhiêu? Bài 2: Hai gơng phẳng G1 G2 có ... BMB => KH = K Vậy chiều cao tối thiểu gơng 0,85 m Gơng đặt cách mặt đất tối đa 0,8 m Bài tập tham khảo: A A' H Bài1 : Một hồ nớc yên tĩnh có bề rộng m Trên bờ hồ có cột cao 3,2 m có treo bóng đ...

Ngày tải lên: 26/09/2013, 22:10

... Writeln(‘x=’,dx/dd,’va y=’,dy/dd); End; Readln; End Bài 11:Nhập vào tâm bán kính đường tròn.Sau nhập vào điểm A(x,y) kiểm tra xem có thuộc đường tròn hay không? Program KIEMTRADIEMTHUOCDUONGTRON; Uses ... lệnh điều kiện dạng đầy đủ Pascal? Câu 2: Cho câu lệnh sau: a) if (15 mod 2) = then X:= X + b) if X > then X:= X + 1; Giá tri X giá trị X trước Câu 3: Các câu lệnh Pascal sau viết hay s...

Ngày tải lên: 24/10/2013, 12:11

... 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

... 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

... BEGIN '); tap: =[]; '2','S': Writeln(' Sua chua Writeln('Nhap cac phan tu cho mot '); tap hop cac ki tu: '); '3','L': Writeln(' Loai bo Repeat '); ch:=ReadKey; '4','N': Writeln(' Nhap tap: =tap+ [ch]; ... Readln(ds[i].lop); tap: =[]; Writeln; Writeln('Nhap cac phan tu cho mot End; tap hop cac ki tu: '); Writeln('Danh sach hoc sinh :'); Repeat For i:=1 to n ch:=ReadKey; With ds[...

Ngày tải lên: 09/05/2015, 16:00

... 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: 30/07/2015, 00:49

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

Ngày tải lên: 10/09/2012, 11:47

... Lò nướng hoạt động tối đa ngày Yêu cầu 1- Lập mô hình cho toán nêu 2- Xây dựng toán đối ngẫu cho toán 3- Tìm phương án tối ưu cho hai toán VI- Ba xí nghiệp A, B, C sản xuất áo vét quần Khả sản ... BÀI TẬP TỔNG HỢP 3- Áp dụng thuật toán đơn hình cải tiến kết đối ngẫu để tìm phương án tối ưu cho mô hình III- Xí ... phẩm 2- Lập mô hình để công ty sản xuất đạt doanh thu cao Tìm phương á...

Ngày tải lên: 10/09/2012, 13:46