bài tập pascal về xâu kí tự

... 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 đánh sô thứ tự từ 0 đến 25 như sau: - Tìm số thứ tự ... sách các học sinh có Điểm TB < 5 (tự làm bài) * In ra danh sách các học sinh có điểm TB cao nhất * In ra danh sách các học sinh có điểm TB thấp nhất (tự làm bài) Type HocSinh = Record Ho, Ten: ... thường (65 + 32 = 97 => a, 66 + 32 = 98 => b, …) - Dùng hàm Chr() để trả về ký tự (Chr(97)= ‘a’, Chr(98) = ‘b’, …) Bài 6.06 – Chuổi chữ thường abc thành chữ in hoa đảo ngược CBA Víết chương

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

... END Bài 5 : Viết chơng trình nhập một xâu kí tự , sau đó chỉ ra xem xâu đó có phải là xâu đối xứng không ( xâu đối xứng là xâu có các kí tự giống nhau và đối xứng nhau qua điểm giữa xâu , ví ... Delete(S,i,1) Trang 26Bài tập ngôn ngữ lập trình PasCal Biên soạn: Hoàng Đức HàCho số tự nhiên n và một dãy các kí tự S1 , S2 , , S… n Hãy tìm số tự nhiên I đầu tiên sao cho các kí tự Si , Si+1 đều ... Readln; END Bài 6 : Cho một xâu kí tự S Hãy viết chơng trình tính xem trong S có bao nhiêu loại kí tự khác nhau ( phân biệt chữ in hoa với chữ in thờng ) Ví dụ với S là “Pascal” ta có đáp

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

... 37 Khi soạn thảo xong chương trình Pascal, ... Trong ngơn ngữ lập trình Pascal, từ khơng phải từ khóa là: A Uses B Program C End D Computer Câu 47: Dãy kí tự 20n10 thuộc kiểu dữ liệu A String ... ngữ Pascal là: A 16abc; B Hinh thang; C D15; D Program; Câu 49: Từ khóa để khai báo biến trong ngơn ngữ lập trình Pascal là: A Const B Var C Real D End Câu 49: Để chạy một chương trình Pascal ... Begin Write(‘he co nghiem:’); Writeln(‘x=’,dx/dd,’va y=’,dy/dd); End; Readln; End. Bài 11:Nhập vào tâm và bán kính của 1 đường tròn.Sau đó nhập vào một điểm A(x,y) bất kì và kiểm tra xem nó có

Ngày tải lên: 27/09/2013, 04:10

... readlnEND.Bài 14:Nhập vào 1 xâu kí tự và cho biết xâu vừa nhập vào có bao nhiêu nguyên âm và bao nhiêu kí tự số.Lời giải:uses crt;var s:string;dem1,dem2,i:byte;BEGINTrang 8Bài 15:Lập trình giải bài ... readlnCó thể biến đổi đề bài của bài toán đi như: tính số phibonaci thứ n hoặc nhập vào 1 số kiểm tra xem số đó có phải là số phibonaci hay không…Các bài đó làm tương tự.Bài 19: Nhập số nguyên ... readlnTương tự với bài sắp xếp với dãy giảm dần.Trang 15Bài 28:Cho 2 dãy số a1, ,an; b1, ,bm đã được sắp xếp theo thứ tự tăng dần Lập trình để từ 2 dãy trên xây dựng 1 dãy mới cũng theo thứ tự tăng

Ngày tải lên: 23/10/2013, 20:15

... else để giải bài tập trên. Độ khó của bài toán sẽ tăng lên nhiều nếu thêm yêu cầu có thông báo khi hai số, ba số, bốn số bằng nhau. Trang: 7 GV: LÊ THANH TÙNG BÀI TẬP PASCAL BDHSG Bài tập 2.3: Viết ... trình: Bài tập 5.10 Viết chương trình cho phép nhập a Hướng dẫn: b Mã chương trình: CHƯƠNG VI CHƯƠNG TRÌNH CON: THỦ TỤC VÀ HÀM Trang: 26 GV: LÊ THANH TÙNG BÀI TẬP PASCAL BDHSG B BÀI TẬP Bài ... readln; repeat Trang: 20 GV: LÊ THANH TÙNG BÀI TẬP PASCAL BDHSG clrscr; write('Nhap so thu ',i,':...GV: LÊ THANH TÙNG BÀI TẬP PASCAL BDHSG Bài tập 2.8: (HSG lớp 8 -TP Huế 2006-2007)

Ngày tải lên: 25/01/2015, 12:00

... Tin học 100 Problems & Solutions Page 5 Bài 7/1999 - Miền mặt phẳng chia bởi các đường thẳng (Dành cho học sinh THPT) Xét bài toán tương tự như bài 6/1999 nhưng yêu cầu tính số miền mặt phẳng ... giải 3 bài toán dưới đây: 1. Cho 2 xâu INPUT khác nhau, kiểm tra xem liệu nếu áp dụng với trạng thái đầu có cho cùng một kết quả hay không? 2. Cho một xâu vào, hãy xác định số lần cần áp dụng xâu ... của bài toán cho trong tệp B7.INP có dạng sau: - Dòng đầu tiên ghi số n - n dòng tiếp theo, mỗi dòng ghi 3 số thực A, B, C cách nhau bởi dấu cách. Kết quả của bài toán thể hiện trên màn hình. Bài

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

... xac:',s);readln; end 16 Nhập một xâu s bao gồm số và kí tự, in ra xâu đã sắp xếp số theo thứ tự tăng dần còn vị trí các kí tự vẫn giữ nguyên? Trang 6Bài tập Pascal BỒI DƯỠNG HỌC SINH GIỎI HUYỆNVí ... một xâu, mỗi từ in ra trên một dòng và xuất ra số ký tự của mỗi từ? ( vd: Tran Quang Khai  Khai : 4 ký tự Quang : 5 ký tự Tran : 4 ký tự uses crt; var s,s1,s2,t:string; Trang 4Bài tập Pascal ... end 18 VCT kiểm tra việc nhập một ký tự và một xâu ký tự bằng kí tự in hoa( nếu không đúng thì nhập lại) sau đó cho biết số lần ký tự xuất hiện trong xâu ký tự? uses crt; var i,dem:integer; ch:char;

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

... String ) thực hiện công việc sau : so sánh hai xâu S1 và S2 , tìm tất cả các kí tự có trong cả hai xâu trên Xâu Kq sẽ chứa tất cả các kí tự đó , mỗi kí tự chỉ được nhớ một lần Function kt(ch: char; ... '); Readln; END Bài 8 : Trang 19Viết hàm tính D (St1 , St2) , với U, V là hai xâu kí tự bất kì , là tổng số các kí tự không giống nhau trong hai xâu trên , mỗi loại kí tự chỉ được nhớ một ... Readln; END Bài 2 : Thông tin về mỗi học sinh là một bản ghi gồm các trường :  Họđệm : một xâu 25 kí tự  Tên : một xâu 10 kí tự  Tuổi : một số nguyên hai chữ số  Lớp : một xâu hai chữ

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

... Write (' 1 * 2 * * 10 = ', p ) ; Readln ; END Bài 2 :Viết chương trình đếm số lần xuất hiện của các kí tự thuộc bảng chữ cái trong 50 lần gõ kí tự bằng bàn phím (không phân biệt a với A, b với ... 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 Var i : Byte ; (* ... hiện *) Writeln (ch , a[ch] : 4 , ' lan ') ; (* Viết ra màn hình kí tự và số lần xuất hiện *) Readln ; END * Bài 3 :Cho số tự nhiên n , hãy lập trình để tính các tổng sau : a a 1 + 1/22

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

... readln; end Bt20 :Đệ 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ản như sau : Cho 3 cọc A,B,C Coc A ... write('z=');readln(z);... khỏi Turbo Pascal trở về Dos , Trong thư mục Tp bạn đánh vào Tpc myunit.pas nếu chương trình không có lỗi cú pháp , thì ta sẽ nhận được một tệp Myunit tpu là tệp thư viện tự tạo cho riêng ... ngữ ĐỆ QUI (recursion ) tình hàm tự gọi cách trực tiếp gián tiếp Phép đệ qui gián tiếp (indirect recursion ) xảy hàm a() gọi hàm b() , sau hàm b() lại gọi hàm a() Pascal cho phép hàm đệ qui số

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

... cạnh nhau thì khác màu nhau Input • Dòng đầu tiên ghi số tự nhiên n là số lượng các viên sỏi (1 ≤ n ≤ 50) • Dòng thứ hai ghi n kí tự, kí tự thứ i là màu của viên sỏi thứ i: D – đỏ, V – vàng, X ... 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 ... Writeln('C(',n,',',k,') = ',c(n,k):6:0); Readln; B à i 2 9 : Lập tam giác PASCAL, bằng Cn k(dùng chương trình con) n Program TAM_GIAC_PASCAL; Uses Crt; Var i,j,n,k:integer; Trang 12 Trang 15Function

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

... 10*a=10*c))then begin write(a,b,c,d) ; write(' '); end; readln end. Trang 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 ... then max:=a[i] ; write('so ky tu lon nhat',max,' vi tri thu:',i); readln End. Bài tập 8.6: Đếm số dòng, số ký tự trắng xúât hiện trong một file văn bản đã có trên đĩa, tên file được nhập từ ... 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

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

... THPT Hoàng Văn Thụ Nha Trang Bài tập pascal đến nâng cao theo chương trình TIN HỌC lớp 11 không phân ban Nhằm giúp bạn học sinh lớp 11 tiếp cận với ngôn ngữ lập trình Pascal cách dễ dàng vận dụng ... 3/2011 ĐT: 0972.311.481 Trang Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang Phần I: CÁC BÀI TẬP CƠ BẢN Bài 1: Tìm giá trị lớn số a, b, c, d (a, b, c, nhập từ bàn phím) Program Program TIM_SO_LON_NHAT; ... If c>max then max:=c; if d>max then max:=d; Writeln('So lon nhat la: ',max: 4: 2); Readln; END Bài 1B: Viêt chương trình nhập ba số dương bất kỳ, kiểm tra ba số vừa nhập có phải ba cạnh tam giác

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

... Readln; End Bài 3: Viết chương trình nhập một xâu từ bàn phím In ra xâu đó sau khi xóa hết các ký tự trắng thừa trong xâu (Ký tự trắng thừa là các ký tự trắng đầu xâu, cuối xâu và nếu ở giữa xâu có ... 26Bài 1: Viết chương trình nhập vào một xâu ký tự từ bàn phím Đổi xâu ký tự đó sang chữ in hoa rồi in kết quả ra màn hình. Ví dụ :Xâu abcdAbcD sẽ cho ra xâu ABCDABCD. Write (‘ Nhap xau st:’); Readln(st); ... pos(#32#32,st)<>0 do delete (st,pos(#32#32,st),1); Trang 28End Bài 5: Viết chương trình nhập vào một xâu ký tự từ bàn phím Tìm xâu đảo ngược của xâu đó rồi in kết quả ra màn hình theo 2 cách: Đệ qui

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

... số tự nhiên) - Sắp xếp danh sách đó theo thứ tự alphabet của họ và tên - Sắp xếp danh sách đó theo thứ tự giảm dần của tuổi Input: File dạng text BAI9.INP có cấu trúc: - Dòng đầu tiên chứa số tự ... thông tin về một sinh viên theo thứ tự như sau: + Dòng thứ nhất chứa họ và chữ lót + Dòng thứ hai chứa tên + Dòng thứ ba chứa tuổi Output: File dạng text BAI9_1.OUT chứa danh sách theo thứ tự Alphabet ... READLN; END Bài 11: Cho hai số tự nhiên M, N và mảng hai chiều các số thực A[1 M,1 N] Với mỗi số thực X nhập từ bàn phím, hãy xác định phần tử đầu tiên của mảng A có giá trị bằng X (thứ tự các phần

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

... mềm, tìm mật phần mềm Dữ liệu vào: Cho từ tệp văn có tên BL2.INPgồm dịng chứa xâu ký tự S (độ dài xâu không 255 ký tự) mã số phần mềm Kết quả: Ghi tệp văn có tên BL2.OUTgồm số nguyên mật tìm CODE ... khoảng cách Hãy cho biết có nhiều khoảng cách liền xâu S Dữ liệu vào: Cho từ tệp văn có tên BL3.INPgồm dịng ghi xâu S (độ dài xâu khơng 250 ký tự) Kết quả: Ghi tệp văn có tên BL3.OUTgồm số nguyên ... Write(f,K); Close(f); End BÀI 3: KHOẢNG CÁCH Trong soạn thảo văn bản, theo quy ước từ nên cách khoảng cách Tuy nhiên thực tế có trường hợp ngoại lệ Yêu cầu: Cho trước xâu ký tự S gồm chữ khoảng cách

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

... quy tắc mã hoá ở bài trên (33/2000), hãy viết chương trình cho phép: - Nhập một xâu ký tự và in ra xâu ký tự đã được mã hóa - Nhập một xâu ký tự đã được mã hoá và in ra sâu ký tự đã được giải ... là chương trình mô tả thuật toán giải quyết bài 33/2000, gồm 2 thủ tục chính là: mahoatu (chuyển xâu thành xâu mã hoá) và giaimatu (chuyển xâu thành xâu giải mã) Các bạn có thể xem kết quả sau ... if Max[j] < k then Max[j] := k; Trang 20Quy tắc mã hoá một ký tự như sau (lấy ví dụ ký tự X):- Tìm số thứ tự tương ứng của ký tự ta được 23 - Tăng giá trị số này lên 5 ta được 28 - Tìm số dư

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

... 1.8 Xâu - Khai báo Var <tên biến xâu> : String [ <độ dài lớn nhất của xâu> ]; - Nhập xâu Write (‘ nhap vao xau: ‘); readln ( <tên xâu>); - In xâu Write (‘xau: ‘, <tên xâu>); ... kiểu xâu} Kt := True; i := 1; While (kt = true) and (i < length(S)) do Begin If S[i+1] < S[i] then kt := False; I := i+1; End; If kt do write (‘ N la so dep’); Trang 63 Bài tập3.1 Bài tập ... 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

... số Một hằng số có thể được người dùng khai báo hoặc do Pascal tự tạo Pi là hằng do Pascal tự tạo nên người dùng không cần khai báo Bài tập 1.4: Viết chương trình tính diện tích của tam giác có ... rồi! Trong thực tế để đổi chỗ số dầu ở hai bình cho nhau ta phải dùng thêm một bình phụ.Bài tập 1.9 Giải bài tập 1.8 mà chỉ được sử dụng hai biến (Tức không được dùng thêm biến tạm) a Hướng dẫn: ... Hãy phát triển bài tập theo hướng chỉ in một phần tử trong dãy lớn nhất nhưng bé hơn n hoặc theo hướng phần tử thứ k của dãy Trang 24CHUYÊN ĐỀ: DỮ LIỆU KIỂU MẢNG (Một chiều) Bài tập 5.1Viết chương

Ngày tải lên: 09/04/2021, 22:58