Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Giúp các bé đáng thương ấy với

Gameshow “Ai Là Triệu Phú” trên VTV đang chờ đón bạn – Tải ngay!

Tuyển uploader dự án Safeshared có thu nhập

Ngập tràn ưu đãi cho tín đồ công nghệ tại sony show 2014

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Tuyển Mod box Mobile
Trang 2/2 đầuđầu 1 2
kết quả từ 16 tới 29 trên 29
  1. #16
    Forte_201092's Avatar
    Forte_201092 vẫn chưa có mặt trong diễn đàn Thành viên đang bị kỷ luật
    Tham gia
    Oct 2008
    Đến từ
    Huế City
    Bài
    224
    Cảm ơn
    1
    Điểm
    22/19 bài viết

    Default

    Sao hỏi toàn những bài cơ bản vậy?

  2. #17
    nhokdragon94's Avatar
    nhokdragon94 vẫn chưa có mặt trong diễn đàn Búa Gỗ Đôi
    Tham gia
    Dec 2009
    Bài
    29
    Cảm ơn
    0
    Điểm
    3/3 bài viết

    Default

    Thui thì pác cứ chỉ cho bạn ấy đi cơ bản lần làn mới lên cao đc chứ phải hem ^^
    var i:integer;
    begin
    i:=1;
    while i<=100 do
    begin
    write(i:5);
    i:=i+1;
    end;
    readln;
    end.

    Còn dùng for nè(Bạn tham khảo nha).
    var i:integer;
    begin
    for i:=1 to 100 do
    write(i:5);
    readln;
    end.

  3. #18
    ductai123456's Avatar
    ductai123456 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Oct 2008
    Bài
    19
    Cảm ơn
    21
    Điểm
    0/0 bài viết

    Default

    các pro giải gioumf em bài này nhé
    vừa gà vừa chó
    bó lại cho tròn
    36 con
    100 chân chẵn
    thank

  4. #19
    ducnthb's Avatar
    ducnthb vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Sep 2008
    Bài
    16
    Cảm ơn
    12
    Điểm
    2/2 bài viết

    Default gà chó

    var ga,cho:integer;
    begin
    for ga:=0 to 36 do
    begin
    cho:=36-ga;
    if ga*2+cho*4=100 then writeln('ga= ',ga,' cho = ',cho);
    end;
    readln;
    end.

  5. #20
    bjch_93's Avatar
    bjch_93 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Apr 2010
    Bài
    1
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Default

    anh chi nao giup em lam bai nay kai'.em dang can` gap'
    Viet' pt, ve~ hinh chu nhat va hinh vuong bang cac dau' "$" trong do' ve hinh dac voi hinh vuong. moi hinh cach nhau 5 dong trong'.lam` thanh nhieu chuong trinh con va goc. lai thanh 1 chuong trinh hoan chjnh? sau do' soan thao? va` trinh` chjeu'

  6. #21
    pụmkwa's Avatar
    pụmkwa vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Apr 2010
    Bài
    1
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Default

    viet chuong trinh nhap vao tu man hinh 1 day n so nguyen.cho biet trong day so do co bao nhieu so chia het cho 7

  7. #22
    my_kute3110's Avatar
    my_kute3110 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Jun 2010
    Đến từ
    Kon Tum
    Bài
    1
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Default

    công nhận nhìu người pro ghê, pascal khó ơi là khó mà giải hay quá luôn

  8. #23
    daothinh1991's Avatar
    daothinh1991 vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Jun 2009
    Đến từ
    Hà Nội
    Bài
    76
    Cảm ơn
    21
    Điểm
    20/10 bài viết

    Default hheeee

    Trích Rimocchino View Post
    bài 1 theo C++ :
    #include "stdio.h"
    #include "conio.h"
    void main()
    {
    int a[50],n,i,max;
    clrscr();
    printf("Nhap so phan tu , n = ");scanf("%d",&n);
    for(i=1;i<=n;i++)
    printf("Nhap gia tri cua a[%d] =",i);scanf("%d",&a[i]);
    max=a[1];
    for(i=1;i<=n;i++)
    if (max<a[i])max = a[i];
    printf("Gia tri lon nhat = %d",max);
    getch();
    }
    (bài này bạn có thể nhập tối đa 50 phần tử chứ ko phải chỉ có 3 phần tử nữa)
    sao lai fai for(i=1; i< =n; i++) cho for(i=2; i<=n; i++) dam han mot phep so sanh

    ---------- Bài thêm lúc 14:47 ---------- Bài trước là lúc 14:44 ----------

    minh khong duoc hoc pascal hic ,gio dang hoc java hic

  9. #24
    thanhtutn's Avatar
    thanhtutn vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Oct 2010
    Bài
    3
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Default lap theo minh ne

    Trích gemini5156 View Post
    1. lập trình nhập từ bàn phím 3 số nguyên dương a, b, c đưa ra màn hình giá trị max trong 3 số ( dùng 2 câu lệnh if dạng thiếu )

    2. lập trình nhập từ bàn phím 3 số nguyên dương a, b, c sao cho chúng là 3 cạnh tam giác.
    Thanks!
    1 program vd;
    var a,b,c,max:real;
    begin
    writeln('nhap a,b,c'); readln(a,b,c);
    max:=a;
    if b>max then max:=b;
    if c>max then max:=c;
    writeln('max=',max);
    readln;
    end.

  10. #25
    meteor308's Avatar
    meteor308 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Apr 2011
    Bài
    1
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Default

    Trích gemini5156 View Post
    1. lập trình nhập từ bàn phím 3 số nguyên dương a, b, c đưa ra màn hình giá trị max trong 3 số ( dùng 2 câu lệnh if dạng thiếu )

    2. lập trình nhập từ bàn phím 3 số nguyên dương a, b, c sao cho chúng là 3 cạnh tam giác.
    Thanks!
    2.
    var a,b,c:byte;

    begin
    write('nhap vao ba canh cua tam giac:');
    readln(a);
    readln(b);
    readln(c);
    if (a>0) and (b>0) and(c>0) and(a+b>c) and (a+c>b) and (b+c>a) then
    write('vay ba canh ban vua nhap la mot tam giac va co chu vi la:',(a+b+c)/2');
    readln'
    end.
    con bai mot thi co nhieu ban jai rui>
    co len nhe!!

  11. #26
    Tham gia
    Apr 2011
    Bài
    2
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Default

    lam giup minh bai pascal nay nha: viet chuong trinh nhap vao 1 day n so. sau do loc ra cac so duong in tren 1 dong, cac so am duoc in tren 1 dong tiep theo
    thanks

    ---------- Bài thêm lúc 16:29 ---------- Bài trước là lúc 16:25 ----------

    bạ nay nua nha: cho 1 xau ki tu, viet chuong trinh tinh co bao nhieu ki tu la so, bao nhieu ki tu la chu cai
    hjhj thanks

    ---------- Bài thêm lúc 16:34 ---------- Bài trước là lúc 16:29 ----------

    ca bai nay nua nha: viet chuong pascal trinh nhap tu ban phim so C, sao cho thuc hien cac yeu cau sau:

    +) cho day so: -5, 3, -2, 0, 4, 1, 2, 7, -3.
    +) dem xem co bao nhieu so thoa man:
    -lon hon C
    -nho hon C
    -bang C
    giup minh giai nhanh minh 3 bai nay nha
    thanks thanks thanks
    Thay đổi nội dung bởi hoc sinh ca biet; 26-04-2011 lúc 22:17.

  12. #27
    19-6's Avatar
    19-6 vẫn chưa có mặt trong diễn đàn Moderator
    Tham gia
    Sep 2008
    Đến từ
    Abyss
    Bài
    1.904
    Cảm ơn
    858
    Điểm
    3.417/1.515 bài viết

    Default

    Trích hoc sinh ca biet View Post
    lam giup minh bai pascal nay nha: viet chuong trinh nhap vao 1 day n so. sau do loc ra cac so duong in tren 1 dong, cac so am duoc in tren 1 dong tiep theo
    Code:
    uses crt;
    var a: array [1..50] of integer;
        n, i: integer;
    
    begin
     clrscr;
     write('Nhap so phan tu cua day so, N= ');
     readln(n);
     for i:=1 to n do
     begin
      write('Phan tu thu ',i,' = ');
      readln(a[i]);
     end;
     for i:=1 to n do
      if a[i]>0 then
       write(a[i],' ');
     writeln;
     for i:=1 to n do
      if a[i]<0 then
       write(a[i],' ');
     readln;
    end.
    Trích hoc sinh ca biet View Post
    bai nay nua nha: cho 1 xau ki tu, viet chuong trinh tinh co bao nhieu ki tu la so, bao nhieu ki tu la chu cai
    Code:
    uses crt;
    var st: string;
     i, c, s: integer;
    BEGIN
     clrscr;
     write('Nhap mot xau ki tu : '); Readln(st);
     s:=0;c:=0;
     for i:=1 to length(st) do
     if st[i] in ['0'..'9'] then
      s:=s+1
     else
      c:=c+1;
     writeln('So chu so trong xau: ',s);
     writeln('So chu cai trong xau: ',c);
     readln ;
    END.
    Thay đổi nội dung bởi 19-6; 30-06-2011 lúc 12:16.


  13. #28
    Tham gia
    Apr 2011
    Bài
    2
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Default

    co ạ giai giup minh bai con lai kia ho minh cại

    ---------- Bài thêm lúc 21:34 ---------- Bài trước là lúc 21:19 ----------

    ah con 1 bai nua:
    program VD1;
    var f:text;
    n, mx, k: longint;
    begin
    assign(f,'INPUT.DAT');
    reset(f);
    mx:=-2147483647;
    while not eof(f) do
    begin
    read(f,n);
    If n> mx then
    begin
    mx:=n;
    k:=1;
    End;
    else If n:=mx then k:=k+1;
    End;
    close(f);
    writeln(mx, ' '. k);
    End.
    cho biet chuong trinh tren thuc hien viec gi?
    giup minh nha. thanhks thanks thanks

    ---------- Bài thêm lúc 22:05 ---------- Bài trước là lúc 21:35 ----------

    co ai giup duoc minh 2 bai con lai kia duoc khong?

    ---------- Bài thêm lúc 22:06 ---------- Bài trước là lúc 22:05 ----------

    Help me. Help me
    Thay đổi nội dung bởi hoc sinh ca biet; 26-04-2011 lúc 22:20.

  14. #29
    19-6's Avatar
    19-6 vẫn chưa có mặt trong diễn đàn Moderator
    Tham gia
    Sep 2008
    Đến từ
    Abyss
    Bài
    1.904
    Cảm ơn
    858
    Điểm
    3.417/1.515 bài viết

    Default

    Trích hoc sinh ca biet View Post
    ca bai nay nua nha: viet chuong pascal trinh nhap tu ban phim so C, sao cho thuc hien cac yeu cau sau:

    +) cho day so: -5, 3, -2, 0, 4, 1, 2, 7, -3.
    +) dem xem co bao nhieu so thoa man:
    -lon hon C
    -nho hon C
    -bang C
    giup minh giai nhanh minh 3 bai nay nha
    Code:
    uses crt;
    const a: array [1..9] of integer=(-5,3,-2,0,4,1,2,7,-3);
    var i,c,d1,d2,d3: integer;
    
    begin
     clrscr;
     write('Nhap C: ');
     readln(c);
     d1:=0;d2:=0;d3:=0;
     for i:=1 to 9 do
     begin
      if a[i]>c then inc(d1);
      if a[i]<c then inc(d2);
      if a[i]=c then inc(d3);
     end;
     writeln('Cac so > c: ',d1);
     writeln('Cac so < c: ',d2);
     writeln('Cac so = c: ',d3);
     readln;
    end.
    Thay đổi nội dung bởi 19-6; 30-06-2011 lúc 12:19.


 

 
Trang 2/2 đầuđầu 1 2

Quyền sử dụng

  • 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ể tự sửa bài viết của mình
  •