tin8

<span class='text_page_counter'>(1)</span>C¸c bµi tËp vª kiÓu x©u Bai 1:Viết ct nhập từ bàn phím họ tên học sinh . Hãy đỗi chữ cái của họ, tên đệm và tên thµnh ch÷ c¸i in hoa.) program bai1; uses crt; const chu=['a'..'z']; var hoten:string; i,len:byte; begin clrscr; write('hoten=');readln(hoten); len:= length(hoten); if hoten[1] in chu then hoten[1]:= upcase(hoten[i]); for i:=2 to len do if ( hoten [i-1]=#32) and (hoten [i] in chu ) then hoten [i]:= upcase (hoten[i]); write(' ho ten sau khi bien doi la ', hoten); readln end. Bai2: viet ct nhập từ bàn phím một xâu và chuyển đổi thành toàn chữ cái in hoa program bai2; uses crt; var s:string; i:integer; begin clrscr; write('cho 1 xau ki tu s=');readln(s); for i:=1 to length(s) do if s[i] in ['a'..'z'] then s[i]:=upcase(s[i]);; write(' Chuoi sau khi bien doi la ',s); readln end. Bai3: viet ct nhập từ bàn phím một xâu tự và chuyển đổi thành toàn chữ cái thờng program bai3; uses crt; var s:string; i:byte; begin clrscr; write('cho 1 xau ki tu s=');readln(s); for i:=1 to length(s) do if s[i]in['A'..'Z']then s[i]:= char(ord (s[i])+32); write(' Chuoi sau khi bien doi la ',s); readln end. Bài 4: viết ct đếm số lần xuất hiện mỗi loại ký tự thuộc bảng chũ cái tiếng anh. program bai; var a:array ['A'..'Z'] of integer; s:string;.

<span class='text_page_counter'>(2)</span> ch:char; i:integer; begin write('cho 1 xau ki tu:');readln(s); for ch:='A'to 'Z' do a[ch] :=0; for i:=1 to length(s) do begin if upcase (s[i]) in ['A'..'Z'] then begin s[i]:= upcase(s[i]); a[s[i]]:=a[s[i]]+1; end; end; for ch:='A' to 'Z' do writeln('So lan xuat hien ',ch,'trong xau la :',a[ch]:4); readln end. Bài 5: Cho 1 số tự nhiên n và xâu có độ dài n biến đổi xâu đã cho bằng cách thay một d·y dÊu chÊm liÒn nhau thµnh mét dÊu chÊm. program bai5; var s:string; i:byte; begin write('cho 1 xau ki tu s=');readln(s); i:=1; while i< length(s) do if (s[i]='.') and (s[i+1]='.') then delete (s,i,1) else inc(i); write(' chuoi sau khi bien doi la ',s); readln end. Bài 6: Cho 1 số tự nhiên n và xâu có độ dài n biến đổi xâu đã cho bằng cách thay tất cả c¸c dÊu chÊm than thµnh dÊu chÊm. program bai6; var s:string; i:byte; begin write('cho 1 xau ki tu s=');readln(s); for i:=1 to length(s) do if s[i]='!' then s[i]:='.'; write(' chuoi sau khi bien doi la ',s); readln end. Bài 7: Viết ct nhập họ, tên đệm và tên sau đó in ra màn hình tên (ví dụ: Nhập “Nguyễn V¨n Nam” in ra “ Nam”) program xoa_ho_tendem; uses crt; var i:byte; s,a,b:string; begin clrscr; write('nhap ho: ');readln(s); write('nhap ten dem (neu co): ');readln(a); write('nhap ten: ');readln(b); for i:=1 to length(s[i]) do delete(s,1,20);.

<span class='text_page_counter'>(3)</span> for i:=1 to length(a[i]) do delete(a,1,20); writeln('chuoi sau khi bien doi la: ',b); readln end. ---------------***--------------Bµi tËp tÝnh to¸n Bµi tËp 1: T×m UCLN vµ BCNN cña 2 sè program ucln_bcnn; uses crt; var a,b,y,x:integer; begin clrscr; write('nhap so a: ');readln(a); write('nhap so b: ');readln(b); x:=a; y:=b; while a<>b do begin if a>b then a:=a-b else b:=b-a; end; writeln('uoc chung lon nhat la la: ',a); writeln('boi chung nho nhat la: ',(x*y) div a); readln end. *Tìm ước chung lớn nhất và bội chung nhỏ nhất pascal Ý tưởng: Lấy số lớn hơn trong 2 số trừ đi nhau. Lặp lại thao tác đến khi nào 2 số bằng nhau -> UCLN. Lấy tích của 2 số chia cho UCLN -> BCNN. Thuật toán tìm Bội chung nhỏ nhất và Ước chung lớn của 2 số trong Pascal: var x,y,UCLN,BCNN:integer; begin readln(x,y); While x<>y do If x>y then x:=x-y else y:=y-x; UCLN:=x; BCNN:=(x*y) div UCLN; write(UCLN,' ',BCNN); end. Cách 2: Ngoài cách tìm UCLN bằng cách trừ cho nhau đi như trên. Các bạn có thể sử dụng cách chia lấy dư (mod), chương trình sẽ tối ưu do phải thực hiện ít phép tính hơn. var x,y,UCLN,BCNN:integer; begin readln(x,y); while (x<>0) and (y<>0) do if x>y then x:=x - y else y:=y - x uscln:=x+y; BCNN:=(x*y) div UCLN; write(UCLN,' ',BCNN); end.

<span class='text_page_counter'>(4)</span> Nhập vào 1 số. Xác định xem số đó có phải số nguyên tố hay không. Đây là một bài toán rất căn bản trong Pascal. Ý tưởng: Số nguyên tố là số chia cho 1 và chính nó. Giả sử số vừa nhập vào là n, ta cho i chạy từ 2 đến n-1, nếu n chia hết cho i trong bất cứ lần lặp nào thì có nghĩa là n không nguyên tố, nếu không chia hết cho bất cứ lần lặp nào là nguyên tố. Về nguyên tắc là như vậy, nhưng người ta đã chứng minh được rằng chỉ cần xét từ 1 đến phần nguyên căn 2 của N. Như thế thuật toánsẽtốiưuhơn. program kiem_tra_nguyen_to; uses crt; var n,i:integer; bl:boolean; begin clrscr; bl:=true; write('nhap vao so can kiem tra tinh nguyen to: '); readln(n); if n<=1 then bl:=false; for i:=2 to trunc(sqrt(n)) then if n mod i=0 then bl:=false; if bl=true then write('so vua nhap nguyen to.') else write('so vua nhap khong nguyen to.'); readln; end.. Bµi tËp 2: ViÕt ct t¹o mét m¶ng chøa b¶ng cöu ch¬ng. program bag_cuu_chuog; uses crt; var a:array[1..10,2..9] of byte; i,j:byte; begin clrscr; for i:=1 to 10 do for j:=2 to 9 do a[i,j]:=i*j; writeln('Bang cuu chuong: ');writeln; for i:=1 to 10 do for j:=2 to 9 do write(j:4,'X',i:2,'=',a[i,j]:2); readln end. Bµi tËp 3: ViÕt CT tÝnh tæng cña biÓu thøc sau s=1+1/2!+...+1/n!} program tinh_tong; uses crt; var n,i:integer; s:real; tieptuc:char; gt:longint; begin clrscr;.

<span class='text_page_counter'>(5)</span> repeat write('nhap gia tri n=');readln(n); s:=0; gt:=1; for i:=1 to n do begin gt:=gt*i; s:=s+1/gt; end; writeln('Tong cua bieu thuc la: ',s); write('ban co muon tiep tuc tinh khong? (YES/NO)');readln(tieptuc); until upcase(tieptuc)= 'N'; {s=1+1/2+...+1/n}. Bµi tËp 4: tÝnh tæng cña biÓu thøc s=1+1/2+...+1/n program tinh_tong; uses crt; var i,n:integer; s:real; tieptuc:char; begin clrscr; repeat write('nhap gia tri n=');readln(n); s:=0; i:=1; while i<=n do begin s:=s+1/i; i:=i+1; end; writeln('Tong cua bieu thuc la: ',s); write('ban co muon tiep tuc tinh khong? (YES/NO)');readln(tieptuc); until upcase(tieptuc)= 'N'; end. Bµi tËp 5: ViÕt ct tÝnh tæng cña 100 sè tù nhiªn ®Çu tiªn. program tinh_tong; uses crt; var s,i:integer; const n=100; begin clrscr; s:=0; i:=1; while i<=n do.

<span class='text_page_counter'>(6)</span> begin s:=s+i; i:=i+1; end; writeln('Tong cua 100 so tu nhien dau tien la: ',s); readln end. Bµi tËp 6: ViÕt ct tÝnh tÝch cña 10 sè tù nhiªn ®Çu tiªn program tinh_tong; uses crt; var t,i,n:longint; begin clrscr; write('nhap gia tri n=');readln(n); t:=1; i:=1; while i<=n do begin t:=t*i; i:=i+1; end; writeln('Tich cua 10 so tu nhien dau tien la: ',t); readln end. Bµi tËp 7: ViÕt ct nhËp tõ bµn phÝm sè thùc a vµ sè tù nhiªn n, tÝnh a mò n program bai03; uses crt; var n,i:integer; a,t:real; begin write('nhap so nguyen a=');readln(a); write('nhap so mu n=');readln(n); i:=1; t:=1; while i<=n do begin t:=t*a; i:=i+1; end; writeln('a mu n bang ',t); readln end. Bµi tËp 8: program bai5; uses crt; var s:real;.

<span class='text_page_counter'>(7)</span> i,n:integer; begin write('nhap n=');readln(n); i:=1; s:=0; while i<=n do begin s:=s+1/i; i:=i+1; end; writeln(' tong cua bieu thuc tren la',s); readln end. Bài 9: Viết ct nhập 2 số tính tổng, hiệu, tích, thơng của 2 số đó. Program So_hoc; Var so1,so2,tong,hieu,tich:Integer; thuong:Real; Begin Write('-Nhap so thu nhat = '); Readln(so1); Write('-Nhap so thu hai = '); Readln(so2); tong := so1 + so2; hieu := so1 - so2; tich := so1 * so2; thuong := so1 / so2; Writeln('*Tong cua hai so ',so1,' va ',so2,' = ',tong); Writeln('*Hieu cua hai so ',so1,' va ',so2,' = ',hieu); Writeln('*Tich cua hai so ',so1,' va ',so2,' = ',tich); Writeln('*Thuong cua hai so ',so1,' va ',so2,' = ',thuong:6:2); Readln End. --------------***-------------Bµi tËp vÒ m¶ng Bµi t©p 1: T¹o m¶ng vµ in ra mµn h×nh sè lín nhÊt, sè bÐ nhÊt program bai6; uses crt; var a:array [1..100] of integer; i,n,max,min:integer; begin clrscr; write(' nhap so phan tu cua n=');readln(n); for i:=1 to n do begin.

<span class='text_page_counter'>(8)</span> write('a[',i,']= ');readln(a[i]); end; max:=a[1]; min:=a[1]; begin if max <= a[i] then max:=a[i]; if min > a[i] then min:=a[i]; end; writeln(max,' la so lon nhat'); writeln(min,' la so be nhat'); readln end. Bµi t©p 2: program bai7; uses crt; var a:array [1..100] of integer; n,i,j,tg:integer; begin clrscr; write('do dai cua day so n=');readln(n); writeln('nhap day so'); for i:=1 to n do begin write('a[',i,']=');readln(a[i]); end; i:=1; while (i<=n-1) do begin j:=i+1; while j<=n do begin if a[i] > a[j] then begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; end; j:=j+1; end; i:=i+1; end; writeln(' day so sau khi sap xep la:'); for i:=1 to n do write (a[i]:5); readln; end..

<span class='text_page_counter'>(9)</span> Bµi t©p 3: program bai; uses crt; var i,j,m,n,s:integer; a:array [1..10,1..20] of integer; begin clrscr; write('nhap m va n:');readln(m,n); writeln('nhap mang'); for i:=1 to m do for j:=1 to n do begin write('a[',i,',',j,']=');readln(a[i,j]); end; writeln('mang vua nhap'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:6); writeln; end; for i:=1 to m do for j:=1 to n do s:=s+a[i,j]; writeln(s,':la tong cua cac phan tu cua mang'); readln end. Bµi t©p 4: program bai2; uses crt; var m,n,i,j,s,max,min,nax1,min1:integer; a:array [1..10,1..20] of integer; begin clrscr; write('nhap m va n:');readln(m,n); writeln('nhap mang'); for i:=1 to m do for j:=1 to n do begin write('a[',i,',',j,']=');readln(a[i,j]); end; writeln('mang vua nhap'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:6);.

<span class='text_page_counter'>(10)</span> writeln; end; max:=a[1,1];min:=a[1,1]; for i:=1 to m do for j:=1 to n do begin if max < a[i,j] then max:=a[i,j]; if min > a[i,j] then min:=a[i,j]; end; writeln('max la:',max); writeln('min la:',min); readln end.. Bµi t©p 5: program bai4; uses crt; var x,i:ingint; phai:boolean; begin clrscr; write(' nhap so nguyen >2');readln(x); phai:=true; for i:=2 to x-1 do if (x mod i=0) then phai:=false; if phai=false then writ else writeln(' so do khong phai la so nguyen to'); end; readln end.. Bµi 6: viÕt ct nhËp vµo m¶ng 2 chiÒu gåm m x n phÇn tö nguyªn - tÝnh tæng c¸c phÇn tö ©m,d¬ng. - tÝnh tæng c¸c phÇn tö cña mçi hµng,cét. program so_nt; uses crt; var a:array[1..100,1..100] of integer; m,n,s,s1,s2,i,j:integer; begin clrscr; write('nhap m= ');readln(m); write('nhap n= ');readln(n); writeln('NHAP MANG'); for i:=1 to m do for j:=1 to n do begin write('a[',i,',',j,']= ');readln(a[i,j]); end; writeln('MANG VUA NHAP');.

<span class='text_page_counter'>(11)</span> for i:=1 to m do begin for j:=1 to n do write(a[i,j]:6); writeln; end; begin {tinh tong cac phan tu am trong mang} s:=0; for i:=1 to m do for j:=1 to n do if a[i,j] > 0 then s:=s+a[i,j]; writeln('tong cac phan tu duong trong mang la: ',s); s2:=0; for i:=1 to m do for j:=1 to n do if a[i,j] < 0 then s2:=s2+a[i,j]; writeln('tong cac phan tu am trong mang la: ',s2); end; {tong moi hang} for i:=1 to m do begin s1:=0; for j:=1 to n do s1:=s1+a[i,j]; writeln('tong hang ',i,' la: ',s1); end; {tong moi cot} for j:=1 to n do begin s1:=0; for i:=1 to m do s1:=s1+a[i,j]; writeln('tong cua cot ',j,' la: ',s1); end; readln end. Bµi7: viÕt ct nhËp vµo m¶ng 2 chiÒu gåm m x n phÇn tö nguyªn -s¾p xÕp c¸c hµng theo thø tù t¨ng dÇn - s¾p xÕp c¸c cét theo thø tù gi¶m dÇn program sx_hag_cot; uses crt; var m,n,i,j,k,tg:integer; a:array[1..10,1..10] of integer; begin clrscr; write('nhap m: ');readln(m); write('nhap n: ');readln(n); writeln('NHAP MANG'); for i:=1 to m do for j:=1 to n do.

<span class='text_page_counter'>(12)</span> begin write('a[',i,',',j,']= ');readln(a[i,j]); end; writeln('MANG VUA NHAP'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:6);writeln; end; {sap xep cac hang theo thu tu tang dan} for i:=1 to m do begin for j:=1 to n-1 do for k:=j to n do if a[i,j]>a[i,k] then begin tg:=a[i,j];a[i,j]:=a[i,k];a[i,k]:=tg;end; end; {sap xep cac cot theo thu tu giam dan} for j:=1 to n do begin for i:=1 to m-1 do for k:=i to m do if a[i,j] < a[k,j] then begin tg:=a[i,j];a[i,j]:=a[k,j];a[k,j]:=tg;end; end; writeln('MANG SAU KHI DUOC SUA DOI'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:6);writeln; end; readln end..

<span class='text_page_counter'>(13)</span>