CLB Ngôi Sao Nhỏ

Nơi trao đổi bàn luận của các thành viên CLB Ngôi Sao Nhỏ
 
IndexIndex  CalendarCalendar  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Đăng Nhập  

Share | 
 

 Giải bài ôn tập Tin 8 (Bài 2, 4, 6, 8, 10)

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
nguyentran98
Du Khách


Tổng số bài gửi : 1
Join date : 05/04/2012

Bài gửiTiê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.

Về Đầu Trang Go down
Xem lý lịch thành viên
 
Giải bài ôn tập Tin 8 (Bài 2, 4, 6, 8, 10)
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
CLB Ngôi Sao Nhỏ :: Hoạt Động :: Trao Đổi - Học Tập-
Chuyển đến