//
you're reading...
Giáo trình Tin học cơ bản

Chương 2: Bài tập mẫu

Bài tập 2.1: Viết chương trình nhập vào độ dài hai cạnh của tam giác và góc giữa hai cạnh đó, sau đó tính và in ra màn hình diện tích của tam giác.


Ý tưởng:


Công thức tính diện tích tam giác: S =  với a,b là độ dài 2 cạnh và q là góc kẹp giữa 2 cạnh a và b.

Program Tinh_dien_tich_tam_giac;
Var a,b,goc,dientich: Real;
Begin
Write('Nhap vao do dai canh thu nhat: '); Readln(a);
Write('Nhap vao do dai canh thu hai: '); Readln(b);
Write('Nhap vao goc giua hai canh: '); Readln(goc);
Dientich:=a*b*sin(goc)/2;
Writeln('Dien tich cua tam giac la: ',Dientich:0:2);
Readln;
End.

Bài tập 2.2: Viết chương trình tính căn bậc n của số x, x>0.


Ý tưởng:


Ta có:

Program Tinh_can_bac_n_cua_x;
Var      x,S: Real;
n: Word;
Begin
Write('Nhap vao n= '); Readln(n);
Write('Nhap vao x= '); Readln(x);
S:=EXP(1/n*LN(x));
Writeln('S = ',S:0:2);
Readln;
End.

Bài tập 2.3:      Viết chương trình nhập vào 2 số a, b. Sau đó hoán đổi giá trị của 2 số đó:


a/ Cho phép dùng biến trung gian.

Program Swap;
Var      a,b,tam: Integer;
Begin
Write('Nhap vao a= '); Readln(a);
Write('Nhap vao b= '); Readln(b);
tam:=a;           {tam lấy giá trị của a}
a:=b;               {a lấy giá trị của b}
b:=tam;           {b lấy lại giá trị của tam}
Writeln('a = ',a,’ b = ‘,b);
Readln;
End.

b/ Không được phép dùng biến trung gian.

Program Swap;
Var      a,b: Integer;
Begin
Write('Nhap vao a= '); Readln(a);
Write('Nhap vao b= '); Readln(b);
a:=a+b;           {a lấy tổng giá trị của a+b}
b:=a-b;            {b lấy giá trị của a}
a:=a-b;                        {a lấy lại giá trị của b}
Writeln('a = ',a,’ b = ‘,b);
Readln;
End.
Advertisements

About pascalteacher

Trang thông tin Toán học và Tin học

Thảo luận

Không có bình luận

Trả lời

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Đăng xuất / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Đăng xuất / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Đăng xuất / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Đăng xuất / Thay đổi )

Connecting to %s

Các tác giả

Categories

Tháng Mười 2016
H B T N S B C
« Th9   Th11 »
 12
3456789
10111213141516
17181920212223
24252627282930
31  

NCT Computer

Flickr Photos

Thống kê

  • 149,393 lượt xem

pascalteacher.nct@gmail.com


Trang huấn luyện học sinh giỏi Tin học

%d bloggers like this: