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 |
| | Cach' giai~ bt 25/9/08 ne` !!! | |
| | Tác giả | Thông điệp |
---|
HackMa3 Lớp 1
Tổng số bài gửi : 11 Age : 29 Registration date : 25/09/2008
| Tiêu đề: Cach' giai~ bt 25/9/08 ne` !!! 25/9/2008, 2:20 am | |
| program bt; 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 | |
| | | leonken Lớp 2
Tổng số bài gửi : 25 Age : 30 Đến từ : LAX Registration date : 25/09/2008
| Tiêu đề: Re: Cach' giai~ bt 25/9/08 ne` !!! 25/9/2008, 2:22 am | |
| =)) Thầy phước lên sửa bài đê =DDD Bóc tem 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. | |
| | | cuncon Trung cấp
Tổng số bài gửi : 373 Age : 28 Đến từ : việt nam Job/hobbies : học sinh Humor : con nguoi Registration date : 30/10/2008
| Tiêu đề: Re: Cach' giai~ bt 25/9/08 ne` !!! 2/1/2009, 7:28 am | |
| CHUAN...HOP TIEU CHUAN ZAO THUNG RAC | |
| | | Sponsored content
| Tiêu đề: Re: Cach' giai~ bt 25/9/08 ne` !!! | |
| |
| | | | Cach' giai~ bt 25/9/08 ne` !!! | |
|
Trang 1 trong tổng số 1 trang | |
Similar topics | |
|
| Permissions in this forum: | Bạn không có quyền trả lời bài viết
| |
| |
| |
|