Nội dung mới nhất bởi VạnKiếpBấtPhục

Thằng cu này khóa 44, mình khóa 42 8-}

19. VCT nhập vào 2 xâu S và S1 và in ra kí tự chung của 2 xâu var s,s1,s2:string; i:integer; begin write('moi nhap sau thu nhat: '); readln(s); write('moi nhap sau thu hai: '); readln(s1); i:=1; repeat s2:=copy(s,i+1,length(s)); if pos(s[i],s2)<>0 then delete(s,i,1) else inc(i); until...

18.VCT kiểm tra việc nhập vào 1 kí tự và 1 xâu kí tự bằng kí tự in hoa 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; s:string; begin clrscr; repeat write('moi nhap ki tu: '); readln(ch); until ch in ['A'..'Z']; repeat write('moi nhap xau...

17. VCT cho nhập 1 xâu kí tự trong đó có lẫn vào 1 số có 3 chữ số - có kiểm tra việc nhập sai và cho phép nhập lại. Kiểm tra cho biết số đó có phải là số nguyên tố hay không. var s,s1:string; x,vt,c,dem,i:integer; function ktranto(a:integer):boolean; begin ktranto:=true; for i:=2 to a-1 do...

16. Nhập 1 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? var a:array[1..100]of integer; s,s1,s2:string; i,X,c,tam,j,n:integer; so : SET OF integer; Begin so:=['0'..'9']; readln(s); for i:=1 to length(s) do if (s[i] in...

15. Viết chương trình điều chỉnh 1 số nguyên bị nhập sai từ bàn phím. Sau đó sẽ cho biết số nhập sai và số đã sửa nếu người dùng yêu cầu Ví dụ: Nhập 23vsdjvs44 thì chương trình sẽ sửa là 2344 var s,s1:string; i,j:integer; so:set of char; tloi:char; begin readln(s); so:=['0'..'9']...

14. VCT đổi 1 số <4000 ra số La mã (L=50, C=100, D=500, M=1000) var a,x,y,w,z:integer; n: array [0..3] of string; t: array [0..9] of string; c: array [0..9] of string; d: array [0..9] of string; begin n[1]:='C';n[2]:='CC';n[3]:='CCC'; t[1]:='M';t[2]:='MM';t[3]:='MMM';t[4]:='MD'...

13.VCT nhập các kí tự từ bàn phím không cho hiện kí tự này lên mà chỉ hiện dấu * như kiểu mật khẩu. Hỏi có hiện mật khẩu không. Nếu có thì xuất dãy vừa nhập. uses crt; var s:string; ch,tl:char; Begin clrscr; write('Nhap mat khau:'); repeat ch:=readkey; write('*'); s:=s+ch; until ch=#13...

12. VCT làm thay đổi chức năng phím CAPSLOCK, khi tắt Caps ta gõ chữ cái thì xuất hiện chữ hoa, ngược lại, khi bật Caps thì viết ra chữ thường. uses crt; var hoa,thuong:string; ch,t,h:char; Begin clrscr; for t:='a'to'z'do thuong:=thuong+t; for h:='A'to'Z'do hoa:=hoa+h; repeat ch:=readkey...

11. VCT tách 1 xấu S ra làm 4 xâu: S1: chứa các kí tự HOA, S2: chứa các kí tự thường, S3: chứa các số từ 0 tới 9, S4: chứa các ký tự khác uses crt; var hoa,thuong,so:set of char; s,s1,s2,s3,s4:string; i:integer ; begin clrscr; write('nhap xau s:');readln(s); hoa:=['A'..'Z']...

10. VCT in ngược các từ của 1 xâu, mỗi từ in ra trên 1 dòng và xuất ra số ký tự của mỗi từ VD: Tran Quang Khai -> Khai :4 ky tu Quang: 5 ky tu Tran: 4 ky tu uses crt; var s,s1,s2,t:string; a:array[1..100] of string...

9. VCT sửa danh từ riêng nhập sai ( Ví dụ: TraN QuAnG KhAi -> Tran Quang Khai ) uses crt; var s:string; i:integer; begin write('nhap mot danh tu rieng:');readln(s); while s[1]=#32 do delete(s,1,1); while s[length(s)]=#32 do delete(s,length(s),1); while pos(#32#32,s)<>0 do...

8. VCT đọc 1 số có 3 chữ số từ bàn phím uses crt; Var s:array[1..9] of string; a,b,c,n:integer; begin clrscr; repeat write('nhap so nguyen n:');readln(n); until (n>99)and(n<1000); a:=n div 100; b:=n div 10 mod 10 ; c:=n mod 10; s[1]:='mot'; s[2]:='hai'; s[3]:='ba'; s[4]:='bon'; s[5]:='nam'...

7. VCT tạo một mảng số nguyên gồm n phần tử nhỏ hơn 1000. Sắp xếp theo thứ tự tăng dần và giảm dần const n=10; var i,j,tam:integer; a:array[1..n]of integer; begin randomize; for i:=1 to n do a[i]:=random(1000); for i:=1 to n-1 do for j:=i+1 to n do if a[i]<a[j] then...

6. VCT xuất các số hoàn hảo từ n đến m var x,tu,j,i,n,m:integer; function ktrahhao(x:integer):boolean; begin tu:=0; ktrahhao:=false; for i:=1 to x div 2 do if x mod i=0 then tu:=i+tu; if tu=x then ktrahhao:=true; end; begin; write('moi nhap n,m: '); readln(n,m); for j:=n to m do if...