Diễn đàn dành cho toàn thể học sinh và các thầy cô trường THPT Xuân Áng.
Thông báo: Diễn Đàn đăng cần tuyển Mod và người điều hành. Các bạn có năng lực, nhiệt huyết xin hãy đăng ký. Chi tiết xem tại thông báo của diễn đàn.

Diễn đàn dành cho toàn thể học sinh và các thầy cô trường THPT Xuân Áng.

Nơi các bạn có thể chia sẻ những tâm sự, những cảm súc, hay những đóng góp tốt cho mái trường THPT Xuân Áng.
 
IndexPortalGalleryTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng NhậpXuân Áng
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search
Latest topics
Latest topics
Navigation
 Portal
 Diễn Đàn
 Thành viên
 Lý lịch
 Trợ giúp
 Tìm kiếm
Navigation
 Portal
 Diễn Đàn
 Thành viên
 Lý lịch
 Trợ giúp
 Tìm kiếm
Diễn Đàn
Diễn Đàn
Affiliates
Affiliates

Share | 
 

 Một bài toán nhỏ cho các bạn yêu thích Lập Trình Pascal..

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


Tổng số bài gửi : 40
Join date : 26/08/2010
Age : 30
Đến từ : Hiền Lương - Hạ Hòa - Phú Thọ

Bài gửiTiêu đề: Một bài toán nhỏ cho các bạn yêu thích Lập Trình Pascal..   27/8/2010, 3:16 pm

Viết chương trình tính tổng bình phương của các số âm trong một mảng gồm N phần tử.
Ý tưởng:
Duyệt qua tất cả các phần tử A[i] trong mảng: Nếu A[i]<0 thì cộng dồn (A[i])2 vào biến S.

_________________
(-_-).S2. Mỗi bước chân làm con đường ngắn lại.S2.(-_-)
(-_-).S2. Sống trên đời nhẫn nạn để thành công.S2.(-_-)

Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink
Về Đầu Trang Go down
Xem lý lịch thành viên http://xuan-ang.forumsmotions.com
tuananh_661
Thanh vien moi
Thanh vien moi


Tổng số bài gửi : 21
Join date : 14/09/2010
Age : 25
Đến từ : quan khe

Bài gửiTiêu đề: lap trinh tren ngon ngu pascal   14/9/2010, 10:26 pm

Adn đã viết:
Viết chương trình tính tổng bình phương của các số âm trong một mảng gồm N phần tử.
Ý tưởng:
Duyệt qua tất cả các phần tử A[i] trong mảng: Nếu A[i]<0 thì cộng dồn (A[i])2 vào biến S.
program tong_bp_so_am_trong_mang;
uses crt;
var a:array[1..100] of integer;
i ,s :integer;
begin
clrscl;
writeln(' nhap so phan tu cua mang'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); read(a[i]);
end;
s:=0;
for i:=1 to n do
if (a[i] < 0) then s:=s+sqr(a[i]);
writeln('tong can tim la:', s);
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
admin
Admin
Admin


Tổng số bài gửi : 40
Join date : 26/08/2010
Age : 30
Đến từ : Hiền Lương - Hạ Hòa - Phú Thọ

Bài gửiTiêu đề: Bài làm tốt. Nhưng có thể sửa ngắn gọn như sau.   15/9/2010, 9:17 pm

program tong_bp_so_am_trong_mang;
uses crt;
var a:array[1..100] of integer;
i ,s :integer;
begin
clrscr;
writeln(' nhap so phan tu cua mang'); readln(n);
S:=0;
for i:=1 to n do
begin
write('a[',i,']='); read(a[i]);
if (a[i] < 0) then s:=s+sqr(a[i]);
end;
writeln('tong can tim la:', s);
readln;
end.

_________________
(-_-).S2. Mỗi bước chân làm con đường ngắn lại.S2.(-_-)
(-_-).S2. Sống trên đời nhẫn nạn để thành công.S2.(-_-)

Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink Wink
Về Đầu Trang Go down
Xem lý lịch thành viên http://xuan-ang.forumsmotions.com
Sponsored content




Bài gửiTiêu đề: Re: Một bài toán nhỏ cho các bạn yêu thích Lập Trình Pascal..   Today at 1:49 pm

Về Đầu Trang Go down
 
Một bài toán nhỏ cho các bạn yêu thích Lập Trình Pascal..
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
Diễn đàn dành cho toàn thể học sinh và các thầy cô trường THPT Xuân Áng. :: CLB Học Tập :: Lập Trình Pascal-
Chuyển đến