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

Smartphone WIKO của Pháp chính thức xuất hiện tại Việt Nam

Tìm HD - Phần mềm tìm và xem phim HD miễn phí

Cuộc thi khoảnh khắc tuyệt vời cùng Vn-Zoom.com

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

Tuyển thành viên nhóm Reviews diễn đàn

VN-Zoom & ASUS đón siêu phẩm,tăng tốc chuẩn bị ASUS Expo 2014
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
    VR power
    0

    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
    VR power
    0

    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
    VR power
    0

    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
    VR power
    0

    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
    VR power
    0

    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
    VR power
    0

    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
    VR power
    0

    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
    VR power
    0

    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
    VR power
    0

    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
    VR power
    0

    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
    VR power
    0

    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.410/1.515 bài viết
    VR power
    0

    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
    VR power
    0

    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.410/1.515 bài viết
    VR power
    0

    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
  •