Trang 2 / 3 FirstFirst 123 LastLast
Hiển thị kết quả từ 11 đến 20 / 27
  1. #11
    Tham gia
    13-01-2010
    Bài viết
    78
    Like
    0
    Thanked 0 Times in 0 Posts
    Bài 2 nếu mình dùng 1 hàm tính min của 2 số có lẽ sẽ nhanh hơn mà không dài dòng. ghi thế nhưng chưa làm vì nhác

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

    bgf

    Hok J` ca ah.
    chi vi n la so nen phai n:integer roi str
    con hok n:string neu nhap vao 32gh thi in ra hg23 ah the thi de wa roi con j` nua và the la BOOm Lun

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

    Bai 9 ne
    Var st:string;
    n,so,s,loi:integer;
    begin
    readln(n);
    s:=0;
    str(n,st);
    for i:=1 to length(st) do
    begin
    val(st,so,loi);(*ham nay de doi ki tu sang so*)
    s:=s+so;
    end;
    write('tong cac chu so la',s);
    readln;
    end.
    xong co tan thanh hok
    Được sửa bởi nobodybutyou lúc 19:49 ngày 01-02-2010 Reason: Bổ sung bài viết

  3. #13
    Tham gia
    02-02-2010
    Bài viết
    2
    Like
    0
    Thanked 0 Times in 0 Posts
    Xin giúp đỡ
    Có bài toán đặt ra:
    a x 1250 = x1
    b x 1500 = x2
    c x 20000 = x3
    d x 30000 = x4
    biết : a + b + c + d = e
    x1 + x2 + x3 + x4 = j
    Làm sao giải bằng pascal.

  4. #14
    Tham gia
    10-11-2009
    Location
    TP Hồ Chí Minh
    Bài viết
    985
    Like
    171
    Thanked 49 Times in 47 Posts
    Quote Được gửi bởi hinhvan98 View Post
    Xin giúp đỡ
    Có bài toán đặt ra:
    a x 1250 = x1
    b x 1500 = x2
    c x 20000 = x3
    d x 30000 = x4
    biết : a + b + c + d = e
    x1 + x2 + x3 + x4 = j
    Làm sao giải bằng pascal.
    Yêu cầu tìm gì và nhập gì hả bạn

  5. #15
    Tham gia
    20-02-2010
    Bài viết
    15
    Like
    0
    Thanked 0 Times in 0 Posts

    Hấp dẫn đây ! Loi giai Bai 9 day code ngan de hieu

    uses crt;
    var n,s:integer;
    begin
    clrscr;
    write('Nhap so can tinh: ');readln(N);
    S:=0;
    while N>0 do
    begin
    S:=S+n mod 10;
    n:=n div 10;
    end;
    write('Tong cac chu so la: ',S);
    readln
    end.

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

    uses crt;
    var n,gio,phut,giay:integer;
    begin
    clrscr;
    write('Nhap so giay: ');readln(N);
    gio:=n div 3600;
    phut:=(n-gio*3600) div 60;
    giay:=n-gio*3600-phut*60;
    write(N,' giay = ',gio,' gio ',phut,' phut ',giay,' giay');
    readln
    end.

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

    uses crt;
    var kt:char;
    begin
    clrscr;
    write('Nhap ki tu: ');readln(kt);
    write(ord(kt));
    readln
    end.
    Được sửa bởi bara_dh lúc 16:37 ngày 20-02-2010 Reason: Bổ sung bài viết

  6. #16
    Tham gia
    01-02-2009
    Location
    her her! Ở rể nhà vợ ....ba
    Bài viết
    597
    Like
    0
    Thanked 5 Times in 5 Posts
    hồi xửa hồi xưa em down trên mạng về giáo trình Pascal có hết mấy bài này, cả bài giải luôn áh

  7. #17
    Tham gia
    16-10-2010
    Bài viết
    1
    Like
    0
    Thanked 0 Times in 0 Posts
    minh co bai so 4 chua poc tem

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

    program giay_ra_giophutgiay;
    uses crt;
    var n:longint;
    gio,phut,giay:integer;
    begin
    clrscr;
    writeln('Ban nhap vao so giay can doi:'); readln(n);
    gio:=n div 3600;
    giay:=n mod 3600;
    phut:=giay div 60;
    giay:=giay mod 60;
    writeln(n,'so giay se doi ra duoc:',gio,'gio',phut,'phut',giay,'giay');
    readln
    end.
    Được sửa bởi anhvolam247 lúc 10:00 ngày 16-10-2010 Reason: Bổ sung bài viết

  8. #18
    Tham gia
    11-01-2012
    Bài viết
    1
    Like
    0
    Thanked 0 Times in 0 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 MOD 3600) div 60;
    Giay:= giay mod 60;
    Write(gio,'h',phut,'m',giay,'giay');
    readln;
    end.

  9. #19
    Tham gia
    08-05-2012
    Bài viết
    1
    Like
    0
    Thanked 0 Times in 0 Posts
    Giúp mình làm tập đồ họa máy tính này với
    Tình hình là mình có bài tập về môn kĩ thuật đồ họa bằng ngôn ngữ pascal, đề bài như sau:
    Viết chương trình vẽ một đường tròn tâm O bán kính R vẽ các đường tròn đồng tâm O có bán kính chạy từ 1 đến R sau đó xóa các đường tròn đồng tâm này rồi vẽ các đường tròn đồng tâm khác đi từ R đến 1

    Rất mong mọi người giúp đỡ mình làm bài tập này Mình gà pascal lắm

  10. #20
    Tham gia
    05-10-2010
    Bài viết
    4
    Like
    0
    Thanked 0 Times in 0 Posts
    các bác à! Bài 9 cần giải theo kiểu "STRING" mới đúng:
    giả sử số cần kiểm tra là: 98546217465121549861231257987951321321687651 thì sao?
    kiểu "longint" sẽ không kiễm tra được.

    code:
    program bai9;
    uses crt;
    var i,n,e:integer; s:longint;
    st:string; x:real; kt:boolean;
    begin
    clrscr;
    repeat
    write('Nhap n: '); readln(st);
    for i:=1 to length(st) do
    if st[i] in ['0'..'9'] then kt:=true
    else begin kt:=false; break; end;
    until kt;
    s:=0;
    for i:=1 to length(st) do
    begin val(st[i],x,e);
    s:=s+round(x);
    x:=0
    end;
    write(s);
    readln;
    end.

Trang 2 / 3 FirstFirst 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
  •