Trang 1 / 3 123 LastLast
Hiển thị kết quả từ 1 đến 10 / 27
  1. #1
    Tham gia
    30-11-2009
    Bài viết
    30
    Like
    0
    Thanked 2 Times in 2 Posts

    Một Số Bài Tập Pascal Hay nè

    Đi một vòng Google kiếm dc một số bài hay nhưng cơ bản là chủ yếu... Anh em cùng giải cho vui
    1.Viết tất cả các ước nguyên tố của 1 số tự nhiên n nhập từ bàn phím
    2.Nhập vào 3 số a,b,c . Tìm số lớn nhất, số lớn thứ 2
    3.Nhập vào 1 kí tự, hãy in ra mã ASCII của nó
    4.Nhập số giây.. xuất ra giờ phút giây
    5.Xuất các số chẵn trong khoảng từ 2 số m và n nhập từ bàn phím
    6.Tính tổng S=1+(2!/2)+(3!/3^2)+(4!/4^3)+...+(n!/n^(n-1))
    7.Nhập Số n kiểm tra có phải số chính phương hay ko
    8.Nhập vào số n.. xuất sổ đảo ngược của n đó.. Vd: 123 => 321;
    9.Tính tổng các chữ số của số n nhập từ bàn phím
    Thông cảm các Pro là khối 11 sắp thi HK nên em ra một số bài đơn giản thôi... đừng thắc mắc sao dễ quá nhé...

    [=========> Bổ sung bài viết <=========]
    Được sửa bởi topvip9x lúc 13:46 ngày 04-12-2009 Reason: Bổ sung bài viết
    Quote Quote

  2. Thành viên Like bài viết này:


  3. #2
    Tham gia
    10-11-2009
    Location
    TP Hồ Chí Minh
    Bài viết
    985
    Like
    171
    Thanked 49 Times in 47 Posts
    Póc tem cái đã ^^!
    Bài 1:
    readln(n);
    writeln('cac uoc nguyen to');
    for i:=2 to n do{cái này phòng trường hợp n nguyên tố nên cho chạy đến n lun }
    If n mod i=0 then
    begin
    d:=0;
    for j:=2 to i div 2 do
    If i mod j=0 then d:=d+1;
    If d=0 then write(i:5);
    end;
    readln;
    end.

    [=========> Bổ sung bài viết <=========]

    Bài 8:
    readln(n);
    while n<>0 do
    begin
    S:=S*10+n mod 10;
    n:=n div 10;
    end;
    writeln('xuat ket qua: ',S);
    readln;
    end.
    P/s có thể cho thêm 1 đề bài nhủ thế này nữa: nhập n cho biết n phải số đối xứng ko? (VD: 12321 là số đối xứng, 12334:hok là số đối xứng);
    Bài giải:
    readln(n);
    t:=n;
    while n<>0 do
    begin
    S:=S*10+n mod 10;
    n:=n div 10;
    end;
    If S=t then writeln('so doi xung')
    else writeln('khong doi xung');
    readln;
    end.

    [=========> Bổ sung bài viết <=========]

    Bài 5:
    readln(m,n);
    If m>n then
    begin
    tg:=m;
    m:=n;
    n:=tg;
    end;
    for i:=m to n do
    If i mod 2=0 then write(i:50);
    readln;

    bài 7:
    readln(n);
    thu:=trunc(sqrt(n));
    If sqr(thu)=n then writeln(n,' la so chinh phuong')
    else writeln('khong la so chinh phuong');
    readln;
    end.

    Bài 9:
    readln(n);
    while n<>0 do
    begin
    S:=S+n mod 10;
    n:=n div 10;
    end;
    writeln('tong: ',S);
    readln;
    end.

    [=========> Bổ sung bài viết <=========]

    Bài 2: để tìm cách # ngắn hơn rùi post
    Bài 3: hok bic quy luật mã ASCII ^^! chưa thấy
    Bài 4:đang suy nghĩ
    Được sửa bởi nhokdragon94 lúc 14:43 ngày 04-12-2009 Reason: Bổ sung bài viết

  4. #3
    Tham gia
    30-11-2009
    Bài viết
    30
    Like
    0
    Thanked 2 Times in 2 Posts
    Bài 4 thì thế này
    Var giay,phut,gio:integer;
    Begin
    Write('Nhap so giay');
    readln(n);
    gio:= giay div 3600;
    Phut:=giay div 60;
    Giay:= giay mod 60;
    Write(gio,'h',phut,'m',giay,'giay');
    readln;
    end.

    Bài 6
    var n,i,j:integer;
    s,t:real;
    Begin
    Write('Nhap n=');
    readln(n);
    s:=0;
    t:=0;
    j:=1;
    For i:=1 to n do
    Begin
    j:=j*i;
    t:=j/(exp((i-1)*ln(i)));
    s:=s+t;
    End;
    Write('S=',s:2:3);
    readln;
    end.

    Bài 8
    var n:string;
    i:integer;
    Begin
    Write('Nhap n=');
    readln(n);
    write('Nghich dao n=');
    For i:=length(n) downto 1 do
    Write(n[i]);
    readln;
    end.

    Hên xui thì đúng

  5. #4
    Tham gia
    10-11-2009
    Location
    TP Hồ Chí Minh
    Bài viết
    985
    Like
    171
    Thanked 49 Times in 47 Posts

    Nói nhỏ nè !

    Quote Được gửi bởi topvip9x View Post
    Bài 4 thì thế này
    Var giay,phut,gio:integer;
    Begin
    Write('Nhap so giay');
    readln(n);
    gio:= giay div 3600;
    Phut:=giay div 60;
    Giay:= giay mod 60;
    Write(gio,'h',phut,'m',giay,'giay');
    readln;
    end.
    Ẹc bài 4 dễ dữ, Zậy mà cứ nghĩ xâu xa ^^! àh còn bài mã ASCII đâu

  6. #5
    Tham gia
    30-11-2009
    Bài viết
    30
    Like
    0
    Thanked 2 Times in 2 Posts
    Bài ASCII nè...
    Var i:char;
    Begin
    Write('Nhap 1 ký tu');
    readln(i);
    Write(i,'=',ord(i));
    readln;
    end.
    xem hộ xem em sai cái gì ko

    Bác nhokdragon94 giải thích cho em bài 9 cái...

  7. #6
    Tham gia
    10-11-2009
    Location
    TP Hồ Chí Minh
    Bài viết
    985
    Like
    171
    Thanked 49 Times in 47 Posts
    Hở bài 9 hạ, mình hok bic giảng giải như thế nào ^^! chỉ bic cho VD thui
    Vd nhập 123---> tổng các chữ số là 6
    Đầu tiên nhập n=123
    khi nào n khác 0 thì làm(tức là đến khi n=0 thì thoát khỏi chương trình )
    đầu tiên là S:=S+n mod 10 -->S:=S+(123 mod 10)=3(phải h0k)
    rồi n:=n div 10 --> n=12;
    Tiếp tục lên n=12<>0 nên làm típ
    S:=S+(n mod 10) ---> S=S+12 mod 10=3+2=5;
    rồi n:=n div 10 --> n=1;
    Tiếp tục n=1<>0 nên làm típ
    S:=S+( 1 mod 10)=5+1=6;
    rồi n:=n div 10=1 div 10=0;
    Lên ktra n=0 nên thoát khỏi chương trình rùi xuất S=6--->kết quả ^^!
    Tại mình hok bic giảng bài(cái tật nó zậy rùi )

  8. #7
    Tham gia
    05-03-2009
    Bài viết
    3
    Like
    0
    Thanked 0 Times in 0 Posts

  9. #8
    Tham gia
    20-01-2010
    Bài viết
    2
    Like
    0
    Thanked 0 Times in 0 Posts

    bai 8

    var n,i:integer;
    st:string;
    begin
    readln(n);(*nhap so n*)
    str(n,st);(*doi so n ra xau*)
    for i:=length(st) downto 1 do
    write(st[i]);
    readln;
    end.
    xong rui ngan gon hok

  10. #9
    Tham gia
    13-01-2010
    Bài viết
    78
    Like
    0
    Thanked 0 Times in 0 Posts
    Pó tay. Toàn mấy bài đâu đâu. Nhưng công nhận pác nh0cdrag0n có mấy bài độc thiệc.. mình giải nhưng dài hơn ^^!.

  11. #10
    Tham gia
    10-11-2009
    Location
    TP Hồ Chí Minh
    Bài viết
    985
    Like
    171
    Thanked 49 Times in 47 Posts
    bai 8

    --------------------------------------------------------------------------------

    var n,i:integer;
    st:string;
    begin
    readln(n);(*nhap so n*)
    str(n,st);(*doi so n ra xau*)
    for i:=length(st) downto 1 do
    write(st[i]);
    readln;
    end.
    xong rui ngan gon hok
    zậy sao hem để n:string lun cho nhanh hở pác, để rùi mắc công str nữa ^^);


    Quote Được gửi bởi nirvanat View Post
    Pó tay. Toàn mấy bài đâu đâu. Nhưng công nhận pác nh0cdrag0n có mấy bài độc thiệc.. mình giải nhưng dài hơn ^^!.
    CÁi này đâu phải mình đăng mình chỉ giải thui, pác topvip là chủ topic mờ

Trang 1 / 3 123 LastLast

Bookmarks

Quy định

  • Bạn không thể tạo chủ đề mới
  • Bạn không thể trả lời bài viết
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
  •