Hiển thị kết quả từ 1 đến 3 / 3

Chủ đề: bai tap pascal 11 day

  1. #1
    Tham gia
    06-01-2010
    Bài viết
    8
    Like
    0
    Thanked 0 Times in 0 Posts

    Cần chú ý ! bai tap pascal 11 day

    cau 1: dung vong lap for ve ra tam giac can bang dau * va tinh S
    cau 2: dung vong lap for ve ra hinh binh hanh va tinh S
    co giup em nhe Thanks.
    Quote Quote

  2. #2
    Tham gia
    13-01-2010
    Bài viết
    78
    Like
    0
    Thanked 0 Times in 0 Posts
    Câu 1:
    program ve_TG;
    uses crt;
    var
    begin
    clrscr;
    write('nhap chieu cao cua tam giac');readln(h);
    {Ve dinh tam giac}
    Writeln('*':h);
    {Ve 2 canh tam giac}
    For i:=1 to h-2 do writeln('*':h-i,'*':2*i);
    {Ve day tam giac}
    For i:=1 to 2*h-1 do write('*');
    readln;
    end.
    Bài này mình vẽ 1 tam giác cân rỗng bằng các dấu '*'. Còn muốn tam giác đặc thì bạn sửa lại đôi chút ^^!.
    Câu 2: Chưa nghĩ ra hướng

  3. #3
    Tham gia
    13-01-2010
    Bài viết
    16
    Like
    1
    Thanked 2 Times in 2 Posts
    uses crt;
    var i,a,ch:integer; d,s,h,goc:real;
    begin clrscr;
    {Vẽ hình bình hành dựa vào: Cạnh a, cạnh huyền ch, góc radian < =1 goc <=180 }
    {Không thể vẽ chính xác được. dơn vị làm tròn là 1 đơn vị. }
    readln(a,ch,goc);
    h:=ch*sin(goc);
    d:=ch*cos(goc);
    write('':round(d));
    {ve day}
    for i:=1 to a do write('*');
    writeln;
    {ve canh hai ben}
    for i:=1 to round(h)-2 do writeln('*':round(h),'*':a-1);
    {ve day}
    for i:=1 to a do write('*');
    Writeln('Dien tich la',abs(a*h):8:1);
    readln
    end.

Bookmarks

Quy định

  • 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ể sửa bài viết của mình
  •