User Tag List

+ Trả lời chủ đề
Hiện kết quả từ 1 tới 10 của 10

Chủ đề: Bài Tập Về Turbo Pascal

  1. #1
    svBK's Newbie
    Tham gia ngày
    Dec 2007
    Bài gửi
    1

    Mặc định Bài Tập Về Turbo Pascal

    Em có mấy bài toán về Turbo, nhưg ko biết làm ( ko phải dân công nghệ thôg tin). Bác nào biết làm giúp em với, em cần gấp, chiều mai thi rồi

    1. Cho số nguyên N ( 0<=N<=100). Tính và in ra giá trị= 1x2x3x...xN

    2. Nhập số nguyên N (10<=N<=20). N là số các số nguyên x. Tìm và in ra x trog đó x chẵn và x chia hết cho 6.

    3. Nhập N số nguyên dương x. Tìm và in ra x>0 và x chia cho 3 dư 2

    4. Cho số nguyên N. Tính T=1+3+5+...+N

    Em mới học lớp 11, nên chỉ mới học :
    - câu lệnh rẽ nhánh ( 2 nhánh : if...then...else..., nhiều nhánh: case ... else)
    - câu lệnh lặp ( While ... Do hoặc repeat ... until) ;
    - câu lệnh liên hoàn

  2. #2
    Quân nhân danh dự Avatar của khannhachboa
    Tham gia ngày
    Aug 2005
    Bài gửi
    4.805

    Mặc định

    tich:=1;
    for i=2 to N do tich:=tich*i;

    for i=1 to N do iF (A[i] mod 6)=0 then write(A[i]," ");

    for i=1 to N do if (A[i]>0)and(A[i] mod 3 =2) then write(A[i]," ");

    T:=0;
    for i=0 to (N mod 2) do T:=T+i*2+1;
    ~ ~ ~ ' ' ' " " " " " ' ' ' ~ ~ ~
    T ố n h â n b ấ t k h ả h ữ u k h i n h n g ạ o t h á i

    N h i ê n b ấ t k h ả v ô k h i n h n g ạ o c ố t

    ---+++---




    ---+++---
    BLOG, BLOG...

  3. #3
    HUT's Master
    Tham gia ngày
    Sep 2004
    Bài gửi
    2.671

    Mặc định

    Quote Nguyên văn bởi nhoc_cute
    Em có mấy bài toán về Turbo, nhưg ko biết làm ( ko phải dân công nghệ thôg tin). Bác nào biết làm giúp em với, em cần gấp, chiều mai thi rồi

    1. Cho số nguyên N ( 0<=N<=100). Tính và in ra giá trị= 1x2x3x...xN

    2. Nhập số nguyên N (10<=N<=20). N là số các số nguyên x. Tìm và in ra x trog đó x chẵn và x chia hết cho 6.

    3. Nhập N số nguyên dương x. Tìm và in ra x>0 và x chia cho 3 dư 2

    4. Cho số nguyên N. Tính T=1+3+5+...+N

    Em mới học lớp 11, nên chỉ mới học :
    - câu lệnh rẽ nhánh ( 2 nhánh : if...then...else..., nhiều nhánh: case ... else)
    - câu lệnh lặp ( While ... Do hoặc repeat ... until) ;
    - câu lệnh liên hoàn
    Những bài đơn giản thế này mà ko làm được chứng tỏ chả học tý gì. Đừng nên đổ tội là không là dân công nghệ thông tin nên không biết. Nên biết khiển trách bản thân mình.
    Tủi thân

  4. #4
    Quân nhân danh dự
    Tham gia ngày
    Oct 2004
    Bài gửi
    1.134

    Mặc định

    Quote Nguyên văn bởi fatcat
    Những bài đơn giản thế này mà ko làm được chứng tỏ chả học tý gì. Đừng nên đổ tội là không là dân công nghệ thông tin nên không biết. Nên biết khiển trách bản thân mình.

    nặg lời quá, ko biết thì mới phải hỏi, có nhữg vấn đề với mình thì dễ nhưg với người khác thì ko đơn giản 1 tí nào

  5. #5
    HUT's Master
    Tham gia ngày
    Sep 2004
    Bài gửi
    2.671

    Mặc định

    Quote Nguyên văn bởi bigprince
    nặg lời quá, ko biết thì mới phải hỏi, có nhữg vấn đề với mình thì dễ nhưg với người khác thì ko đơn giản 1 tí nào
    Ko biết thì mới phải hỏi. Cái này đúng. Nhưng ko phải cứ đổ là không phải là dân công nghệ thông tin thì ko làm được

  6. #6
    svBK's Newbie Avatar của hoanghuy245
    Tham gia ngày
    Dec 2007
    Bài gửi
    3

    Mặc định

    sướng wa dzậy , lơp 11 mà đã được học C rùi a, anh lên DH mới tập tò coi C có phải là Cò ko đây hay là Ch...Theo anh mấy bài này chỉ cần các lệnh if và vòng lặp while , các kiến thức toán học về số chia hết và số chia dư, nếu em viết vững rồi thì nâng cấp lên , xài vòng lặp for , case..còn muốn chứng tỏ hơn thì xài tới hàm ..v....v..anh nghĩ trước mắt em cứ viết chân phương ...mấy bài này anh gợi ý(thật ra là làm chưa được^^)
    bài toán nhân : T=1x2x3x...xN ,em dùng T*=i, i++,
    bài 2: em dùng if(n<20,n>10,n%2=0vàN%3=0)
    bài 3 tưong tự: if(n>0,n%3=2)
    bài 4; T+=i,i+=2;nhớ suy nghĩ thêm nghen, có vậy khi đi thi mới làm bài nhanh được

  7. #7
    svBK's Newbie Avatar của hoanghuy245
    Tham gia ngày
    Dec 2007
    Bài gửi
    3

    Icon11

    Quote Nguyên văn bởi khannhachboa
    tich:=1;
    for i=2 to N do tich:=tich*i;

    for i=1 to N do iF (A[i] mod 6)=0 then write(A[i]," ");

    for i=1 to N do if (A[i]>0)and(A[i] mod 3 =2) then write(A[i]," ");

    T:=0;
    for i=0 to (N mod 2) do T:=T+i*2+1;
    cái này là dính tới mảng rùi ,em nó chưa học sao làm được nhỉ, mấy anh chỉ cao siêu wa

  8. #8
    svBK's Newbie
    Tham gia ngày
    Oct 2007
    Bài gửi
    9

    Icon10

    for i=1 to N do iF (A[i] mod 6)=0 then write(A[i]," ");
    ong ban gi do oi!! hinh nhu ong khong hieu cai de cho lam!! ban kia post len la Nhap so n va tim n so cac so nguyen X; trong do x la so chan va chia het cho 6
    cho nen theo tui
    i:=0;
    repeat
    i=i+1;
    if (i mod 6 =0) then
    begin
    dem:=dem+1;
    writeln(i);
    end;
    until dem=n;

  9. #9
    HUT's Student Avatar của lov3_girl_91
    Tham gia ngày
    Jan 2007
    Bài gửi
    381

    Mặc định

    -Ặc! Lớp 11 phải học mảng rồi! Mà cả mảng hai chiều nữa chứ!
    -Mấy bài này dùng lệch for do chắc được chứ nhẩy?
    -Mà câu lệnh liên hoàn là gì vậy? Hình như mình chưa được học!
    Chấm hỏi!

  10. #10
    svBK's Newbie
    Tham gia ngày
    Oct 2008
    Bài gửi
    1

    Mặc định

    em có bài như sau: nhập dãy a gồm n số nguyên ,tìm giá trị nhỏ nhất (min) và giá trị lớn nhất(max) . Rồi in ra theo thứ tự tăng dần các số trong đoạn [min,mã] sao cho không thuộc dãy a và là bội của mười.. Mong mọi người giúp cho nhanh nhanh. BÀI NÀY YÊU CẦU SỬ DỤNG CHƯƠNG TRÌNH CON

+ Trả lời chủ đề

Thông tin chủ đề

Users Browsing this Thread

Hiện có 1 người đọc bài này. (0 thành viên và 1 khách)

Từ khóa (Tag) của chủ đề này

Quyền viết bài

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • 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


About svBK.VN

    Bách Khoa Forum - Diễn đàn thảo luận chung của sinh viên ĐH Bách Khoa Hà Nội. Nơi giao lưu giữa sinh viên - cựu sinh viên - giảng viên của trường.

Follow us on

Twitter Facebook youtube