Bai tap chuong 4

B Bài Thực Hành Số 5 ----------------- -----------------***** ***** *****----------------- ----------------- Bài 1. program xau; uses crt; var i, x:byte; S: string; kt:boolean; begin clrscr; write(`Nhap xau: `);readln(s); x:=length(S); kt:=false; for i:=1 to x div 2 do if S[i]=S[x x-i+1] then kt:=true; if kt then write(`Xau la palindrome`) else write(`Xau khong la palindrome`); readln end. Bài 2. program Bai2; uses crt; var S:string; i,n,dem:integer; ch:char; begin clrscr; write(`Nhap xau: `);readln(S); for i:=1 to length(S) do s[i]:=upcase(s[i]); for ch:=`A` to `Z` do begin dem:=0; for i:=1 to length(s) do if s[i]=ch then dem:=dem+1; if dem>0 then writeln(`Trong xau co `,dem,` chu `,ch); end; readln end. Bài 3. program anhem; uses crt; var S:string; i,n:integer; begin clrscr; write(`Nhap xau: `);readln(s); while pos(`anh`,s)<> 0 do begin n:=pos(`anh`,s); delete(S,n,3); insert(`em`,s,n); end; write(`Xau moi: `,s); readln Chương trình thực hiện đến Nmax=10001. Bài 8.Chương trình thực hiện việc hoán đổi vị trí dòng thứ i với dòng thứ N-i+1, nghĩa là hoán đổi vị trí dòng đầu tiên với dòng cuối cùng của mảng hai chiều, dòng thứ hai từ trên xuống với dòng thứ hai từ dưới lên,… Việc hoán đổi vị trí dòng thứ i với dòng đối xứng với nó được thực hiện khi i nhận giá trị từ 1 đến N, làm cho mỗi dòng được hoán đổi vị trí 2 lần. Vì vậy mảng A sau khi hoán đổi không thay đổi so với ban đầu. Bài 9. program bai9; uses crt; var A:array[1..15,1..15] of integer; N, i, j, max, ind, vsp:integer; begin clrscr; write(`Nhap N: `);readln(n); for i:=1 to n do for j:=1 to n do begin write(`Nhap A[`,i,`,`,j,`]: `); readln(A[i,j]); end; for i:=1 to n do begin max:=A[1,i];ind:=1; for j:=2 to n do if A[j,i] > max then begin max:=A[j,i]; ind:=j; end; vsp:=A[i,i]; A[i,i]:=max; A[ind,i]:=vsp; end; for i:=1 to n do begin writeln; for j:=1 to n do write(A[i,j]:3); end; writeln; readln end. Bài 10. program bai10; uses crt; var S:string; i,dem,n:integer; begin clrscr; write(`Nhap xau: `);readln(S); n:=length(S); dem:=0; for i:=1 to n do if (s[i]>=`0`) and (s[i]<=`9`) then dem:=dem+1; write(`Co `,dem,` chu so trong xau vua nhap`); readln end. Bài 11. program bai11; uses crt; const max=60; type Hocsinh = record hoten:string[30]; ngaysinh:string[10]; diachi:string[50]; toan, van:real; xeploai:char; end; var lop:array[1..max] of hocsinh; N, i:byte; begin clrscr; write(`Nhap so luong hoc sinh: `);readln(n); for i:=1 to n do with lop[i] do {Chú ý câu lệnh này} begin writeln(`Nhap so lieu hoc sinh thu `,i,`:`); write(`Ho va ten: `);readln(hoten); write(`Ngay sinh: `);readln(