nguyentran98 Du Khách
Tổng số bài gửi : 1 Join date : 05/04/2012
| Tiêu đề: Giải bài ôn tập Tin 8 (Bài 2, 4, 6, 8, 10) Fri Apr 06, 2012 12:08 am | |
| Bài 2: Viết chương trình nhập vào dãy số nguyên và sô x. Tìm có bao nhiêu phần tử giống x, ở vị trí nào. uses crt; var a: array [1..100] of integer; i,x,n,d: integer; begin clrscr; write ('Nhap so phan tu: '); readln(n); for i:=1 to n do begin write ('Nhap a[',i,']= '); readln(a[i]); end; write ('Nhap so x: '); readln(x); writeln ('Cac vi tri giong x: '); for i:=1 to n do if a[i]=x then begin write (i:4); d:=d+1; end; writeln; write ('So so bang ',x,' la: ',d); readln; end.
Bài 4: Nhập vào một dãy sô nguyên, in ra các phần tử là sô chính phương. uses crt; var a: array [1..100] of integer; i,n,j: integer; begin clrscr; write ('Nhap so phan tu: '); readln(n); for i:=1 to n do begin write ('Nhap a[',i,']= '); readln(a[i]); end; writeln ('So chinh phuong: '); for i:=1 to n do begin while j*j<a[i] do begin j:=j+1; if j*j=a[i] then write (a[i]:5); end; j:=0; end; readln; end.
Bài 6: Nhập vào danh sách của một tổ. In ra danh sách tổ đó. uses crt; var a: array [1..100] of string; i,n: integer; begin clrscr; write ('Nhap so so hoc sinh: '); readln(n); for i:=1 to n do begin write ('Nhap ten hoc sinh ',i,': '); readln(a[i]); end; writeln ('Danh sach hoc sinh: '); for i:=1 to n do writeln(a[i]); readln; end.
Bài 8: Nhập vào 1 dãy số nguyên, in ra màn hình những phần tử là số nguyên tố. uses crt; var a: array [1..100] of integer; i,n,d,j: integer; begin clrscr; write ('Nhap so phan tu: '); readln(n); for i:=1 to n do begin write ('Nhap a[',i,']= '); readln(a[i]); end; write ('So nguyen to: '); for i:=1 to n do begin d:=0; for j:=1 to a[i] do if a[i] mod j=0 then d:=d+1; if d=2 then write (a[i]:5); end; readln; end.
Bài 10: Nhập vào 1 dãy số nguyên, sắp xếp các phần tử từ bé đến lớn rồi in ra màn hình. uses crt; var a: array [1..100] of integer; i,j,n,d: integer; begin clrscr; write ('Nhap so phan tu: '); readln(n); for i:=1 to n do begin write ('Nhap a[',i,']= '); readln(a[i]); end; for i:=1 to n-1 do begin for j:=i to n do begin if a[i]>a[j] then begin d:=a[i]; a[i]:=a[j]; a[j]:=d; end; end; end; writeln ('Day tu be den lon: '); for i:=1 to n do write (a[i]:5); readln; end.
| |
|