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!

Bán đấu giá ủng hộ từ thiện

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

Tin tức công nghệ mới
Trang 1/2 1 2 cuốicuối
kết quả từ 1 tới 15 trên 16
  1. #1
    Zonzon2006's Avatar
    Zonzon2006 vẫn chưa có mặt trong diễn đàn Búa Gỗ Đôi
    Tham gia
    Oct 2007
    Bài
    36
    Cảm ơn
    0
    Điểm
    91/18 bài viết

    Default Một số bài tập mẫu trong PASCAL

    GIAO TRINH LY THUYET VA BAI TAP TURBO PASCAL-CHUONG 1


    Program PTB2;
    Var
    a,b,c:Integer;
    delta,x1,x2:Real;
    Begin
    Writeln('GIAI PHUONG TRINH BAC HAI');
    Writeln(' --------------');
    Repeat
    Write('-Nhap he so a= ');
    Readln(a);
    Until a <>0;
    Write('-Nhap he so b= ');
    Readln(b);
    Write('-Nhap he so c= ');
    Readln(c);
    delta:=b*b-4*a*c;
    If delta < 0 Then
    Writeln('*Phuong trinh vo nghiem')
    Else
    If delta = 0 Then
    Writeln('*Phuong trinh co 2 nghiem bang nhau X= ',-b/2*a:6:2)
    Else
    Begin
    x1:=(-b-sqrt(delta))/2*a;
    x2:=(-b+sqrt(delta))/2*a;
    Writeln('*Nghiem thu nhat X1= ',x1:6:2);
    Writeln('*Nghiem thu hai X2= ',x2:6:2);
    End;
    readln
    End.
    **********0102**********
    Program Ao_thu;
    Begin
    Writeln(' BAI THO AO THU');
    Writeln('Ao thu lanh leo nuoc trong veo');
    Writeln('Mot chiec thuyen cau be teo teo');
    Writeln('Song biec theo lan hoi gon ty');
    Writeln('La vang truoc gio se dua veo');
    Writeln(' NGUYEN KHUYEN');
    Readln
    End.
    **********0103**********
    Program So_hoc;
    Var
    so1,so2,tong,hieu,tich:Integer;
    thuong:Real;
    Begin
    Write('-Nhap so thu nhat = ');
    Readln(so1);
    Write('-Nhap so thu hai = ');
    Readln(so2);
    tong := so1 + so2;
    hieu := so1 - so2;
    tich := so1 * so2;
    thuong := so1 / so2;
    Writeln('*Tong cua hai so ',so1,' va ',so2,' = ',tong);
    Writeln('*Hieu cua hai so ',so1,' va ',so2,' = ',hieu);
    Writeln('*Tich cua hai so ',so1,' va ',so2,' = ',tich);
    Writeln('*Thuong cua hai so ',so1,' va ',so2,' = ',thuong:6:2);
    Readln
    End.
    **********0104**********
    Program Pithagore;
    Var
    a,b :Integer;
    c:Real;
    Begin
    Writeln(' CHUONG TRINH TINH CANH HUYEN TAM GIAC VUONG');
    Writeln(' theo dinh ly Pithagore');
    Write('-Nhap canh a = ');
    Readln(a);
    Write('-Nhap canh b = ');
    Readln(b);
    c := Sqrt((a*a) + (b*b));
    Writeln('*Canh huyen = ',c:6:2);
    Readln
    End.
    **********0105**********
    Program Phep_Cong;
    Var
    so1,so2,so3,tong :Integer;

    Begin
    Writeln(' CHUONG TRINH THUC HIEN PHEP CONG SO HOC');
    Writeln(' co toi da 4 ky so');
    Write('-Nhap so thu nhat = ');
    Readln(so1);
    Write('-Nhap so thu hai = ');
    Readln(so2);
    Write('-Nhap so thu ba = ');
    Readln(so3);
    tong:= so1+so2+so3;
    Writeln;
    Writeln;
    Writeln('-------------------------------');
    Writeln;
    Writeln(' ',so1:4);
    Writeln(' + ',so2:4);
    Writeln(' ',so3:4);
    Writeln(' -----');
    Writeln(' = ',tong:5);
    Readln
    End.
    **********0106**********
    Program Lenh_Write;
    Begin
    Write('Nam ');
    Write('Quoc ');
    Write('Son ');
    Write('Ha ');
    Write('Nam ');
    Write('De ');
    Write('Cu ');
    Readln
    End.
    **********0107
    Program Lenh_Writeln;
    Begin
    Writeln('Nam ');
    Writeln('Quoc ');
    Writeln('Son ');
    Writeln('Ha ');
    Writeln('Nam ');
    Writeln('De ');
    Writeln('Cu ');
    Readln
    End.
    *********0108*********
    Program Tam_giac_Pascal;
    Begin
    Writeln(' 1');
    Writeln(' 1 1');
    Writeln(' 1 2 1');
    Writeln(' 1 3 3 1');
    Writeln('1 4 6 4 1');
    Readln
    End.
    *********0109*********
    Program Hinh_tron;
    Var
    r:Integer;
    s:Real;
    Begin
    Writeln('CHUONG TRINH TINH DIEN TICH HINH TRON');
    Write('-Cho biet ban kinh = ');
    Readln(r);
    s:=3.1416 * r * r;
    Writeln('*Dien tich hinh tron = ',s:6:2,' met vuong');
    Readln
    End.
    *********0110**********
    Program Khuon_dang;
    Var
    ky_tu :Char;
    chuoi :string[24];
    so_nguyen:Integer;
    so_thuc:Real;
    Begin
    Writeln('CHUONG TRINH XUAT DU LIEU THEO KHUON DANG');
    Write('-Nhap mot ky tu = ');
    Readln(ky_tu);
    Write('-Nhap ho ten = ');
    Readln(chuoi);
    Write('-Nhap mot so nguyen = ');
    Readln(so_nguyen);
    Write('-Nhap mot so thuc = ');
    Readln(so_thuc);
    Writln;
    Writeln('------------------------------');
    Writeln('XUAT DU LIEU RA MAN HINH');
    Writeln(ky_tu);
    Writeln(chuoi);
    Writeln(so_nguyen);
    Writeln(so_thuc);
    Readln
    End.
    Thay đổi nội dung bởi Zonzon2006; 13-11-2008 lúc 14:47.
    Xã hội bất công nuôi ta lớn
    Đàn bà phụ bạc dạy ta khôn
    Không đâm không chém đời không nể
    Không tiền không bạc gái không theo

  2. Có 5 thành viên cảm ơn Zonzon2006 cho bài viết này:
    googlecomvnnet (05-10-2012), hehe_conan (11-10-2013), NguyenVietAnh (20-02-2009), quytkiemsihero (11-03-2012), theprincessfunny (05-09-2011)

  3. #2
    YUkimura Sasuke's Avatar
    YUkimura Sasuke vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Sep 2008
    Bài
    85
    Cảm ơn
    67
    Điểm
    13/10 bài viết

    Default

    Post gì vậy. Đây là sách mà qua bên pascal mà ghi!

  4. #3
    Tham gia
    Dec 2009
    Bài
    1
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Default

    ai có thể cho tôi biết muốn ai đó giúp mình giải ộ bài tập pascal thì làm như thế nào

  5. #4
    motphatmeomo's Avatar
    motphatmeomo vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Jul 2009
    Bài
    42
    Cảm ơn
    212
    Điểm
    30/19 bài viết

    Default

    cac bac oi co ai do giup giai bai pascal nay giup voi ....
    câu 1 : viết chương trình vẽ hình chữ nhật cạnh a, b nhập từ bàn phím.
    câu 2 : viết chương trình vẽ quả bóng .
    cám ơn trước nha .

    ---------- Bài viết đã được nhập tự động bởi hệ thống ----------

    Sao không thằng nao chju giúp hết zay , topic nay dẹp được rồi mấy bác .
    Thay đổi nội dung bởi motphatmeomo; 24-12-2009 lúc 08:41. Lý do: Hệ thống nhập bài tự động

  6. #5
    hoangtin14's Avatar
    hoangtin14 vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Apr 2009
    Đến từ
    Bình Định
    Bài
    127
    Cảm ơn
    8
    Điểm
    13/12 bài viết

    Default

    Phần đồ họa này mình bó tay.
    Khi bạn sinh ra mọi người cười trong khi bạn khóc...
    Hãy sống để khi bạn chết, mọi người khóc trong khi bạn cười...

  7. #6
    vjru5zl0v3's Avatar
    vjru5zl0v3 vẫn chưa có mặt trong diễn đàn Rìu Bạc
    Tham gia
    Sep 2008
    Bài
    404
    Cảm ơn
    60
    Điểm
    254/111 bài viết

    Default

    chịu, chả hiểu là post cái khỉ gì, post chương trình nhưng mà là của bài nào, mà muốn hỏi thì bài đâu ="=

    Loong Online: Thần Long Xuất Thế
    http://loong.us

  8. #7
    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

    Nếu muốn hỏi bài thì tạo 1 topic để hỏi đi

  9. #8
    Đức Sang's Avatar
    Đức Sang vẫn chưa có mặt trong diễn đàn Búa Gỗ Đôi
    Tham gia
    Oct 2010
    Bài
    41
    Cảm ơn
    19
    Điểm
    10/5 bài viết

    Default

    bác nào giúp làm hộ bài này cái:
    nhập một dãy số vào từ bàn phím.
    b : tính tổng của căn bậc hai các số chẵn trong khoảng -10 đến 100
    c: sắp xếp dãy số theo thứ tự nhỏ dần
    d: sắp xếp dãy số theo thứ tự từ lớn dần
    các bác làm ơn giúp hộ cái nhá...sắp thi rùi...hehhehehe

  10. #9
    changngoc106's Avatar
    changngoc106 vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Jul 2009
    Bài
    79
    Cảm ơn
    71
    Điểm
    24/14 bài viết

    Default

    b đơn giản nhất:
    Program TSC;
    Uses crt;
    Var i,t:integer;
    Begin
    clrscr;
    i:=-10;
    Repeat
    Begin
    t:=t+i;
    i:=i+2;
    End;
    Until i=100;
    Writeln('Tong cac so chan tu -10 den 100 la' ,t);
    Readln;
    End.
    Say ****

  11. #10
    changngoc106's Avatar
    changngoc106 vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Jul 2009
    Bài
    79
    Cảm ơn
    71
    Điểm
    24/14 bài viết

    Default

    bài c,d:
    Program SXND;
    Uses crt;
    Var a:array[1..100]of integer;i,j,n:integer;
    Begin
    clrscr;
    Write('nhap tong so phan tu=');Readln(n);
    While n<=0 do
    Begin
    Write('nhap lai tong so phan tu lon hon 0=');Readln(n);
    End;
    For i:=1 to n do
    Begin
    Write('nhap so thu',i,'=');Readln(A[i]);
    End;
    For j:=1 to 100 do
    For i:=1 to n-1 do
    If A[i]<A[i+1] then(nếu là đề lớn dần thì thay dấu < bằng dấu >);
    Begin
    tg:=A[i];
    A[i]:=A[i+1];
    A[i+1]:=tg;
    End;
    Writeln('Cac phan tu sau khi sap xep la:');
    For i:=1 to n do Writeln(A[i]);
    Readln;
    End.
    Say ****

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

    Default

    co ai giỏi pascal hok thi pm sđt 01679022018 giải giùm mười mầy bài với nhen!

  13. #12
    naruto493's Avatar
    naruto493 vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    May 2009
    Bài
    157
    Cảm ơn
    29
    Điểm
    252/47 bài viết

    Default

    Trích ngovanhung1993 View Post
    ai có thể cho tôi biết muốn ai đó giúp mình giải ộ bài tập pascal thì làm như thế nào
    liên hệ vs tôi. tại quangtrung.org.vn mình chỉ giải đc trong chương trình THPT thôi

  14. #13
    tiencuty123's Avatar
    tiencuty123 vẫn chưa có mặt trong diễn đàn Búa Gỗ Đôi
    Tham gia
    Oct 2011
    Đến từ
    nhìn làm zề
    Bài
    24
    Cảm ơn
    32
    Điểm
    3/3 bài viết

    Default 123

    ai cho em cai phuong trinh 1 an voi

  15. #14
    thecuong064's Avatar
    thecuong064 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Jun 2011
    Đến từ
    Hacker's Home
    Bài
    936
    Cảm ơn
    133
    Điểm
    417/259 bài viết

    Default

    Trích tiencuty123 View Post
    ai cho em cai phuong trinh 1 an voi
    Sao bạn không hỏi bên box Pascal | C / C++. Vào đây làm gì
    Code hộ bạn
    Code:
    PROGRAM ptbn;
    VAR a,b:INTEGER;
        s:REAL;
    BEGIN   
    writeln('Giai phuong trinh dang ax + b = 0');
    writeln('Nhap he so a');
    readln(a);
    writeln('Nhap he so b');
    readln(b);
    IF (a=0) THEN writeln('Phuong trinh vo nghiem')
    ELSE
    s:=-b/a;
    BEGIN
    writeln('Nghiem cua phuong trinh la x = ',s:0:1);
    END;
    readln;
    END.
    Sai thì bạn bảo nhá

  16. #15
    phlboy01's Avatar
    phlboy01 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Jan 2013
    Bài
    10
    Cảm ơn
    1
    Điểm
    0/0 bài viết

    Default

    Tôi ko biết sử dụng thư viện graph.

 

 
Trang 1/2 1 2 cuốicuối

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
  •