CLB Ngôi Sao Nhỏ
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

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ỏ
 
Trang ChínhTrang Chính  Latest imagesLatest images  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Đăng Nhập  

 

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

Go down 
2 posters
Tác giảThông điệp
myheart
Teacher
myheart


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

Một số bài tập về mảng 1 chiều (bài căn bản) Empty
Bài gửiTiêu đề: Một số bài tập về mảng 1 chiều (bài căn bản)   Một số bài tập về mảng 1 chiều (bài căn bản) EmptySat Apr 18, 2009 5: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
Gorse160495
Moderator
Gorse160495


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

Một số bài tập về mảng 1 chiều (bài căn bản) Empty
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)   Một số bài tập về mảng 1 chiều (bài căn bản) EmptySun Apr 19, 2009 11: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á ^^

Về Đầu Trang Go down
http://360.yahoo.com/gorse1995
 
Một số bài tập về mảng 1 chiều (bài căn bản)
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Bài thực hành: Bài trình chiếu của em-lớp 9/1
» Bài trình chiếu của em-Lớp 9/5
» Bai trình chiếu ~ Lớp 9/2
» Bai trinh chieu lop 9/4
» Nơi up truyện PPGD!!!

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