Tải bản đầy đủ (.ppt) (28 trang)

TIET 15_ON BAI TAP - Website Trường THCS Lê Quý Đôn - Đại Lộc - Quảng Nam

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (618.73 KB, 28 trang )

<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>

<b>BÀI GIẢNG TIN HỌC</b>


<b>BÀI GIẢNG TIN HỌC</b>



<b>(lớp 8)</b>


<b>(lớp 8)</b>



<b> </b>



<b> </b>

<b>Ti</b>

<b><sub>Ti</sub></b>

<b>ết 15: Ôn </b>

<b><sub>ết 15: Ôn </sub></b>


<b>Tập</b>



</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>

1. Chương trình máy tính là gì? Hãy cho biết lí


do cần phải viết chương trình để điều khiển máy


tính?



-

Chương trình máy tính là một dãy các lệnh mà



máy tính có thể hiểu và thực hiện được



- Việc viết nhiều lệnh và tập hợp lại trong một


chương trình, giúp con người điều khiển máy


tính một cách đơn giản và hiệu quả hơn



<b>+ Ngơn ngữ lập trình là gì?</b>



<b>+ Ngơn ngữ lập trình là gì?</b>



Ngơn ngữ dùng để viết các chương trình



Ngơn ngữ dùng để viết các chương trình




máy tính được gọi là ngơn ngữ lập trình.



máy tính được gọi là ngơn ngữ lập trình.



</div>
<span class='text_page_counter'>(3)</span><div class='page_container' data-page=3>

<b>2.Cấu trúc chung của chương trình gồm mấy phần?</b>



<b>2.Cấu trúc chung của chương trình gồm mấy phần?</b>



Gồm 2 phần



Gồm 2 phần



+ Phần khai báo: thường gồm các câu lệnh dùng để khai báo :



+ Phần khai báo: thường gồm các câu lệnh dùng để khai báo :





. Tên chương trình

. Tên chương trình




. Các thư viện và các khai báo khác

. Các thư viện và các khai báo khác



+ Phần thân : gồm có các câu lệnh cần thực hiện nằm trong từ khóa Begin và



+ Phần thân : gồm có các câu lệnh cần thực hiện nằm trong từ khóa Begin và



end.



end.




* + Phần khai báo có thể có hoặc khơng có trong CT



* + Phần khai báo có thể có hoặc khơng có trong CT





</div>
<span class='text_page_counter'>(4)</span><div class='page_container' data-page=4>

<b>3.Từ khóa là gì? Tên là gì? Cho ví dụ?</b>



<b>3.Từ khóa là gì? Tên là gì? Cho ví dụ?</b>



- Từ khố là các từ mà ngơn ngữ lập trình đã quy



- Từ khố là các từ mà ngơn ngữ lập trình đã quy



định là những từ dành riêng không sử dụng vào mục



định là những từ dành riêng khơng sử dụng vào mục



đích khác.



đích khác.





<i><b>VD: Program, begin, end, var…</b></i>

<i><b>VD: Program, begin, end, var…</b></i>



- Tên do người lập trình tự đặt ra và sử dụng những



- Tên do người lập trình tự đặt ra và sử dụng những




kí tự mà ngơn ngữ lập trình cho phép, tên khơng



kí tự mà ngơn ngữ lập trình cho phép, tên khơng



được trùng với từ khố, tên khơng bắt đầu bằng số



được trùng với từ khố, tên khơng bắt đầu bằng số



và không chứa dấu cách.



và không chứa dấu cách.





<b>VD: Tamgiac, Ban_Kinh…</b>

<b>VD: Tamgiac, Ban_Kinh…</b>


<b>4. Các kiểu dữ liệu đã được học?</b>



<b>4. Các kiểu dữ liệu đã được học?</b>




4 kiểu dữ liệu cơ bản của Pascal:

4 kiểu dữ liệu cơ bản của Pascal:




</div>
<span class='text_page_counter'>(5)</span><div class='page_container' data-page=5>


hiệu



Phép tốn

Kiểu dữ liệu



-

Trừ

Integer, real




*

nhân

Integer, real



/

chia

Integer, real



+

Cộng

Integer, real



div

Chia

lấy

phần



nguyên

Integer



mod Chia lấy phần dư

Integer



</div>
<span class='text_page_counter'>(6)</span><div class='page_container' data-page=6>

<b>6. Các phép so sánh?</b>



<b>6. Các phép so sánh?</b>



Các phép



so sánh

( tốn học)

Kí hiêu

Kí hiêu

( Pascal)

Ví dụ

(tốn


học)



Ví dụ


( Pascal)



Bằng

=

=

5=5

5=5



Khác

<>

4≠3

4<>3


Nhỏ hơn

<

<

3<5

3<5


Lớn hơn

>

>

9>7

9>7




Lớn hơn hoặc



bằng

>=

8 ≥ 7

8 >= 7


Nhỏ

hơn



</div>
<span class='text_page_counter'>(7)</span><div class='page_container' data-page=7>

7. Biến là gì? Cú pháp khai báo như thế nào?



7. Biến là gì? Cú pháp khai báo như thế nào?



Cho ví



Cho ví

dụ khai báo biến? VD khai báo biến?

dụ khai báo biến? VD khai báo biến?


- Cú pháp khai báo biến:



- Cú pháp khai báo biến:





Var

<sub>Var </sub>





<Tên các biến> : <kiểu dữ liệu>;

<Tên các biến> : <kiểu dữ liệu>;




<b>VD</b>

<b>VD</b>

:

:




Var tong : integer;

Var tong : integer;





Var S, a : real;

Var S, a : real;




</div>
<span class='text_page_counter'>(8)</span><div class='page_container' data-page=8>

8. Hằng là gì? Cách khai báo như thế nào?


8. Hằng là gì? Cách khai báo như thế nào?



Cho ví dụ?


Cho ví dụ?


Khai báo:

Khai báo:





Cú pháp

Cú pháp

:

:




const

const




<tên hằng>= <giá trị của hằng>;

<tên hằng>= <giá trị của hằng>;




VD:

VD:




const pi=3.14;

const pi=3.14;




</div>
<span class='text_page_counter'>(9)</span><div class='page_container' data-page=9>

Bài 4/33 (SGK): Trong Pascal, khai báo nào sau đây là



đúng?



a)

<i><b>var</b></i>

tb: real;



b)

<i><b>var</b></i>

4hs: integer;


c)

<i><b>const</b></i>

x: real;



d)

<i><b>var</b></i>

R= 30;


<b>ĐÁP ÁN</b>



a) Hợp lệ



b) Khơng hợp lệ vì tên biến bắt đầu là số



c) Không hợp lệ vì câu lệnh khai báo hằng khơng chứa dấu (:) và


hằng phải được gán giá trị cụ thể khi khai báo.



</div>
<span class='text_page_counter'>(10)</span><div class='page_container' data-page=10>

Câu. Viết các biểu thức toán sau đây dưới


dạng biểu thức trong Pascal.



a. 15(4 + 30 + 12)


b.

<i>x</i>

<i><sub>y</sub></i>

<sub></sub>

<i><sub>y</sub></i>






5


18


3




)


10



(

2



</div>
<span class='text_page_counter'>(11)</span><div class='page_container' data-page=11>

+ Để dịch chương trình : Alt+F9


+ Chạy Ctrình nhấn : Ctrl +F9.



+ Lệnh Read (<danh sách biến>) hoăc Readln( <DS biến> )


dùng để nhập dữ liệu từ bàn phím



+ Lệnh Writeln: in thơng tin ra màn hình và đưa con trỏ


xuống đầu dịng. Cịn lệnh Write khơng đưa con trỏ xuống


dòng.



+ Lệnh Writeln( giá trị thực : n : m) in ra số thực với n phần


nguyên và m phần thập phân. Writeln(‘ dien tich la: ‘,S:3:0);


+ Lệnh Clrscr dùng để xoa màn hình sau khi khai báo thư


viện Crt uses;



</div>
<span class='text_page_counter'>(12)</span><div class='page_container' data-page=12>

<b>Program</b>

<b> Dientich.chunhat;</b>

<b> Dientich.chunhat;</b>



<b>Var </b>

<b> a : Integer;</b>

<b> a : Integer;</b>


<b> S: Real;</b>



<b> S: Real;</b>



<b>Const </b>

<b> b=2;</b>

<b> b=2;</b>



<b>Begin</b>




<b> Write(‘Nhap canh a: ’);Readln(a);</b>



<b> Write(‘Nhap canh a: ’);Readln(a);</b>



<b>S:=a*b;</b>



<b>S:=a*b;</b>



<b> Writeln(‘Dien tich hinh tam giac la: ’,S: 3: 0);</b>



<b> Writeln(‘Dien tich hinh tam giac la: ’,S: 3: 0);</b>



<b> Readln;</b>



<b> Readln;</b>



<b>End.</b>



</div>
<span class='text_page_counter'>(13)</span><div class='page_container' data-page=13>

Giải thích từng câu lệnh trong chương trình :



Program DT_hinh_vuong;

{1}



Var a, S: Integer ;

{2}


Begin

{3}



writeln(‘nhap gia tri cho canh a:’);

{4}



readln(a);

{5}




S:=a*a;

{6}



writeln(‘dien tich hinh vuong la:’, S);

{7}



</div>
<span class='text_page_counter'>(14)</span><div class='page_container' data-page=14>

<b> Giải thích từng câu lệnh trong chương trình :</b>



Program DT_hinh_vuong;

{1}



Var a, S: Integer ;

{2}


Begin

{3}



writeln(‘nhap gia tri cho canh a:’);

{4}



readln(a);

{5}



S:=a*a;

{6}



writeln(‘dien tich hinh vuong la:, S);

{7}



End.

{8}



1



1

Khai báo tên ch ơng trình là DT_hinh_vuong

Khai báo tên ch ơng trình là DT_hinh_vuong



2



2

Khai báo biến a và biến S thuộc kiểu số

Khai báo biến a và biến S thuộc kiểu số


nguyên.




nguyên.



3



3

Bắt đầu thân ch ơng trình.

Bắt đầu thân ch ơng trình.



4



4

Lệnh in dòng chữ nhap gia tri cho canh a

Lệnh in dòng chữ nhap gia tri cho canh a


lên màn hình.



lên màn hình.



5



5

Lệnh nhập giá trị cho biến a.

Lệnh nhập giá trị cho biến a.



6



6

Lệnh tính giá trị của a bình ph ơng rồi gán kết

Lệnh tính giá trị của a bình ph ơng rồi gán kết


quả cho biến S.



quả cho biến S.



7



7

Lệnh in dòng chữ diện tích hình vuông là :

Lệnh in dòng chữ diện tích hình vuông là :


và in giá trị của biến S.



và in giá trị của biến S.




8



</div>
<span class='text_page_counter'>(15)</span><div class='page_container' data-page=15>

<b>Bi 1 </b>

<b>Bài 1 </b>



<b>Tìm chỗ trong sai các lệnh khai </b>

<b>Tìm chỗ trong sai các lệnh khai </b>



<b>báo sau và gõ lại cho đúng:</b>



<b>báo sau và gõ lại cho đúng:</b>




a) var start, begin: real;

a) var start, begin: real;




var start, batdau: real;

var start, batdau: real;




b) const x : =3.14; P:=1000;

b) const x : =3.14; P:=1000;




const x =3.14; y =1000;

const x =3.14; y =1000;




c) var a:=5;

c) var a:=5;




const a=5;

const a=5;



d)const ten lop = '8A 2';




d)const ten lop = '8A 2';





</div>
<span class='text_page_counter'>(16)</span><div class='page_container' data-page=16>

Program Hinh_tron;


Program Hinh_tron;


var ban_kinh, chuvi, dien_tich: real;


var ban_kinh, chuvi, dien_tich: real;


const pi =3.14;


const pi =3.14;


Begin


Begin


write(' Cho biết bán kính:'); readln( ban_kinh);


write(' Cho biết bán kính:'); readln( ban_kinh);


Chu_vi:=2*Pi*ban_kinh;
Chu_vi:=2*Pi*ban_kinh;
dien_tich:= Pi*ban_kinh*ban_kinh;
dien_tich:= Pi*ban_kinh*ban_kinh;
writeln('C=',chu_vi,'S=',dien_tich)


writeln('C=',chu_vi,'S=',dien_tich)
readln
readln
end.
end.


Hãy phân biệt hằng và biển trong chương trình bẳng cách đánh dấu váo bảng sau


Hãy phân biệt hằng và biển trong chương trình bẳng cách đánh dấu váo bảng sau


Hằng



Hằng

Biến

Biến

Không phải hằng hoặc biến

Không phải hằng hoặc biến


Pi



</div>
<span class='text_page_counter'>(17)</span><div class='page_container' data-page=17>

<b>Bài 2</b>


<b>Bài 2</b>: Chương trình Pascal dưới đây được viết để tính chu vi và diện tích của hình trịn với bán kính được : Chương trình Pascal dưới đây được viết để tính chu vi và diện tích của hình trịn với bán kính được
nhập từ bàn phím:


nhập từ bàn phím:
Program Hinh_tron;
Program Hinh_tron;


var ban_kinh, chuvi, dien_tich: real;
var ban_kinh, chuvi, dien_tich: real;
const pi =3.14;


const pi =3.14;
Begin



Begin


write(' Cho biết bán kính:'); readln( ban_kinh);
write(' Cho biết bán kính:'); readln( ban_kinh);
Chu_vi:=2*Pi*ban_kinh;
Chu_vi:=2*Pi*ban_kinh;
dien_tich:= Pi*ban_kinh*ban_kinh;
dien_tich:= Pi*ban_kinh*ban_kinh;
writeln('C=',chu_vi,'S=',dien_tich)
writeln('C=',chu_vi,'S=',dien_tich)
readln
readln
end.
end.

Hằng



Hằng

Biến

Biến

Không phải hằng hoặc biến

Không phải hằng hoặc biến


Pi



Pi

x

<sub>x</sub>



</div>
<span class='text_page_counter'>(18)</span><div class='page_container' data-page=18>

<b>Bài 2</b>


<b>Bài 2</b>: Chương trình Pascal dưới đây được viết để tính chu vi và diện tích của hình trịn với bán kính được : Chương trình Pascal dưới đây được viết để tính chu vi và diện tích của hình trịn với bán kính được
nhập từ bàn phím:


nhập từ bàn phím:
Program Hinh_tron;
Program Hinh_tron;



var ban_kinh, chuvi, dien_tich: real;
var ban_kinh, chuvi, dien_tich: real;
const pi =3.14;


const pi =3.14;
Begin


Begin


write(' Cho biết bán kính:'); readln( ban_kinh);
write(' Cho biết bán kính:'); readln( ban_kinh);
Chu_vi:=2*Pi*ban_kinh;
Chu_vi:=2*Pi*ban_kinh;
dien_tich:= Pi*ban_kinh*ban_kinh;
dien_tich:= Pi*ban_kinh*ban_kinh;
writeln('C=',chu_vi,'S=',dien_tich)
writeln('C=',chu_vi,'S=',dien_tich)
readln
readln
end.
end.

Hằng



Hằng

Biến

Biến

Không phải hằng hoặc biến

Không phải hằng hoặc biến


Pi



Pi

x

x



3.14




3.14

x

x



</div>
<span class='text_page_counter'>(19)</span><div class='page_container' data-page=19>

<b>Bài 2</b>


<b>Bài 2</b>: Chương trình Pascal dưới đây được viết để tính chu vi và diện tích của hình trịn với bán kính được : Chương trình Pascal dưới đây được viết để tính chu vi và diện tích của hình trịn với bán kính được
nhập từ bàn phím:


nhập từ bàn phím:
Program Hinh_tron;
Program Hinh_tron;


var ban_kinh, chuvi, dien_tich: real;
var ban_kinh, chuvi, dien_tich: real;
const pi =3.14;


const pi =3.14;
Begin


Begin


write(' Cho biết bán kính:'); readln( ban_kinh);
write(' Cho biết bán kính:'); readln( ban_kinh);
Chu_vi:=2*Pi*ban_kinh;
Chu_vi:=2*Pi*ban_kinh;
dien_tich:= Pi*ban_kinh*ban_kinh;
dien_tich:= Pi*ban_kinh*ban_kinh;
writeln('C=',chu_vi,'S=',dien_tich)
writeln('C=',chu_vi,'S=',dien_tich)
readln


readln
end.
end.

Hằng



Hằng

Biến

Biến

Không phải hằng hoặc biến

Không phải hằng hoặc biến


Pi



Pi

x

x



3.14



3.14

x

x



ban_kinh



ban_kinh

x

x



</div>
<span class='text_page_counter'>(20)</span><div class='page_container' data-page=20>

<b>Bài 2</b>


<b>Bài 2</b>: Chương trình Pascal dưới đây được viết để tính chu vi và diện tích của hình trịn với bán kính được : Chương trình Pascal dưới đây được viết để tính chu vi và diện tích của hình trịn với bán kính được
nhập từ bàn phím:


nhập từ bàn phím:
Program Hinh_tron;
Program Hinh_tron;


var ban_kinh, chuvi, dien_tich: real;
var ban_kinh, chuvi, dien_tich: real;
const pi =3.14;



const pi =3.14;
Begin


Begin


write(' Cho biết bán kính:'); readln( ban_kinh);
write(' Cho biết bán kính:'); readln( ban_kinh);
Chu_vi:=2*Pi*ban_kinh;
Chu_vi:=2*Pi*ban_kinh;
dien_tich:= Pi*ban_kinh*ban_kinh;
dien_tich:= Pi*ban_kinh*ban_kinh;
writeln('C=',chu_vi,'S=',dien_tich)
writeln('C=',chu_vi,'S=',dien_tich)
readln
readln
end.
end.

Hằng



Hằng

Biến

Biến

Khơng phải hằng hoặc biến

Không phải hằng hoặc biến


Pi



Pi

x

x



3.14



3.14

x

x



ban_kinh




ban_kinh

x

x



chuvi



chuvi

x

x



dien_tich



dien_tich



2



</div>
<span class='text_page_counter'>(21)</span><div class='page_container' data-page=21>

<b>Bài 2</b>


<b>Bài 2</b>: Chương trình Pascal dưới đây được viết để tính chu vi và diện tích của hình trịn với bán kính được : Chương trình Pascal dưới đây được viết để tính chu vi và diện tích của hình trịn với bán kính được
nhập từ bàn phím:


nhập từ bàn phím:
Program Hinh_tron;
Program Hinh_tron;


var ban_kinh, chuvi, dien_tich: real;
var ban_kinh, chuvi, dien_tich: real;
const pi =3.14;


const pi =3.14;
Begin


Begin



write(' Cho biết bán kính:'); readln( ban_kinh);
write(' Cho biết bán kính:'); readln( ban_kinh);
Chu_vi:=2*Pi*ban_kinh;
Chu_vi:=2*Pi*ban_kinh;
dien_tich:= Pi*ban_kinh*ban_kinh;
dien_tich:= Pi*ban_kinh*ban_kinh;
writeln('C=',chu_vi,'S=',dien_tich)
writeln('C=',chu_vi,'S=',dien_tich)
readln
readln
end.
end.

Hằng



Hằng

Biến

Biến

Không phải hằng hoặc biến

Không phải hằng hoặc biến


Pi



Pi

x

x



3.14



3.14

x

x



ban_kinh



ban_kinh

x

x



chuvi




chuvi

x

x



dien_tich



dien_tich

x

x



2



</div>
<span class='text_page_counter'>(22)</span><div class='page_container' data-page=22>

<b>Bài 2</b>


<b>Bài 2</b>: Chương trình Pascal dưới đây được viết để tính chu vi và diện tích của hình trịn với bán kính được : Chương trình Pascal dưới đây được viết để tính chu vi và diện tích của hình trịn với bán kính được
nhập từ bàn phím:


nhập từ bàn phím:
Program Hinh_tron;
Program Hinh_tron;


var ban_kinh, chuvi, dien_tich: real;
var ban_kinh, chuvi, dien_tich: real;
const pi =3.14;


const pi =3.14;
Begin


Begin


write(' Cho biết bán kính:'); readln( ban_kinh);
write(' Cho biết bán kính:'); readln( ban_kinh);
Chu_vi:=2*Pi*ban_kinh;
Chu_vi:=2*Pi*ban_kinh;


dien_tich:= Pi*ban_kinh*ban_kinh;
dien_tich:= Pi*ban_kinh*ban_kinh;
writeln('C=',chu_vi,'S=',dien_tich)
writeln('C=',chu_vi,'S=',dien_tich)
readln
readln
end.
end.

Hằng



Hằng

Biến

Biến

Không phải hằng hoặc biến

Không phải hằng hoặc biến


Pi



Pi

x

x



3.14



3.14

x

x



ban_kinh



ban_kinh

x

x



chuvi



chuvi

x

x



dien_tich



dien_tich

x

x




2



</div>
<span class='text_page_counter'>(23)</span><div class='page_container' data-page=23>

<b>Bài 3: Hãy liệt kê các lỗi trong chương trình </b>



<b>Bài 3: Hãy liệt kê các lỗi trong chương trình </b>



<b>Pascal dưới đây và sửa lại cho đúng.</b>



<b>Pascal dưới đây và sửa lại cho đúng.</b>



const Pi:=3.1416;



const Pi:=3.1416;



Var cv, dt: integer



Var cv, dt: integer



r:real;



r:real;



Begin



Begin



r=5.5;



r=5.5;




cv:=2*Pi*r;



cv:=2*Pi*r;



dt=pi*r*r;



dt=pi*r*r;



writeln('Chu vi là:=cv');



writeln('Chu vi là:=cv');



writeln(' dien tich la:=dt');



writeln(' dien tich la:=dt');



readln



readln



end.



</div>
<span class='text_page_counter'>(24)</span><div class='page_container' data-page=24>

<b>S</b>



<b>S</b>

<b>ửa lại:</b>

<b><sub>ửa lại:</sub></b>



Program baitap;



Program baitap;




const Pi=3.1416;



const Pi=3.1416;



Var cv, dt, r : real;



Var cv, dt, r : real;



Begin



Begin



r=5.5;



r=5.5;



cv:=2*Pi*r;



cv:=2*Pi*r;



dt:=pi*r*r;



dt:=pi*r*r;



writeln('Chu vi là:= ', cv );



writeln('Chu vi là:= ', cv );



writeln( ' dien tich la:= ' , dt );




writeln( ' dien tich la:= ' , dt );



readln



readln



end.



</div>
<span class='text_page_counter'>(25)</span><div class='page_container' data-page=25>

<b>Bµi 4</b>



Hãy viết ch ơng trình để giải bài tốn sau:



Tính diện tích S của tam giác với

độ dài một cạnh



a

chiỊu cao t ¬ng øng h

?(a vµ h là các số tự



nhiên đ ợc nhập từ bàn phím )



Thuật toán:



1


2



<i>S</i>

<i>ah</i>

h


a



<b>Hoạt động nhóm</b>



<b>Hoạt động nhóm</b>




<b>Thời gian 5 phút</b>



</div>
<span class='text_page_counter'>(26)</span><div class='page_container' data-page=26>

<b>Program:</b>

<b> Dientich tamgiac</b>

<b> Dientich tamgiac</b>



<b>Var </b>

<b> a, h: Interger;</b>

<b> a, h: Interger;</b>



<b>Const </b>

<b> b:=2;</b>

<b><sub> b:=2;</sub></b>



<b>Begin</b>



<b>Wrile(‘Nhap canh a: ’);</b>



<b>Wrile(‘Nhap canh a: ’);</b>



<b>Readln(a);</b>



<b>Readln(a);</b>



<b>Write(‘Nhap chieu cao h: ’);</b>



<b>Write(‘Nhap chieu cao h: ’);</b>



<b>Readln(h);</b>



<b>Readln(h);</b>



<b>S:=a.h/b;</b>



<b>S:=a.h/b;</b>




<b>Writeln(Dien tich hinh tam giac la: ’,S);</b>



<b>Writeln(Dien tich hinh tam giac la: ’,S);</b>



<b>Readln;</b>



<b>Readln;</b>



<b>End</b>



</div>
<span class='text_page_counter'>(27)</span><div class='page_container' data-page=27>

<b>Program</b>

<b> Dientichtamgiac;</b>

<b> Dientichtamgiac;</b>



<b>Var </b>

<b> a, h: Integer;</b>

<b> a, h: Integer;</b>


<b> S: Real;</b>



<b> S: Real;</b>



<b>Const </b>

<b> b=2;</b>

<b> b=2;</b>



<b>Begin</b>



<b> Write(‘Nhap canh a: ’);Readln(a);</b>



<b> Write(‘Nhap canh a: ’);Readln(a);</b>



<b> Write(‘Nhap chieu cao h: ’);Readln(h);</b>



<b> Write(‘Nhap chieu cao h: ’);Readln(h);</b>




<b>S:=a*h/b;</b>



<b>S:=a*h/b;</b>



<b> Writeln(‘Dien tich hinh tam giac la: ’,S);</b>



<b> Writeln(‘Dien tich hinh tam giac la: ’,S);</b>



<b> Readln;</b>



<b> Readln;</b>



<b>End.</b>



</div>
<span class='text_page_counter'>(28)</span><div class='page_container' data-page=28></div>

<!--links-->

×