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 | 
 

 Một số bài tập về mảng 1 chiều (bài căn bản)

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


Tổng số bài gửi: 300
Join date: 22/11/2008

Bài gửiTiêu đề: Một số bài tập về mảng 1 chiều (bài căn bản)   Sat Apr 18, 2009 4:51 pm

1- Viết chương trình nhập vào 1 mảng số nguyên có n phần tử (0<n<=100). Tìm và in ra các phần tử chẵn trên cùng 1 dòng
Có bao nhiêu phần tử < 0, và có bao nhiêu phần tử chia hết cho 3
2- Viết chương trình nhập vào 1 mảng ký tự có n phần tử (0<n<=256).
- Tìm xem có bao nhiêu ký tự A có trong mảng?
- In ra mảng ký tự vừa nhập vào trên cùng 1 dòng
3 - Viết chương trình nhập vào 1 mảng số nguyên có n phần tử (0<n<=100). Tìm phần tử âm lớn nhất và vị trí của nó
Có bao nhiêu phần tử > 0. Tính trung bình cộng các phần tử này.
Về Đầu Trang Go down
Xem lý lịch thành viên
Gorse160495
Moderator


Tổng số bài gửi: 494
Join date: 22/11/2008
Age: 19
Đến từ: Qúa Khứ, Hiện Tại và Tương Lai

Bài gửiTiêu đề: Re: Một số bài tập về mảng 1 chiều (bài căn bản)   Sun Apr 19, 2009 10:48 am

Mấy bài trên để hồi nghiền ngẫm giải sau. Bi giờ tạm thời up kết quả chương trình của bài tập về nhà thầy ra trên lớp đã. Bài này nó giông giống vế đầu của bài 3 phía trên ^^


Nhập 1 mảng số nguyên gồm n phần tử. Tìm xem có số nguyên âm lớn nhất hay không. In giá trị của số nguyên âm lớn nhất đó ra màn hình.



var i,n,max:integer;
kt:boolean;
a:array [1..20] of integer;


begin

write('Nhap n:');
readln(n);
kt:=false;

for i:=1 to n do
begin
write('Moi nhap so thu',i:2);
readln(a[i]);
end;

for i:=1 to n do
if a[i]<0 then
begin
max:=a[i];
kt:=true;
end;

if kt then
begin
for i:=1 to n do
if (a[i]<0) and (a[i]>max) then
max:=a[i];
writeln('So nguyen am lon nhat la:', max:4);
end
else
write('Khong co so nguyen am trong day');
readln;

end.


Bài giải phía trên, từng cặp begin - end đều được tô màu theo cặp để khỏi nhầm lẫn. Khi làm bài kiểm tra nhớ chú ý kiểm tra lại xem có thiếu end không nhá ^^


_________________


Tiếng mưa rơi bên thềm cửa sổ
Nước mưa rơi thấm ướt tóc mềm
Hỏi cơn mưa kia sao ngươi thật tự do...?
Về Đầu Trang Go down
Xem lý lịch thành viên http://360.yahoo.com/gorse1995
 

Một số bài tập về mảng 1 chiều (bài căn bản)

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

 Similar topics

-
» Bài tập lớn môn an toàn mạng
» Cơ Bản về Mảng trong Lập trình C
»  Các bước cơ bản để đột nhập trong mạng LAN
» [Thông báo] Tuyển nhân sự cho mảng Anime
» Sever Bảo Trì Đột Xuất Vì Lý Do Nhà Mạng Trục Trặc

Permissions in this forum:Bạn không có quyền trả lời bài viết
CLB Ngôi Sao Nhỏ ::  :: -