Bài 2 :

* Sửa chương trình :

Var a : integer;

Begin

a := 4;

a := a + 15;

Writeln(a);

Readln;

End.

=> a = 4 ⇒ a = 4 + 15 = 19 

⇒ Kết quả a = 19

Câu 3 :

a) Chương trình 1 không đúng 

=> Khai báo biến ở phần thân ⇒ Khai báo biến sai vị trí 

* Sửa :

Program Hieu_hai_so;

Var a, b : Integer;

Begin

Write('Hay nhap hai so ');

Readln(a, b);

Write('Hieu cua hai so la :', a - b);

End.

b) Chương trình 2 không đúng 

=> Khai báo biến ở phần thân ⇒ Khai báo biến sai vị trí 

* Sửa :

Program Tong_hai_so;

Var a, b : Integer;

Begin

Write('Hay nhap hai so ');

Readln(a, b);

Write('Tong cua hai so la :', a - b);

End.

Câu 4 :

* Xác định bài toán :

- Input : 2 hoặc n số bất kì 

- Output : tổng, hiệu, tích của 2 hoặc n số bất kì

* Mô tả thuật toán :

- Bước 1 : dãy số a1, a2, ... , an

- Bước 2 : i ← 1; s ← 0; h ← 0; t ← 1;

- Bước 3 : nếu i > n thì xuất giá trị s, h và t rồi kết thúc

- Bước 4 : 

- Bước 4.1 : s ← s + a[i];

- Bước 4.2 : h ← h - a[i];

- Bước 4.3 : t ← t * a[i] ;

- Bước 4.4 : i ← i + 1 quay lại bước 3

* Viết chương trình :

uses crt;

var a : array[1..100] of integer;

i, n, s, h, t : integer;

begin

clrscr;

write('nhap so luong cac so :');readln(n);

s := 0; h := 0; t := 1;

for i := 1 to n do 

begin

write('nhap so thu ', i ,' : ');readln(a[i]);

s := s + a[i];

h := h - a[i];

t := t * a[i];

end;

writeln('tong cac so la :', s);

writeln('hieu cac so la :', h);

writeln('tich cac so la :', t);

readln

end.

Bài tập 2 :

* Xác định bài toán :

- Input : bán kính hình tròn 

- Output : chu vi và diẹn tích hình tròn

* Mô tả thuật toán :

- Bước 1 : nhập bán kính r

- Bước 2 : cv ← r * r * pi;

- Bước 3 : s ← r * r * pi;

- Bước 4 : xuất giá trị cv và s

- Bước 5 : kết thúc

* Viết chương trình :

uses crt;

var r, cv, s : real;

const pi = 3.14;

begin

clrscr;

write('nhap ban kinh r :');readln(r);

cv := 2 * r * pi;

s := r * r * pi;

writeln('chu vi hinh tron : ', cv:3:2);

writeln('dien tich hinh tron : ', s:3:2);

readln

end.

Bài tập 3 :

* Xác định bài toán :

- Input : độ dài cạnh hình vuông

- Output : chu vi và diện tích hình vuông

* Mô tả thuật toán :

- Bước 1 : nhập độ dài cạnh hình vuông (a)

- Bước 2 : cv ← a * 4;

- Bước 3 : s ← a * a;

- Bước 4 : xuất giá trị cv và s

- Bước 5 : kết thúc

* Viết chương trình :

uses crt;

var a, cv, s : integer;

begin

clrscr;

write('nhap do dai canh hinh vuong :');readln(a);

cv := a * 4;

s : = a * a;

writeln('chu vi hinh vuong : ', cv);

writeln('dien tich hinh vuong : ', s);

readln

end.