((~.~.~.CLOVER.~.~.~))
Hãy đăng ký làm thành viên hoặc đăng nhập ngay nào!


Chào mừng đến với 4rum Clover, nơi bạn sẽ biết thêm nhiều điều tuyệt vời về môn Hoá học.
 
Trang ChínhPortalCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 Tin học - PASCAL PRO chết liền

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
(Admin)Bé Gấu
Học sinh Hóa
Học sinh Hóa


Tổng số bài gửi : 44
Points : 15469
Danh vọng : 14
Join date : 14/04/2009
Age : 21
Đến từ : Chuồng thú X7. Tui pro nhất

Bài gửiTiêu đề: Tin học - PASCAL PRO chết liền   Wed Apr 22, 2009 10:30 pm

Đề 1: Tính tổng các số dương / âm / all
Về cơ bản thì 3 cái này giống nhau, chỉ có điều kiện là khác nên chỉ cần học 1 cái là đủ. Chú ý điều kiện( in đậm)
1) Số dương

Program tong;
Uses crt;
Var i,n,t:integer;
a:array[1..10000] of integer;
BEGIN
clrscr;
writeln(‘Nhap n:’);
readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
readln(a);
end;
t:=0;
for i:=1 to n do
if a[i] > 0 then t:=t a[i];
Writeln(‘Tong cac so duong la:’,t);
readln;
END.
2) Số âm
Program tong;
Uses crt;
Var i,n,t:integer;
a:array[1..10000] of integer;
BEGIN
clrscr;
writeln(‘Nhap n:’);
readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] < 0 then t:=t a[i];
Writeln(‘Tong cac so am la:’,t);
readln;
END.


3) Tất cả
Program tong;
Uses crt;
Var i,n,t:integer;
a:array[1..10000] of integer;
BEGIN
clrscr;
writeln(‘Nhap n:’);
readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
readln(a[i]);
end;
t:=0;
for i:=1 to n do [i] (Chú thích: không có điều kiện)

Writeln(‘Tong cac so la:’,t);
readln;
END.

Đề 2: Tính trung bình cộng của tất cả các số
Bài này y chang bài tổng, chỉ thêm 1 dòng thôi

Program tbc;
Uses crt;
Var i,n,t:integer;
a:array[1..10000] of integer;
BEGIN
clrscr;
writeln(‘Nhap n:’);
readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t/n
Writeln(‘Trung binh cong cac so la:’,t:4:2);
readln;
END.




Đề 3: Tìm số lớn nhất, bé nhất trong mảng:
Program lonbe;
Uses crt;
Var i,n,max,min:integer;
a:array[1..10000] of integer;
BEGIN
clrscr;
writeln(‘Nhap n:’);
readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
readln(a[i]);
end;
max:=a[1];min:=a[1];
for i:=2 to n do
begin
if a[i] > max then max:=a[i];
if a[i] < min then min:= a[i];
end;
Writeln(‘Tong cac so duong la:’,t);
readln;
END.



Đề 4: In ra, Sắp xếp các số trong mảng
Hai cái giảm và tăng nhu nhâu, lại chỉ khác có điểu kiện

1) Giảm dần
Program sapxep;
Uses crt;
Var i,j,n,tam:integer;
a:array[1..10000] of integer;
BEGIN
clrscr;
writeln(‘Nhap n:’);
readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
readln(a[i]);
end;
(In ra: )
for i:=1 to n do write(a[i],’ ‘);
(Sắp xếp: )
for i:=1 to n-1 do
for j:= i 1 to n do
if a[i]>a[j] then
begin
tam := a[i];
a[i] := a[j];
a[j] := tam;
end;
(In ra: )
writeln(‘ mang sau khi sap xep:’);
for i:=1 to n do write(a[i],’ ‘);
readln;
END.

2) Tăng dần
Program sapxep;
Uses crt;
Var i,j,n,tam:integer;
a:array[1..10000] of integer;
BEGIN
clrscr;
writeln(‘Nhap n:’);
readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
readln(a[i]);
end;
(In ra: )
for i:=1 to n do write(a[i],’ ‘);
(Sắp xếp: )
for i:=1 to n-1 do
for j:= i 1 to n do
if a[i]<a[j] then
begin
tam := a[i];
a[i] := a[j];
a[j] := tam;
end;
(In ra: )
writeln(‘ mang sau khi sap xep:’);
for i:=1 to n do write(a[i],’ ‘);
readln;
END.
Về Đầu Trang Go down
http://x7pro.top-forum.net
cookie_ngo
Học sinh Hóa
Học sinh Hóa
avatar

Tổng số bài gửi : 25
Points : 15415
Danh vọng : 1
Join date : 18/04/2009
Age : 22
Đến từ : Viet Nam

Bài gửiTiêu đề: Re: Tin học - PASCAL PRO chết liền   Wed Apr 22, 2009 11:13 pm

he`he`!mai dzo kt!haha!
Về Đầu Trang Go down
http://www.123mua.com.vn/xem?tv=cookie_shop
cheese_pp
Học sinh Hóa
Học sinh Hóa
avatar

Tổng số bài gửi : 85
Points : 15516
Danh vọng : 9
Join date : 12/04/2009
Age : 22
Đến từ : x7 pro,Nguyễn Du school

Bài gửiTiêu đề: Re: Tin học - PASCAL PRO chết liền   Fri Apr 24, 2009 8:40 am

thằng này dám bảo Pascal "pro chết liền" hả?
tui băm ông cho
"trăm thân này phơi ngoài nội cỏ,nghìn xác này gói trong da ngựa" bây giờ...
dám xúc phạm "Pascal" là ko yên đâu nhá

_________________
Kí tên: Cheese
Đóng dấu cộp cộp...
Mãi mãi 1 tình iu với PP-Phenolphtalien...
Mãi mãi bị PP Phenolphtalein...

Về Đầu Trang Go down
Sponsored content




Bài gửiTiêu đề: Re: Tin học - PASCAL PRO chết liền   

Về Đầu Trang Go down
 
Tin học - PASCAL PRO chết liền
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
((~.~.~.CLOVER.~.~.~)) :: Chatting box-
Chuyển đến