Tin hoc 8 Thuc Hanh 4

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

<b>Thực hành 4:</b>

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

<b>Bài 1: Viết chương trình nhập hai số nguyên a và b khác </b>
<b>nhau từ bàn phím và in hai số đó ra màn hình theo thứ tự </b>
<b>khơng giảm.</b>

<b>Mơ tả thuật tốn</b>

<b>Input: Hai số ngun a và b </b>
<b>Output: in 2 số a và b theo </b>
thứ tự khơng giảm

<b>Bước 2:</b>

Nếu a<b thì xuất a, b; Ngược
lại thì xuất b, a

<b>Bước 1:</b> Nhập a, b

program Sap_xep;
uses crt;

begin
clrscr;

readln

var a, b: integer;

write('Nhap so a: '); readln(a);
write('Nhap so b: '); readln(b);

if a<b then writeln(a,' ',b)

else writeln(b,' ',a);

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

<b>Bài 2: Viết chương trình nhập chiều cao của hai bạn Long và </b>
<b>Trang, in ra màn hình kết quả so sánh chiều cao của hai bạn, </b>
<b>chẳng hạn "Bạn Long cao hơn".</b>

<b>Input: Chiều cao của Long, Trang</b>
<b>Output: Kết quả so sánh</b>

<b>Bước 3:</b> Kết thúc thuật tốn

<b>Bước 2:</b>

Nếu Long<Trang thì ‘Trang cao hon’;

Nếu Long<Trang thì ‘Long cao hon’ ngược lại thì ‘Hai ban
bang nhau’

<b>Bước 1:</b> Nhập chiều cao 2 bạn

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

<b>program Ai_cao_hon;</b>
<b>uses crt;</b>

<b>var </b> Long, Trang: Real;
<b>begin</b>

clrscr;

write('Nhap chieu cao cua Long:');
readln(Long);

write('Nhap chieu cao cua Trang:');
readln(Trang);

<b> If </b>Long>Trang then

writeln('Ban Long cao hon');
<b> If </b>Long<Trang then

writeln('Ban Trang cao hon')
<b> else </b>

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

<b>program Ai_cao_hon;</b>
<b>uses crt;</b>

<b>var </b> Long, Trang: Real;
<b>begin</b>

clrscr;

write('Nhap chieu cao cua Long:');
readln(Long);

write('Nhap chieu cao cua Trang:');
readln(Trang);

<b> If Long>Trang then </b>

writeln('Ban Long cao hon');
<b> else </b>

<b> If Long<Trang then </b>

writeln('Ban Trang cao hon')

<b> else writeln('Hai ban cao bang nhau');</b>
readln

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

<b>Bài 3: Dưới đây là chương trình nhập ba số dương a, b và c </b>
<b>từ bàn phím, kiểm tra và in ra màn hình kết quả kiểm tra ba </b>
<b>số đó có thể là độ dài các cạnh của một tam giác hay khơng.</b>

<b>Mơ tả thuật tốn</b>

<b>+ Input: Ba số dương a, b, c</b>

<b>+ Output: Thông báo “a, b và c là 3 cạnh của một tam giác” </b>
<b>hoặc “a, b và c không là 3 cạnh của một tam giác”</b>

<b>Bước 1: Nhập a, b, c</b>

<b>Bước 2: Nếu (a+b>c) và (b+c>a) và (c+a>b) thì ‘a, b </b>
<b>và c là ba cạnh của một tam giác’ ngược lại ‘a, b và </b>
<b>c không là ba cạnh của một tam giác’</b>

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

<b>Bài 3: Dưới đây là chương trình nhập ba số dương a, b và c </b>
<b>từ bàn phím, kiểm tra và in ra màn hình kết quả kiểm tra ba </b>

<b>số đó có thể là độ dài các cạnh của một tam giác hay không.</b>

<b>Program Ba_canh_tam_giac;</b>
<b>uses crt;</b>

<b>Var a, b, c: real; </b>
<b>Begin</b>

Clrscr;

write('Nhap ba so a, b va c:');
readln(a,b,c);

<b> If </b>(a+b>c) <b>and</b> (b+c>a) <b>and</b> (c+a>b) then

writeln('a, b va c la 3 canh cua mot tam giac!')
<b> else </b>

</div>

<!--links-->