E_Learning, sharing with the happiness !

Năm học 2008-2009 : Năm học ứng dụng CNTT để nâng cao chất lượng giảng dạy
 
Trang ChínhTrang Chính  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Thành viênThành viên  NhómNhóm  Đăng kýĐăng ký  Đăng Nhập  

Share | 
 

 Cach' giai~ bt 25/9/08 ne` !!!

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

Nam
Tổng số bài gửi : 11
Age : 23
Registration date : 25/09/2008

Bài gửiTiêu đề: Cach' giai~ bt 25/9/08 ne` !!!   25/9/2008, 2:20 am

program bt; Surprised Surprised
const fo='bt.out';
a:array[1..4] of char =('+','-','*','/');
type mang=array[1..6] of integer;
var f:text;
function Tinh(a,b,c:integer):integer;
begin
if c=1 then Tinh:=a+b;
if c=2 then Tinh:=a-b;
if c=3 then Tinh:=a*b;
if c=4 then
if a mod b=0 then Tinh:=a div b
else Tinh:=0;
end;
procedure xuly;
var i,j,k,g,h:integer;
begin
assign(f,fo);
rewrite(f);
for i:=1 to 4 do
for j:=1 to 4 do
for k:=1 to 4 do
for g:=1 to 4 do
for h:=1 to 4 do
if (Tinh((Tinh((Tinh((Tinh((Tinh(1,2,i)),3,j)),4,k)),5,g)),6,h)=35) then
writeln(f,'((((1',a[i],'2)',a[j],'3)',a[k],'4)',a[g],'5)',a[h],'6)=35');
close(f);
end;
begin
xuly;
end.

Xong roi` doa' cu' bung zo la` dc What a Face What a Face
Về Đầu Trang Go down
Xem lý lịch thành viên
leonken
Lớp 2
Lớp 2
avatar

Nam
Tổng số bài gửi : 25
Age : 23
Đến từ : LAX
Registration date : 25/09/2008

Bài gửiTiêu đề: Re: Cach' giai~ bt 25/9/08 ne` !!!   25/9/2008, 2:22 am

Laughing Laughing =)) Thầy phước lên sửa bài đê =DDD

Bóc tem lol! lol!

Check thử bài này xem
program bai2;
const
fo='bai2.out';
b:array[1..4] of char=('+','-','x',':');
var f:text;

function tinh(a,b,c:integer):integer;
begin
if c=1 then tinh:=a+b;
if c=2 then tinh:=a-b;
if c=3 then tinh:=a*b;
if c=4 then if (a mod b)= 0 then tinh:=a div b
else tinh:=0;
end;

procedure xuly;
var i,j,k,g,h:integer;
begin
assign(f,fo);
rewrite(f);
for i:=1 to 4 do
for j:=1 to 4 do
for k:=1 to 4 do
for g:=1 to 4 do
for h:=1 to 4 do
if (tinh((tinh((tinh((tinh(1,2,i)),3,j)),4,k)),5,g)),6,h))=35) then
writeln(f,'((((1',b[i],'2)',b[j],'3)',b[k],'4)',b[g],'5)',b[h],'6 = 35');
close(f);
end;

begin
xuly;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên http://z4.invisionfree.com/4fun
cuncon
Trung cấp
Trung cấp
avatar

Nam
Tổng số bài gửi : 373
Age : 22
Đến từ : việt nam
Job/hobbies : học sinh
Humor : con nguoi
Registration date : 30/10/2008

Bài gửiTiêu đề: Re: Cach' giai~ bt 25/9/08 ne` !!!   2/1/2009, 7:28 am

CHUAN...HOP TIEU CHUAN ZAO THUNG RAC
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: Cach' giai~ bt 25/9/08 ne` !!!   

Về Đầu Trang Go down
 
Cach' giai~ bt 25/9/08 ne` !!!
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Tìm hiểu về "Tứ sát” và cách hóa giải
» Giúp Mình làm lập đồ giải tránh Va
» Lập tuyến hành trình
» Động lực học tàu thủy
» Phòng ngừa tai nạn trên tàu

Permissions in this forum:Bạn không có quyền trả lời bài viết
E_Learning, sharing with the happiness ! :: GÓC KHUẤT :: THÙNG RÁC-
Chuyển đến