bài tập pascal rất hay

... ', SoTu + 1); ReadLn; End Bài 6.03 – Chuổi đối xứng (Các chuổi abccba hay abcba đều là chuổi đối xứng) Bạn hãy nhập một chuổi và kiềm tra xem chuổi đó có đối xứng hay không TD: abcba => Chuoi ... 27 Trang 28Biên soạn: Th.s Nguyễn Anh Việt Trang 28 Bài 8.01 – Mã hoá và Giải mã chuổi Bài toán sau mô tả một thuật toán mã hoá đơn giản: Tập hợp các chữ cái tiếng Anh bao gồm 26 chữ cái được ... từng số trong dãy đó Chỉ được sử dụng Procedure NhanDoiMang như trong Bài 03 (Dãy 1, 4, 7, 5, 2 => In ra 4, 16, 28, 20, 8) Bài 2.05 – In ra số nguyên tố trong mảng 1 chiều Bạn hãy nhập một

Ngày tải lên: 13/09/2017, 10:28

... div 2 do Trang 24Bµi tËp ng«n ng÷ lËp tr×nh PasCal Biªn so¹n: Hoµng §øc Hµ a[j,i]:=a[i,j]; End; Readln ; END ; Trang 25Bài tập ngôn ngữ lập trình PasCal Biên soạn: Hoàng Đức Hà Write(' Cho ... ; a a Si là dấu phẩy đầu tiên b b Si là dấu phầy cuối cùng Bài giải: a ) Var S: string; Trang 27Bài tập ngôn ngữ lập trình PasCal Biên soạn: Hoàng Đức Hà i: integer; BEGIN Write('Cho ... Tap): byte; Var i,n: byte; Trang 31Bµi tËp ng«n ng÷ lËp tr×nh PasCal Biªn so¹n: Hoµng §øc HµTrang 32Bài tập ngôn ngữ lập trình PasCal Biên soạn: Hoàng Đức HàLua chon cua ban : _ Sau đó đợi gõ

Ngày tải lên: 21/06/2013, 01:26

... = ',sinx); write('Tinh theo ham chuan cua Pascal Sin(x) = ',sin(x)); 'writeln('Tinh theo cong thuc Cos(x) = ',cosx); 'write(Tinh theo ham chuan cua Pascal Cos(x) = ',cos(x)); readin; END 78 ... ');readln(eps); writeIn(Tinh theo cong thuc Pi = ',sopi"4); 'write(Tinh theo ham chuan cua Pascal Pi = ',pi); write('Nhap so nguyen I1 ');readIn(l1); if I1<=0 then writeln(Nhap lai I1

Ngày tải lên: 24/07/2014, 03:21

... trước Bài 71/2001 - Thực hiện phép nhân Bài 73/2001 - Bài toán chuỗi số Trang 29(Dành cho học sinh Tiểu họcvà THCS)Cho một chuỗi số có quy luật Bạn có thể tìm được hai số cuối của dãy không, thay ... sau một số bước trên bảng còn lại toàn số 0 hay không? Nếuđược hãy chỉ ra một cách làm cụ thể 2 Bài toán còn đúng không nếu thay số 23 bằng 25 Trang 31Bài 78/2001 - Cà rốt và những chú thỏ(Dành ... 0.(142857)_ Bài 32/2000 - Bài toán 8 hậu (Dành cho học sinh Tiểu học) Trên bàn cờ vua hãy sẵp xếp đúng 8 quân Hậu sao cho không còn con nào có thể ăn được con nào Hãy tìm ra nhiều cách sắp nhất? Bài

Ngày tải lên: 21/04/2015, 17:00

... Trang 1Bài tập Pascal BỒI DƯỠNG HỌC SINH GIỎI HUYỆNBÀI TẬP CƠ BẢN - Đáp án ++ 1 Viết chương trình tính điểm trung bình 3 môn Toán, ... end; write('ucln ',ucln); write('bcnn ',a*b/ucln:1:1); Trang 2Bài tập Pascal BỒI DƯỠNG HỌC SINH GIỎI HUYỆNreadln; end 4 VCT giải hai bài toán cổ: 100 trâu 100 bó cỏ và vừa gà vừa chó 36 con 100 ... i,j,tam:integer; a:array[1 n]of integer; begin randomize; for i:=1 to n do a[i]:=random(1000); Trang 3Bài tập Pascal BỒI DƯỠNG HỌC SINH GIỎI HUYỆNfor i:=1 to n-1 do for j:=i+1 to n do if a[i]<a[j]

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

... Trang 1 BÀI TẬP CHƯƠNG 1:CÂU LỆNH IF ….THEN… * Bài 1 : Nhập 3 số a , b , c bất kì Hãy kiểm tra xem ba số đó có thể là độ dài ba cạnh của một tam giác hay không ? Thông báo lên ... ',ch,' trong xau la: ', A[ch]:4) ; Readln ; END Bài 2 : Cho số tự nhiên n và xâu có độ dài n Hãy biến đổi xâu đã cho bằng cách thay đổi trong đó : a a Tất cả các dấu ! bằng dấu chấm ... ban ghi *) Trang 44 END Bài 4 : Một file bản ghi chứa một danh sách học sinh PTTH , thông tin về mỗi học sinh ngoài các trường Họđệm , Tên , Tuổi , Lớp giống như các bài trên còn có thêm trường

Ngày tải lên: 21/05/2015, 17:00

... Trang 1BÀI TẬP CHƯƠNG 1:CÂU LỆNH IF ….THEN… * Bài 1 : Nhập 3 số a , b , c bất kì Hãy kiểm tra xem ba số đó có thể là độ dài ba cạnh của một tam giác hay không ? Thông báo lên ... Writeln(' Dung ! ') Else Writeln(' Sai ! ') ; Readln ; END Trang 5 BÀI TẬP CHƯƠNG 2:VÒNG LẬP XĐ VÀ KHÔNG XÁC ĐỊNH Sử dụng lệnh For * Bài 1 : Lập trình tính tích các số tự nhiên từ 1 tới 10 GIẢI ... so >10 va <20 la : ', Dem ) ; Writeln (' Tong cua chung la :', Tong ) ; Readln ; END * Bài 3 : Trang 2Nhập bốn số a , b , c , d Hãy tìm giá trị lớn nhất của chúng và gán giá trị lớn

Ngày tải lên: 12/11/2015, 07:33

... (st[i+1]<>#32) then Trang 20Bt20 :Đệ qui quay lui và phương pháp nhánh cận Bài tóan tháp hà nội là một bài tóan cơ bản của thuật tóan đệ qui Bài tóan phát biểu đơn giảnnhư sau : Cho 3 cọc A,B,C Coc A chứa ... III BÀN PHÍM VÀ MÀN HÌNH BÀI 3.1 (bảng mã Ascii ) tạo một file có tên là ASCII DAT chứa mã ASCII để tiện dụng Dựa vào bảng này để vẽ 4 quân bài cơ rô ,pic ,nhép Bài 3.3 (Hàm Getkey) Mỗi khi ... =t Ta sinh đoạn này nhuu sau : cộng từng vế của các bất đẳng thức trên ta có bài 2.8b Lập trình để máy tính chơi nhạc bài “làng tôi “ của nhạc sĩ văn cao ( làng tôi xanh bóng tre , từng tiếng chuông

Ngày tải lên: 20/04/2016, 14:58

... Trang 1Bài thi tỉnh năm học 2014-2015 Bài tập: Lời giải: B à i 1 : Nhập vào 2 cạnh của một hình chữ nhật In ra màn hình ... Vinh rất thích sưu tầm sỏi Nhất là những viên có màu sắc rực rỡ, đẹp mắt Hiện thầy đang có n viên sỏi được xếp thành một hàng ngang, mỗi viên có thể mang màu đỏ, vàng hoặc xanh (là 3 màu thầy rất ... Writeln(i,j,k,' = ',i,'^3 + ',j,'^3 + ',k,'^3'); End Readln; Bài 19 : Nhập vào một số nguyên không âm, kiểm tra xem nó có phải là số nguyên tố hay không? Program SO_NGUYEN_TO; Uses crt; Var i,n: integer;

Ngày tải lên: 25/11/2016, 10:27

... 3Bài tập 3.26: Số hoàn thiện là số tự nhiên có tổng các ước của nó (không kể chính nó) bằng chính nó Viết chương trình kiểm tra xem một số được nhập vào từ bàn phím có phải là số hoàn thiện hay ... các bài toán nhỏ hơn đ́, sau đo kêt hơp nghiêm cua cac bai toan nho hơn đo lai thanh nghiêm cua bài toán ban đầu Tuy nhiên vân đê kho khăn ơ đây năm ơ hai yêu tô : làm thế nào để chia tách bài ... then s:=s+i; if s=j then write(j:5) ; end; {write(' khong la so hoan thien'); } Readln; End. Bài tập 3.27: Viết chương trình in ra các số nguyên từ 1 đến N2 theo hình xoắn ốc với N được nhập

Ngày tải lên: 28/02/2017, 03:33

... Trang 1Bà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 Nhằm giúp các bạn học sinh lớp 11 tiếp cận với ngôn ngữ lập trình Pascal một cách dễ dàng ... s[i+1]<>’ ‘) do upcase(s[i+1]; Writeln(‘xau sau khi dieu chinh la’,s); Readln End Bài tập phần bả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 của học sinh,in ... hai chữ số Khối: một số nguyên hai chữ số Lớp: một chữ cái viết hoa Trang 36Bài tập về chương trình con Bài tập 1 Dùng thủ tục chuyển một số tự nhiên n cho trước sang hệ cơ số 2 Procedure

Ngày tải lên: 22/07/2017, 17:32

... Trang 1Bài tập pascal cơ bản đến nâng cao theo chương trình TIN HỌClớp 11 không phân ban Nhằm giúp các bạn học sinh lớp 11 tiếp cận với ngôn ngữ lập trình Pascal một cách dễ dàng ... s[i+1]<>’ ‘) do upcase(s[i+1]; Writeln(‘xau sau khi dieu chinh la’,s); Readln End Bài tập phần bả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 của học sinh,in ... Trang 34 ds2.lop :=UpCase(lop[3]); Write(f2,ds2);Trang 35 Readln; END.Trang 36Bài tập về chương trình conBài tập 1 Dùng thủ tục chuyển một số tự nhiên n cho trước sang hệ cơ số 2 Procedure

Ngày tải lên: 22/07/2018, 08:29

... b[d]:=a[i]; end; Trang 22 BÀI TẬP CHƯƠNG TRÌNH CONWrite (‘nhap so dau m :’); Readln(m); Write (‘nhap so cuoi n:’); Readln(n); Writeln(‘tong cac so chan tu’,m,’den’,n,’la:’); Trang 23Bài 4: Viết chương ... He16:=he16+tam; He10:=he10 div 16; Write (‘nhap a:’); Readln(a); Write (‘nhap b:’); Readln(b); Bài 14: Viết chương trình giải bài toán cổ sau: a, “Trăm trâu trăm cỏ Trâu đứng ăn năm Trang 8 Trâu nằm ăn ba ... (‘phan tu lon nhat cua mang:’,max); Readln; End Bài 2: Viết chương trình tính tổng bình phương của các số âm trong 1 mảng gồm n phần tử. Trang 10Bài 3: Viết chương trình nhập vào 1 mảng gồm n

Ngày tải lên: 16/01/2019, 22:23

... Trang 1Bài 1: Với mỗi số thực x nhập vào từ bàn phím hãy tính tổng sau:Quá trình tính tổng kết thúc khi ... WRITE('BAN CO MUON TIEP TUC KHONG? (C/K): '); READLN(CHON); UNTIL UPCASE(CHON)='K'; END Bài 2: Cho dãy số un mà mỗi phần tử của nó được xác định như sau: Nếu n lẽ Nếu n chẵn Tính tổng ... T2:=T2*((X-1)/N); S2:=S2+T2; END; INC(N); END; WRITE('S = ',S1+S2:0:3); READLN; END BÀI 3: Cho hai số tự nhiên k, n (k<=n) Tính PROGRAM BAI_3_BT; USES CRT; VAR N,K,I:BYTE;

Ngày tải lên: 07/01/2020, 15:25

... Trang 1BÀI TÂP PASCAL DẠNG KHÓ BÀI 1: MẬT KHẨU.Cu Tí thường xuyên tham gia thi lập trình trên mạng Vì đạt được thành ... VÒNG I Bài 1: (2,0 điểm) Trang 17Khai báo Program Bai1;- Khai báo: Nếu khai báo kiểu số nguyên thì cho 0,25 điểm - Nhập dữ liệu: Nhập mỗi dữ liệu (BH, CH) cho 0,25 điểm - Tính và in: Do có rất nhiều ... tên BL3.OUTgồm một số nguyên duy nhất là số khoảng cách nhiều nhất đi liền nhau CODE THAM KHẢO: BÀI 4: DÃY TĂNG Một dãy số a1, a2, …, anđược gọi là dãy tăng nếu như nó thỏa điều kiện: a1< a2<

Ngày tải lên: 01/12/2020, 16:24

... Trang 42Bài 73/2001 - Bài toán chuỗi số (Dành cho học sinh Tiểu họcvà THCS) Cho một chuỗi số có quy luật Bạn có thể tìm được hai số cuối của dãy không, thay thế chúngtrong dấu hỏi chấm (?) Bài toán ... dụng lại 2 thủ tục mahoatu và giaimatu ở bài 33/2000 để giải bài này Việc thiết kế giao diện khi nhập xâu từ bàn phím xin dành cho các bạn. Trang 25Bài 46/2000 - Đảo chữ cái (Dành cho học sinh ... dễ dàng lắm đâu, vì chúng được tạo ra bởi một quyluật rất phức tạp Bạn thử sức xem? 5 8 11 14 17 23 27 32 35 41 49 52 ? ? Bài 73/2001 - Bài toán chuỗi số (Dành cho học sinh Tiểu họcvà THCS) Hai

Ngày tải lên: 29/03/2021, 13:57

... dep’); Trang 63 Bài tập3.1 Bài tập hình học Bài 1: Cho tam giác có độ dài 3 cạnh là a, b, c Tính chu vi, diện tích, độ dài 3 đường cao Kiểm tra xem tam giác đó là vuông, đều hay cân? uses crt; ... Trang 1Bài tập Pascal1 Một số đoạn lệnh cần nhớ 1.1 Cấu trúc một chương trình Pascal { Phần khai báo} - Khai báo tên chương trình: program ... then write('D nam tren BC') else write('D nam ngoai tgiac ABC'); readln; end Bài 3: 3.2 Bài tập về số nguyên Bài 1: Nhập vào 2 số nguyên dương a và b Tính và in ra màn hình: tổng, hiệu, tích,

Ngày tải lên: 01/04/2021, 20:26

... đã có rồi b) Phân N kí tự nói trên vào các tập con: * Tập T chỉ chứa các chữ cái thường * Tập H chỉ chứa các chữ cái hoa * Tập S chỉ chứa chữ số * Tập C chứa mọi kí tự còn lại c) Đưa ra màn ... dựng kiểu dữ liệu tập hợp các số nguyên dương, với các phép tính: a) Kiểm tra một phần tử có thuộc tập hợp hay không b) Kết nạp một phần tử vào tập hợp và loại bỏ một phần tử khỏi tập hợp c) Tìm ... phần hợp, giao, bù của hai tập hợp Giải bằng hai cách biểu diễn tập hợp: * Số phần tử có trong tập hợp ( 500), mảng số nguyên lưu các phần tử này * Phần tử lớn nhất của tập hợp ( 1000), mảng Boolean

Ngày tải lên: 28/04/2021, 14:20

... Trang 1 BÀI TẬP CHƯƠNG 1:CÂU LỆNH IF ….THEN…Nhập 3 số a , b , c bất kì Hãy kiểm tra xem ba số đó có thể là độ dài ba cạnh của một tam giác hay không ? Thông báo lên màn ... man : Day la 3 canh cua mot tam giac ') Else Writeln (' Khong thoa man ! ') ; Readln ; END * Bài 2 : Nhập N số bất kì Đếm các số lớn hơn 10 và nhỏ hơn 20 và tính tổng của chúng Sau đó , đưa ... điểm : Bạn đã trúng tuyển ( hoặc Bạn đã không trúng tuyển ) với điều kiện Tổng số điểm >= 15 hay ngược lại GIẢI Uses Crt ; Var SBD : Integer; Van , Toan , Ngoaingu , Tongdiem : Real ; BEGIN

Ngày tải lên: 19/05/2021, 11:09

... tắt lý thuyết, phần bài tập mẫu và cuối cùng là phần bài tập tự giải để bạnđọc tự mình kiểm tra những kiến thức và kinh nghiệm đã học Trong phần bài tập mẫu,đối với những bài tập khó hoặc có thuật ... bai gồm rất nhiều bài tập từ đơn giản đến phức tạp Các bài tập này được biên soạn dựa trên khung chương trình giảng dạy môn Tin học Đại cương Bên cạch đó, chúng tôi cũng bổ sung một số bài tập dựa ... While n MOD i=0 DoBài tập 4.7: Viết 2 hàm tìm Max , min của 3 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 là số hoàn thiện hay không? Bài tập 4.9: Viết

Ngày tải lên: 26/05/2021, 18:19