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

Wiko Highway: 4G mạnh mẽ với camera “khủng”, Signs bắt mắt nhờ thiết kế

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

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

Tin tức công nghệ mới nhất

Rủ mem nữ Hà Nội VN-Zoom tham gia Asus Expo 2014
kết quả từ 1 tới 7 trên 7
  1. #1
    kien_coi_1997's Avatar
    kien_coi_1997 vẫn chưa có mặt trong diễn đàn Rìu Vàng Đôi
    Tham gia
    Apr 2009
    Đến từ
    Hà nội
    Bài
    1.116
    Cảm ơn
    693
    Điểm
    1.254/559 bài viết
    VR power
    0

    Talking Chương trình tính điểm trung bình học kì nè

    program trungbinh;
    uses crt;
    var
    a,b:shortint; {de chay vong lap}
    dem{dem so diem},tmp{so mon o demx}:shortint;
    diem{diem tam thoi},tong{tong diem}:real;
    tb:array[1..14]of real;
    demx,tongdiem:array[1..13,1..4]of real;
    mon:array[1..13]of string; {ten mon(toan, van, ...)}
    procedure nhap(tenmon:string;heso:shortint);
    begin {bat dau procedure}
    {Tinh tong diem va bien "dem" }
    {reset cac bien can thiet}
    dem:=0;
    diem:=0;
    tong:=0;
    {xong phan reset}
    clrscr;
    writeln('Cac diem he so ',heso,' cua mon ',tenmon,' la:');
    repeat
    begin {bat dau vong lap nhap diem }
    write(' ');readln(diem);
    {kiem tra}
    if (diem>10) or (diem<0) then {neu sai}
    begin
    gotoxy(wherex,wherey-1);
    delline; {xoa dong sai}
    write(' ');
    TextColor(LightRed+Blink); {to mau do lam noi bat}
    writeln(diem:2:2);
    normvideo;
    write('NHAP SAI, AN ENTER DE NHAP LAI');
    readln;
    gotoxy(wherex,wherey-1); {xoa dong sai va dong thong bao}
    delline;
    gotoxy(wherex,wherey-1);
    delline;
    end
    else {neu dung}
    begin
    tong:=tong+diem;
    dem:=dem+1;
    end; {kiem tra xong}
    end; {ket thuc vong lap}
    until (diem=0);
    tmp:=tmp+1;
    demx[tmp div 3+1,heso]:=dem-1;
    tongdiem[tmp div 3+1,heso]:=tong;
    end; {ket thuc procedure}
    begin {chuong trinh chinh}
    {set cac mon}
    mon[1]:='toan';
    mon[2]:='ly';
    mon[3]:='hoa';
    mon[4]:='sinh';
    mon[5]:='anh';
    mon[6]:='van';
    mon[7]:='su';
    mon[8]:='dia';
    mon[9]:='gdcd';
    mon[10]:='cong';
    mon[11]:='td';
    mon[12]:='nhac';
    mon[13]:='ve';
    {set xong}
    {nhap diem}
    for a:= 1 to 13 do
    for b:= 1 to 3 do
    nhap(mon[a],b);
    {xet he so}
    for a:= 1 to 13 do
    for b:= 1 to 3 do
    begin
    tongdiem[a,b]:=tongdiem[a,b]*b;
    demx[a,b]:=demx[a,b]*b;
    end;
    {tinh tong}
    for a:= 1 to 13 do
    begin
    tongdiem[a,4]:=tongdiem[a,1]+tongdiem[a,2]+tongdiem[a,3];
    demx[a,4]:=demx[a,1]+demx[a,2]+demx[a,3];
    end;
    {tinh trung binh}
    for b:= 1 to 13 do
    if demx[b,4] >0 then
    tb[b]:=tongdiem[b,4]/demx[b,4]
    else
    tb[b]:=0;
    {trung binh ca nam, toan van nhan doi}
    b:=0;
    for a:=1 to 13 do
    if tb[a] <>0 then
    begin
    tb[14]:=tb[14]+tb[a];
    b:=b+1;
    end;
    if tb[1] <>0 then
    begin
    tb[14]:=tb[14]+tb[1];
    b:=b+1;
    end;
    if tb[6] <>0 then
    begin
    tb[14]:=tb[14]+tb[6];
    b:=b+1;
    end;
    if b<>0 then
    tb[14]:=tb[14]/b
    else
    tb[14]:=0;
    {xuat}
    clrscr;
    for a:= 1 to 13 do
    writeln('Diem trung binh mon ',mon[a],' la: ',tb[a]:2:2);
    writeln;
    writeln('Diem trung binh ca nam la: ',tb[14]:2:2);
    {toan,ly,hoa,sinh,anh,van,su,dia,gdcd,cong,td,nhac ,ve,tchon,tin}
    readln;
    end. {ket thuc chuong trinh chinh}

  2. #2
    kien_coi_1997's Avatar
    kien_coi_1997 vẫn chưa có mặt trong diễn đàn Rìu Vàng Đôi
    Tham gia
    Apr 2009
    Đến từ
    Hà nội
    Bài
    1.116
    Cảm ơn
    693
    Điểm
    1.254/559 bài viết
    VR power
    0

    Default

    Ban nao thử nghiệm giúp mình cái.
    Có gì sai sót mong các bạn chỉ giùm.
    Hãy góp ý cho mình nhé.

    Cái nút cảm ơn để làm gì nhỉ?

  3. #3
    linkin831987's Avatar
    linkin831987 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    May 2009
    Bài
    3
    Cảm ơn
    1
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    bài viết cùa bạn có ý tưởng đó ........ hay

  4. #4
    thayai's Avatar
    thayai vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Oct 2007
    Đến từ
    Ninh thuận
    Bài
    97
    Cảm ơn
    30
    Điểm
    42/13 bài viết
    VR power
    0

    Default

    đúng là gà con. mình xin nói nhé. Chương trình tính điểm và xếp loại này tụi học sinh khá làm đc hết. Giờ ở Ninh THuận bọn tớ đang tìm cách viết chương trình tạo ra trò chơi trong đó có sử dụng graph. nếu bạn nào bik thì post nhé. Mình chỉ mới đọc sơ qua bài dùng pascal để viết chương trình trúc xanh. có bạn nào viết thì post nhé. Còn chương trình của cậu chỉ đủ sài trong trường thui. Nếu ai cần chương trình khóa password cứ liên hệ nick Yahoo của mình : thaisontuananh2000. Thân!
    ai cũng có một cuộc đời
    tùy theo số phận mà
    ta giàu sang, nghèo đói
    Let's fight to go to win !
    chúng ta hãy chiến đấu để chiến thắng

  5. #5
    Lam_Sung's Avatar
    Lam_Sung vẫn chưa có mặt trong diễn đàn Rìu Chiến Bạc
    Tham gia
    Jan 2008
    Bài
    3.461
    Cảm ơn
    531
    Điểm
    1.871/1.071 bài viết
    VR power
    0

    Default

    cái này mình thấy không khả thi đâu nên tính bằng excell nhanh hơn chứ cái này viết chương trình lâu lắm không khả thi đâu
    "Đừng níu kéo những gì xa tầm với
    Mây của trời hãy để gió cuốn đi.."

  6. #6
    Tham gia
    May 2009
    Bài
    5
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    phải đó pascal chỉ viết cho vui thôi, chứ ứng dụng chẳng được bao nhiêu, tốt nhất bạn không nên phí sức làm gì.còn về việc viết trò chơi thì chẳng khả thi chút nào,đồ họa trong pascal làm sao mà đáp ứng được,nếu có viết thì cũng chỉ là mấy trò như cờ caro thôi

  7. #7
    fcphucma296426's Avatar
    fcphucma296426 vẫn chưa có mặt trong diễn đàn Búa Gỗ Đôi
    Tham gia
    Apr 2008
    Bài
    31
    Cảm ơn
    8
    Điểm
    13/3 bài viết
    VR power
    0

    Default

    Chài aj.Dùng Excell đi bạn ơi.Chắc là rảnh quá mà.

 

 

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
  •