|
|
[b] Bài gửi | Người gửi | Thời gian |
---|
ALO ALO!!!!!!! Khởi động lại Forum đi pà con!!!!!!!!!! | | Fri Oct 12, 2012 6:52 am
| ALÔ, AI GHÉ FORUM THÌ VÀO COMMENT PHÁT NHEN | | Sun Aug 26, 2012 1:23 pm
| dia li bai 2 mr.bui | | Tue Oct 04, 2011 8:17 pm
| Auto Kiếm Rồng - HoaHongDen - Boy Pro | | Sun Jul 31, 2011 11:17 pm
| dung xem 123 | | Thu Jun 09, 2011 2:30 pm
| ................ | | Thu Jun 02, 2011 12:15 pm
| ngộ nghĩnh nè ! | | Tue May 31, 2011 2:18 pm
| Bài tập ôn KT 1 tiết & Thi của lớp chúng ta đây !!!!! (Cập nhật liên tục) | | Tue Apr 19, 2011 6:27 pm
| Hình cực shock của A5 đây!!!!!!!!!!!!!! HOT!!!HOT!!!HOT!!! | | Fri Apr 15, 2011 9:28 am
| Bài tập Pascal (tham khảo) của lớp 11A7 đêêêêêêê | | Sun Apr 10, 2011 1:40 pm
| Window Media Cool ™ | | Tue Apr 05, 2011 2:20 pm
| lịch sừ kt 1 tiết | | Mon Apr 04, 2011 8:58 pm
| Clip cực đỉnh | | Tue Mar 15, 2011 3:20 pm
| " Valentine " | | Thu Mar 10, 2011 2:44 pm
|
| | Bài tập ôn KT 1 tiết & Thi của lớp chúng ta đây !!!!! (Cập nhật liên tục) | |
| | Tác giả | Thông điệp |
---|
kakashi Quản Trị
Tổng số bài gửi : 399 Xu : 5839 Join date : 31/08/2009 Age : 29 Đến từ : KONOHA Village
| Tiêu đề: Bài tập ôn KT 1 tiết & Thi của lớp chúng ta đây !!!!! (Cập nhật liên tục) Sun Apr 10, 2011 7:47 pm | |
| 1/ Viết chương trình nhập vào mảng số nguyên rồi thực hiện những công việc sau : a/ Tìm Min & Max của mảng trên b/ Tìm UCLN ( Min , Max ) vừa tìm được c/ Sắp xếp mảng theo chiều không tăng d/ Sắp xếp mảng theo chiều không giảm - Code:
-
USES CRT; VAR a:array[1..50] of integer; n,i:integer; {------------------------------------------------} procedure NHAP_MANG; begin clrscr; write('Nhap so phan tu cua mang : '); readln(n); for i:=1 to n do begin write('+ Nhap vao phan tu thu ',i,' : '); readln(a[i]); end; end; {------------------------------------------------} function MIN:integer; var t:integer; begin t:=a[1]; for i:=2 to n do if a[i]<t then t:=a[i]; MIN:=t; end; {------------------------------------------------} function MAX:integer; var t:integer; begin t:=a[1]; for i:=2 to n do if a[i]>t then t:=a[i]; MAX:=t; end;
{------------------------------------------------} function UCLN(a,b: word ): word; begin while a<>b do if a>b then a:=a-b else b:= b-a; UCLN:=b; end; {------------------------------------------------} function BCNN(a,b:word):word; begin BCNN:=(a*b) div UCLN(a,b); end; {------------------------------------------------} procedure IN_MANG; begin for i:=1 to n do write(a[i]:4); writeln; writeln; end; {------------------------------------------------} procedure SX_TANG_DAN; var i,j,t:integer; begin for i:=1 to n-1 do for j:=i+1 to n do if a[i]>a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; end; {------------------------------------------------} procedure SX_GIAM_DAN; var i,j,t:integer; begin for i:=1 to n-1 do for j:=i+1 to n do if a[i]<a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; end; {------------------------------------------------} BEGIN NHAP_MANG; writeln('Mang A sau khi nhap la : '); IN_MANG; {TIM MIN , MAX} writeln('+ MAX = ',MAX); writeln('+ MIN = ',MIN); {TIM UCLN (MIN,MAX) } writeln('+ UCLN (MIN, MAX) = ',UCLN(MAX,MIN)); {TIM BCNN (MIN,MAX) } writeln('+ BCNN (MIN, MAX) = ',BCNN(MAX,MIN)); {SX mang khong tang hay giam} SX_GIAM_DAN; writeln('Mang A sau khi sap xep khong tang la : '); IN_MANG; {SX mang khong giam hay tang} SX_TANG_DAN; writeln('Mang A sau khi sap xep khong giam la : '); IN_MANG; readln; END. 2/ Bài thực hành số 6. SGK - Code:
-
uses crt; type str79=string[79]; var a:str79; d:byte; {---------------------------------------------} procedure CatDan(s1:str79;var s2:str79); begin s2:=copy(s1,2,length(s1)-1)+s1[1]; end; {---------------------------------------------} procedure CanGiua(var s:str79); var i,n:integer; begin n:=length(s); n:=(80-n) div 2; for i:=1 to n do s:=' '+s; end; {---------------------------------------------} procedure ChuChay(s:str79;dong:byte); var stop:boolean; s2:str79; begin clrscr; CanGiua(s); stop:=false; while not (stop) do begin gotoxy(1,dong); write(s); CatDan(s,s2); s:=s2; stop:=keypressed; end; end; {---------------------------------------------} BEGIN clrscr; write('Nhap xau a : '); readln(a); write('nhap vi tri dong muon xuat : '); readln(d); ChuChay(a,d); readln; END. (Đã bổ sung bài 2)(Đã bổ sung bài 1 - Phần tìm BCNN (Max,Min) )
Được sửa bởi kakashi ngày Sun Apr 17, 2011 12:23 pm; sửa lần 2. | |
| | | BB4ever Ma Mới
Tổng số bài gửi : 2 Xu : 4868 Join date : 22/11/2010 Age : 29
| Tiêu đề: Re: Bài tập ôn KT 1 tiết & Thi của lớp chúng ta đây !!!!! (Cập nhật liên tục) Sun Apr 10, 2011 8:22 pm | |
| Sensei post cái bài tìm BCNN của 2 số a,b được hok thanks Sen nhiu`, ngu mấy thứ nay` wá | |
| | | kakashi Quản Trị
Tổng số bài gửi : 399 Xu : 5839 Join date : 31/08/2009 Age : 29 Đến từ : KONOHA Village
| Tiêu đề: Re: Bài tập ôn KT 1 tiết & Thi của lớp chúng ta đây !!!!! (Cập nhật liên tục) Sun Apr 10, 2011 10:18 pm | |
| | |
| | | ♥thOcOn_dOngdanh♥ä5 Thiên Vương
Tổng số bài gửi : 340 Xu : 5665 Join date : 20/09/2009 Age : 29 Đến từ : äÑ bïnh äÑ †ïnh †rän§ ßän§ †äy Ñïnh
| Tiêu đề: Re: Bài tập ôn KT 1 tiết & Thi của lớp chúng ta đây !!!!! (Cập nhật liên tục) Thu Apr 14, 2011 2:34 pm | |
| con` bai` thuc hanh` 6 cau C nua~ HP oi | |
| | | kakashi Quản Trị
Tổng số bài gửi : 399 Xu : 5839 Join date : 31/08/2009 Age : 29 Đến từ : KONOHA Village
| Tiêu đề: Re: Bài tập ôn KT 1 tiết & Thi của lớp chúng ta đây !!!!! (Cập nhật liên tục) Sun Apr 17, 2011 6:46 pm | |
| Tìm BCNN(a,b) đêêêêêêêê !!!!!!! - Code:
-
USES CRT; VAR a,b:word; {------------------------------------------} function BCNN(m,n:word):word; var t:word; begin t:=m; while (t mod m <> 0) or (t mod n<> 0) do t:=t+1; BCNN:=t; end; {------------------------------------------} BEGIN clrscr; write('Nhap a,b : '); readln(a,b); writeln; writeln('BCNN cua ',a,' va ',b,' la : ',BCNN(a,b)); readln; END. | |
| | | boypro_woody Thiên Thần
Tổng số bài gửi : 267 Xu : 5825 Join date : 17/09/2009 Đến từ : nơi không có ngày mai
| Tiêu đề: Re: Bài tập ôn KT 1 tiết & Thi của lớp chúng ta đây !!!!! (Cập nhật liên tục) Tue Apr 19, 2011 6:27 pm | |
| Bài chử chạyMô tả: Viết 1 Function có tên Nexts có giá trị trã về là chử kế tiếp Ví dụ: Boy_Pro__________________ >>>>>_Boy_Pro_________________ .................................................. >>>>>__________________Boy_Pro >>>>>o__________________Boy_pr đấy là quy luật trã về Và 1 Function Giua có giá trị trã về chử đó nằm ở giữa với độ dài = 79 Vd:Boy_Pro _________________Boy_Pro________________ - Code:
-
Uses Crt; Var S:String;i:integer;Stop:Boolean; {_________________viết Nexts______________________} Function Nexts(ss:String):String; begin Nexts:=Copy(ss,2,Length(ss)-1) + ss[1]; end; {_______________Giua______________} Function Giua(ss:string):String; begin For i:=1 to ((80-length(ss)) div 2) do Giua:=Giua + " "; Giua:=Giua + ss; For i:= lenght(giua) +1 to 79 do Giua:=Giua + " "; end; BEGIN clrscr; write('Nhap xau S : '); readln(S); write('Dong chay : '); readln(i); S:=Giua(S); While Stop = False Do Begin Goto(1,i); Write(S); S:=Nexts(S); Stop:=keypressed; End; END. Các bạn nên dùng Function Trã giá trị để dể hiểu Đừng dùng Procedure Gán giá trị trực tiếp sẻ khó hiều và khó kiểm tra khi xem lại vì không biết Procedure nào gán thằng nào ko | |
| | | Sponsored content
| Tiêu đề: Re: Bài tập ôn KT 1 tiết & Thi của lớp chúng ta đây !!!!! (Cập nhật liên tục) | |
| |
| | | | Bài tập ôn KT 1 tiết & Thi của lớp chúng ta đây !!!!! (Cập nhật liên tục) | |
|
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
| |
| |
| |
|