1. Tuyển Mod quản lý diễn đàn. Các thành viên xem chi tiết tại đây

HN- Mong cac gioi ve Pascal ban giup do.

Chủ đề trong 'Hỏi đáp Tin học' bởi tantrovn, 20/03/2002.

  1. 1 người đang xem box này (Thành viên: 0, Khách: 1)
  1. tantrovn

    tantrovn Thành viên mới

    Tham gia ngày:
    12/03/2002
    Bài viết:
    12
    Đã được thích:
    0
    Toi co may bai pascal nhung kho qua,khong lam duoc,ma toi cung chang biet nho ai nen chi mong cac ban giup do.
    Bai 1:
    Viet phuong trinh pascal de nhap vao 3 so a,b,c.Hay xet dieu kien tao thanh tam giac cua 3 so nay.
    Bai 2:
    Viet phuong trinh Pascal de nhap vao mot day so x1,x2,.....xn.Hay tim so lon nhat trong day so nay.
    Bai 3:
    Viet phuong trinh Pascal de nhap vao mot day so x1,x2,........xn.Hay tinh trung binh cong cac so duong trong day so nay.
    Neu ai giup toi giai nhung bai nay toi xin cam on nhieu.
    Va gui cho toi theo dia chi email: tantro02vn@yahoo.com

    ffsdsds
  2. flextor

    flextor Thành viên mới

    Tham gia ngày:
    24/01/2002
    Bài viết:
    89
    Đã được thích:
    0
    Bai 1: Dieu kien cua 3 so nhap vao de tao thanh tam giac:
    + 3 so a,b,c deu duong.
    + Xet truong hop theo dinh ly Pitago - cho tam giac vuong.
    (c.huyen)2 = (canh1)2+(canh2)2
    Bai 2:
    + Tao chuoi (array) de nhap gia tri so x1,x2...xn dang so (byte, interger..)
    + Tao chuoi tam de cho so vao so sanh.
    + Dung ham for...to de chay chuoi va xet cac truong hop A=b, a>b, a<b.
    Bai 3:
    Lam tuong tu nhu tren nhung cong tat ca cac phan tu trong day lai chia cho so lan nhap cac so vao chuong trinh.
    Chuc ban thanh cong!
    Flextor
  3. tam_su_hoc_dao

    tam_su_hoc_dao Thành viên quen thuộc

    Tham gia ngày:
    20/03/2002
    Bài viết:
    131
    Đã được thích:
    0
    ---------------------------
    Bài 1:
    - Nếu là tam giác thường: a,b,c >>0 là đk cần , chứ chưa phải là đk đủ.
    - Để 3 số a,b,c la 3 cạnh của tam giác thì: a,b,c đều dương và tổng hai cạnh bất kỳ phải lớn hơn cạnh thứ ba.
    - Vậy dk trong lập trình là : (a,b,c >0) and (a+b>c) and (a+c>b) and (b+c>a).
    Bài 2:
    Bài 2:
    - a
    5
  4. nvxntth

    nvxntth Thành viên mới

    Tham gia ngày:
    09/03/2002
    Bài viết:
    13
    Đã được thích:
    0
    1. để xét điều kiện tồn tại một tam giá thi bạn kiển tra điều kiện sau tổng hai cạnh luôn lớn hơn cạnh còn lại
    2. ban có thể dùng phương pháp lấy phần tử dau tiên đem so sánh với các phần tử còn lại nếu tìm được phần tử trong mảng lớn hơn thì gán max= phần tử đó tại vị trí i nào đó trong mảng và so sánh tiếp với từ vị trí i đó đến phần tử cuối cùng la bạn tìm ra được giá trị max. Bạn có thể sử dụng phương pháp xăp xếp nhanh để tim max trong quển sách cáu trúc dữ liệu và giả thuật
    3. Ban có thể đặt bien D nào đó để đếm số dương trong mảng, một biến T chứa tổng số dương, một TB biến trung bình. Thức hiện bước kiểm tra A>=0 số dương trong mảng nếu phần tử nào dương thì T:=T+A, D=D+1
    hết vòng lap tính trung bình số duong
    TB=T/D là ra trung binhg các số dương
    xinh
  5. Ttma2212

    Ttma2212 Thành viên quen thuộc

    Tham gia ngày:
    21/12/2001
    Bài viết:
    211
    Đã được thích:
    0
    bạn không biết thật à, tôi thấy máy bài này nên đọc sách thì có ích hơn đấy, như sách của Quách Tuấn Ngọc chẳng hạn
    TTMA2212
  6. son_nx

    son_nx Thành viên mới

    Tham gia ngày:
    22/04/2002
    Bài viết:
    7
    Đã được thích:
    0
    Bài 2 :
    Bạn có thể giải bằng phương pháp loại trừ như sau :
    max:=0;
    For i:=1 to n do
    begin
    if a >gtmax then
    gtmax := a;
    end;
    Trong đó a là mảng chứa các giá trị cần duyệt.

    [blue]vinamilk
  7. Help_Me

    Help_Me Thành viên mới

    Tham gia ngày:
    21/04/2002
    Bài viết:
    29
    Đã được thích:
    0
    Tôi xin trình bày một giải thuật giúp ban giai quyết các bài tâp trên:
    Bài 1: Trước hết bạn nhập 3 cạnh a, b, c: sau đó kiểm tra xem tổng 2 cạnh có lớn hơn 1 cạnh kia không..OK
    if ((a+b)>c) and ((a+c)>b) and ((c+b)>a) then
    Ba cạnh thoả mãn là một tam giác...
    OK?
    Bài 2: Bạn hãy nhập array x[1]->......->x[n] sau đó cho max:=x[1] rồi dung vòng lặp for i:=2 ->n, nếu x>max thì max:=x. Cứ như vậy bạn sẽ tìm được Max.
    max:=x[1];
    for i:=2 to n do
    if x>max then
    max:=x;
    OK?
    Bài 3: Bạn hãy nhập array x[1]->......->x[n] sau đó:
    dem:=0;
    tong:=0;
    for i:=1 to n do
    if x>0 then
    begin
    tong:=tong+x;
    dem:=dem+1;
    end;
    TB:=tong/dem;
    OK?
    Chúc bạn thành công!
    (Nếu hướng dãn bạn như vậu chưa đủ bạn cứ mail cho mình)

    ThanhBinh

Chia sẻ trang này