Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.


 
Trang ChínhPortalLatest imagesTìm kiếmĐăng kýĐăng Nhập
Top posters
kakashi (399)
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) Vote_lcapBà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) Voting_barBà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) Vote_rcap 
♥thOcOn_dOngdanh♥ä5 (340)
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) Vote_lcapBà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) Voting_barBà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) Vote_rcap 
boypro_woody (267)
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) Vote_lcapBà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) Voting_barBà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) Vote_rcap 
nhumai_princess (136)
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) Vote_lcapBà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) Voting_barBà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) Vote_rcap 
thefour.leafclover (136)
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) Vote_lcapBà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) Voting_barBà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) Vote_rcap 
zokashi (123)
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) Vote_lcapBà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) Voting_barBà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) Vote_rcap 
doremon (114)
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) Vote_lcapBà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) Voting_barBà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) Vote_rcap 
***ZiZou^_^A5*** (100)
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) Vote_lcapBà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) Voting_barBà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) Vote_rcap 
pekeen94 (95)
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) Vote_lcapBà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) Voting_barBà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) Vote_rcap 
kurobakaitou (80)
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) Vote_lcapBà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) Voting_barBà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) Vote_rcap 
[b]
Bài gửiNgười gửiThời gian
ALO ALO!!!!!!! Khởi động lại Forum đi pà con!!!!!!!!!! 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) MasterFri Oct 12, 2012 6:52 am
ALÔ, AI GHÉ FORUM THÌ VÀO COMMENT PHÁT NHEN 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) MasterSun Aug 26, 2012 1:23 pm
dia li bai 2 mr.bui 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) MasterTue Oct 04, 2011 8:17 pm
Auto Kiếm Rồng - HoaHongDen - Boy Pro 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) MasterSun Jul 31, 2011 11:17 pm
dung xem 123 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) MasterThu Jun 09, 2011 2:30 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) MasterThu Jun 02, 2011 12:15 pm
ngộ nghĩnh nè ! 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) MasterTue 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) 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) MasterTue Apr 19, 2011 6:27 pm
Hình cực shock của A5 đây!!!!!!!!!!!!!! HOT!!!HOT!!!HOT!!! 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) MasterFri Apr 15, 2011 9:28 am
Bài tập Pascal (tham khảo) của lớp 11A7 đêêêêêêê 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) MasterSun Apr 10, 2011 1:40 pm
Window Media Cool ™ 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) MasterTue Apr 05, 2011 2:20 pm
lịch sừ kt 1 tiết 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) MasterMon Apr 04, 2011 8:58 pm
Clip cực đỉnh 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) MasterTue Mar 15, 2011 3:20 pm
" Valentine " 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) MasterThu 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)

Go down 
4 posters
Tác giảThông điệp
kakashi
Quản Trị
Quản Trị
kakashi


Tổng số bài gửi : 399
Xu : 5839
Join date : 31/08/2009
Age : 29
Đến từ : KONOHA Village

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) Empty
Bài gửiTiê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)   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) Icon_minitimeSun 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.
Về Đầu Trang Go down
https://a5nguyentrai.forum.st
BB4ever
Ma Mới
Ma Mới
BB4ever


Tổng số bài gửi : 2
Xu : 4868
Join date : 22/11/2010
Age : 29

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) Empty
Bài gửiTiê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) Icon_minitimeSun 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á 04
Về Đầu Trang Go down
kakashi
Quản Trị
Quản Trị
kakashi


Tổng số bài gửi : 399
Xu : 5839
Join date : 31/08/2009
Age : 29
Đến từ : KONOHA Village

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) Empty
Bài gửiTiê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) Icon_minitimeSun Apr 10, 2011 10:18 pm

Qua đây mà xem nha. Bài 1 đó. 25

https://a5nguyentrai.forum.st/t321-topic#2452
Về Đầu Trang Go down
https://a5nguyentrai.forum.st
♥thOcOn_dOngdanh♥ä5
Thiên Vương
Thiên Vương
♥thOcOn_dOngdanh♥ä5


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

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) Empty
Bài gửiTiê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) Icon_minitimeThu Apr 14, 2011 2:34 pm

con` bai` thuc hanh` 6 cau C nua~ HP oi
Về Đầu Trang Go down
https://a5nguyentrai.forum.st
kakashi
Quản Trị
Quản Trị
kakashi


Tổng số bài gửi : 399
Xu : 5839
Join date : 31/08/2009
Age : 29
Đến từ : KONOHA Village

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) Empty
Bài gửiTiê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) Icon_minitimeSun 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.
Về Đầu Trang Go down
https://a5nguyentrai.forum.st
boypro_woody
Thiên Thần
Thiên Thần
boypro_woody


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

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) Empty
Bài gửiTiê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) Icon_minitimeTue Apr 19, 2011 6:27 pm

Bài chử chạy

Mô 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
Về Đầu Trang Go down
Sponsored content





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) Empty
Bài gửiTiê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) Icon_minitime

Về Đầu Trang Go down
 
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)
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» lịch sừ kt 1 tiết
» Mỹ nữ Châu Á nào "đẹp trai" nhất?
» bi quyet thuoc bai nhanh nhat
» Những đám cưới xúc động nhất từ trước đến nay
» Mở nhìu nick yaho = cách đơn giản nhất

Permissions in this forum:Bạn không có quyền trả lời bài viết
 :: ♫_۩_ONLINE STORE_۩_♪ :: Hỏi / Đáp Pascal ?????-
Chuyển đến