Bạn ghé thăm diễn đàn lần đầu? hãy đăng ký ngay bây giờ để tham gia.
  • Đăng nhập:

Chào mừng bạn đến với ITVNN FORUM - Diễn đàn công nghệ thông tin.

Nếu đây là lần đầu tiên bạn tham gia diễn đàn, xin mời bạn xem phần Hỏi/Ðáp để biết cách dùng diễn đàn. Để có thể tham gia thảo luận bạn phải đăng ký làm thành viên, click vào đây để đăng ký.


  • Partner Area
kết quả từ 1 tới 5 trên 5
Tăng kích thước phông chữ Giảm kích thước phông chữ
  1. #1
    viethoan's Avatar

    Trạng thái
    Offline
    Tham gia ngày
    Jan 2010
    Thành viên thứ
    8403
    Tuổi
    25
    Giới tính
    Bài gởi
    1
    Level: 13 [?]
    Experience: 3,593
    Next Level: 4,033
    Cảm ơn 0
    Cảm ơn 0 lần / 0 Bài viết

    Icon10 Cần mọi người làm giúp gấp  

    cho mảng A gồm n phần tử số thực ( n<=100). hay lap trinh
    a, Tính tích các phần tử là số chẵn
    b, tích các phần tử số lẻ

  2. #2
    hoang_fc's Avatar

    Trạng thái
    Offline
    Tham gia ngày
    Sep 2009
    Thành viên thứ
    139
    Tuổi
    29
    Giới tính
    Bài gởi
    73
    Level: 30 [?]
    Experience: 271,843
    Next Level: 300,073
    Cảm ơn 1
    Cảm ơn 2 lần / 2 Bài viết

    Default

    Sặc, trời ơi
    dùng 2 vòng while là xong

    tichle:=1;
    i:=1;
    while (i<100)
    {
    tichle:=tichle*a[i];
    i:=i+2;
    }
    tichchan:=1;
    i:=2;
    while (i<=100)
    {
    tichchan:=tichchan*a[i];
    i:=i+2;
    }

  3. #3
    duyhung1no2's Avatar

    Trạng thái
    Offline
    Tham gia ngày
    Apr 2010
    Thành viên thứ
    16322
    Tuổi
    26
    Giới tính
    Bài gởi
    2
    Level: 15 [?]
    Experience: 7,010
    Next Level: 7,465
    Cảm ơn 0
    Cảm ơn 0 lần / 0 Bài viết

    Default

    Trích Nguyên văn bởi viethoan View Post
    cho mảng A gồm n phần tử số thực ( n<=100). hay lap trinh
    a, Tính tích các phần tử là số chẵn
    b, tích các phần tử số lẻ

    VAR N,i,tichle,tichchan:integer;
    BEGIN
    Writeln('Nhap so phan tu day so N= ');
    Readln(N);

    tichle:=1;
    tichchan:=1;

    For i:=1 to N do
    Begin
    write('a[',i,']=');
    Readln(a[i]);
    If a[i] mod 2 =0 then tichchan:=tichchan*a[i]
    else tichle:=tichle*a[i];
    End;

    writeln('tich cac so chan=',tichchan);
    writeln('tich cac so le=',tichle);
    readln;
    end.
    thay đổi nội dung bởi: duyhung1no2; 18-04-2010 lúc 06:48 AM

  4. #4
    buihals's Avatar

    Trạng thái
    Offline
    Tham gia ngày
    Apr 2010
    Thành viên thứ
    16349
    Tuổi
    20
    Giới tính
    Bài gởi
    3
    Level: 17 [?]
    Experience: 10,514
    Next Level: 13,278
    Cảm ơn 0
    Cảm ơn 0 lần / 0 Bài viết

    Default

    ặc dốt nhất pascal
    chỉ biết sql
    để mình làm thử xem nào

  5. #5
    nhock_quậy's Avatar

    Trạng thái
    Offline
    Họ tên
    O_o
    Tham gia ngày
    Sep 2009
    Thành viên thứ
    27
    Đến từ
    nhà tớ ^^
    Giới tính
    Bài gởi
    280
    Level: 37 [?]
    Experience: 1,043,184
    Next Level: 1,209,937
    Cảm ơn 60
    Cảm ơn 37 lần / 24 Bài viết

    Default

    Trích Nguyên văn bởi duyhung1no2 View Post
    VAR N,i,tichle,tichchan:integer;
    BEGIN
    Writeln('Nhap so phan tu day so N= ');
    Readln(N);

    tichle:=1;
    tichchan:=1;

    For i:=1 to N do
    Begin
    write('a[',i,']=');
    Readln(a[i]);
    If a[i] mod 2 =0 then tichchan:=tichchan*a[i]
    else tichle:=tichle*a[i];
    End;

    writeln('tich cac so chan=',tichchan);
    writeln('tich cac so le=',tichle);
    readln;
    end.
    bài bác này phù hợp với chương trình lớp 11 này. tuy nhiên phần khai báo sai tí. bài cho n phần tử số thực nên tích của nó cũng là số thực, với lại i, n để integer thì phí bộ nhớ...
    Var i,n : byte;
    tichchan, tichle: real;
    còn nữa, vì kiểu thực nên khi in ra màn hình nếu không viết cái gì sau cái chỗ tichchan, tichle thì sẽ không nhìn rõ kết quả, nên viết
    writeln('tich cac so chan=',tichchan:4);
    writeln('tich cac so le=',tichle:4);
    à, thêm cái dòng: có lạc rang sẽ có rượu ( clrscr) sau Begin để làm sạch màn hình nữa

    Có thể do cô tin của mình yêu cầu quá nhiều nên mấy cái mình nói ko cần thiết...


 

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Bookmarks

Quuyền Hạn Của Bạn

  • Bạn không thể tạo chủ đề mới
  • Bạn không thể trả lời bài viết
  • Bạn không thể gửi file đính kèm
  • Bạn không thể chỉnh sửa bài viết
  •