GIAI BAI TAP THUC HANH 7

Chương 4: KIỂU DỮ LIỆU CÓ CẤU TRÚCBài Thực Hành Số 3 -- ----------------- --------------- ---------------***** ***** *****----------------- ----------------- Bài 1. program sum1; uses crt; const nmax=100; type Myarray=array[1..nmax] of integer; var A:myarray; s,n,i,k,posi,neg:integer; begin clrscr; randomize; write(`Nhap n: `);readln(n); for i:=1 to n do A[i]:=random(300)-random(300); for i:=1 to n do write(A[i]:5); writeln; for i:=1 to n do if A[i]>0 then posi:=posi+1 else if A[i]<0 then neg:=neg+1; writeln(`co `,posi,` so duong va `,neg,` am trong mang`); write(`nhap k: `);readln(k); s: =0; for i: =1 to n do if a[i] mod k =0>a[i-1] then max:=A[i]; for j:=1 to n do
if a[j]=max then writeln(`chi so phan tu lon nhat: `,j); readln end. Chú ý: Các bạn sửa lại chương trình để đưa ra kết quả hợp lí, các chỉ số của phần tử lớn nhất cùng nằm trên một dòng.



Bài Thực Hành Số 4 ----------------- -----------------***** ***** *****----------------- ----------------- Bài 1. uses crt; var A:array[1..250] of integer; n,i,j,y,dem,t:integer; begin clrscr; randomize; write(`Nhap n: `);readln(n); for i:=1 to n do A[i]:=random(300)-random(300); for i:=1 to n do write(A[i]:5); writeln; dem:=1; for j:=n downto 2 do for i:=1 to j-1 do if A[i]>A[i+1] then begin t:=a[i]; a[i]:=a[i+1]; A[i+1]:=t; dem:=dem+1; end; write(`Sau khi dao `,dem,` lan`); for i:=1 to n do write(A[i]:7); writeln; readln end. Bài này cho kêt quả là ngẫu nhiên. 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;