Bài tập và thực hành 2

Đề bài

Hãy cho biết sự giống và khác nhau của hai dạng câu lệnh if - then.

Lời giải chi tiết

Hai dạng cầu lệnh if-then như sau:

a) Dạng thiếu

If<điều kiện> then <câu lệnh>;

if <điều kiện> then <câu lệnh 1 >else <câu lệnh 2 > ;

trong đó:

Điều kiện biểu thức quan hệ hoặc lôgic.

Câu lệnh, câu lệnh 1, câu lệnh 2 là một câu lệnh của Pascal.

- Giống nhau: đều cùng là câu lệnh rẽ nhánh và khi gặp một điều kiện nào đó thì chọn lựa thực hiện thao tác thích hợp.

Đề bài

Có thể dùng câu lệnh while-do để thay cho câu lệnh for-do được không? Nếu được, hãy thực hiện điều đỏ với chương trình.

Lời giải chi tiết

Có thể thay thế đoạn chương trình chứa câu lệnh for-do (dạng lặp tiến) for <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

bằng đoạn chương trình chứa câu lệnh while-do như sau:

i:= <giá trị đầu>;

while <i< = <giá trị cuối> do

begin

<câu lệnh>;

<tăng i một đơn vị>,

end;

Đề bài

Lập trình tính:

Lời giải chi tiết

a) program Tong_5a,

uses crt,

var y: real;

n: byte;

Begin

clrscr

y : 0;

for n :=1 to 50 do

y : = y + n / ( n +1 ) ;

writeln('Tong y la: y:0:18);

readln ;

End.

Nếu biến y khai báo theo kiểu extended thì chương trình tính tổng y sẽ là như sau:

($e+, N+}

program Tong_5a;

uses crt;

Đề bài

Nhập từ bàn phím tuổi của cha và con (tuổi của cha hơn tuổi con ít nhất là 25). Đưa ra màn hình bao nhiêu năm nữa thì tuổi cha gấp đôi tuổi con.

Lời giải chi tiết

Chương trình về tuổi cha và tuổi con:

program tuoi_cha_con;

uses crt;

var tuoicha, tuoicon, nam: longint;

begin

clrscr;

write('Nhap tuoi cha va con(tuoicha-tuoicon>=25) ;

readln(tuoicha,tuoicon); nam:= 0;

while tuoicha<>2*tuoicon do begin

tuoicha:= tuoicha + tuoicon := tuoicon + 1; nam:= nam +1;