Cú pháp: if <điều kiện> then <câu lệnh>

else <câu lệnh>;

câu lệch thiếu: if (điều kiện) then (câu lệnh)

câu lệnh đủ: if (điều kiện) then (câu lệnh 1) else (câu lệnh 2)

clrscr;

write('nhap canh a: ');readln(a);

P:=a*4;

S:=a*a;

writeln('Chu vi hinh vuong canh a la: ',P);

writeln('Dien tich hinh vuong canh a la: ',S);

speeed

a:=3;

lệnh gán là      := 

Lệnh gán trong Pascal có dạng:

<tên biến>:= <biểu thức>;

Trong trường hợp đơn giản, tên biến là tên của biến đơn.

Lệnh gán có chức năng gán giá trị cho một biến, nghĩa là thay giá trị cũ trong ô nhớ (tương ứng với biến) bởi giá trị mới. Giá trị mới là giá trị của một biểu thức. Biểu thức này đã có giá trị xác định thuộc phạm vi của biến. Kiểu giá trị của biểu thức phải phù hợp với kiểu của biến. Một biến chỉ được coi là đã xác định giá trị khi đã nhận được giá trị từ ngoài (đọc từ bàn phím hoặc từ tệp,...) hoặc trực tiếp qua lệnh gán trong chương trình.

_{INPUT: cạnh a, chiều cao tương ứng h}

_{OUTPUT: diện tích tam giác S}

_code:

_{uses crt;}

_{var a,b,s:real;}

_{begin clrscr;}

_{write('nhap canh:');readln(a);}

_{<thực hiện nhập cạnh>}

_{write('nhap chieu cao:');readln(h);}

_{<thực hiện nhập chiều cao>}

_s:=a*h/2;

_{<tính diện tích>}

_{write('dien tich la:',s:8:2);}

_{<in ra diện tích>}

_readln;

_end.

Còn mô tả thuật toán

uses crt;

var n,i,kt,j,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

writeln('Cac so nguyen to trong khoang tu 2 toi ',n,' la: ');

for i:=2 to n do 

  begin

kt:=0;

for j:=2 to i-1 do 

  if i mod j=0 then kt:=1;

if kt=0 then write(i:4);

end;

writeln;

writeln('Cac so chinh phuong trong khoang tu 0 toi ',n,' la: ');

for i:=0 to n do 

  if trunc(sqrt(i))=sqrt(i) then write(i:4);

writeln;

writeln('Cac so hoan hao trong khoang tu 1 toi ',n,' la: ');

for i:=1 to n do 

  begin

t:=0;

for j:=1 to i-1 do 

  if i mod j=0 then t:=t+j;

if t=i then write(i:4);

end;

readln;

end.

uses crt;

var n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  if (i mod 2=0) and (i mod 5=0) then write(i:4);

readln;

end. 

Giống nhau: đều lưu trữ dữ liệu

Khác nhau: giá trị của biến có thể thay đổi khi thực hiện chương trình. Còn giá trị của hằng thì không.

Giống nhau: 

+Biến và hằng điều là đại lượng lưu trữ dữ liệu.

+Hai đại lượng này phải khai báo mới sử dụng được.

Khác nhau:

- Hằng: Giá trị của hằng không thể thay đổi trong quá trình thực hiện chương trình.

- Cách khai báo biến:

Var<tên biến>:<kiểu dữ liệu>;

VD: Var a,b:integer;

C:string;

-Biến: giá trị của biến có thể thay đổi trong quá trình thực hiện chương trình.

_ Cách khai báo hằng:

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

VD: Const pi=3.14;

program tamgiac;

uses crt;

var

a,b,c: integer;

begin

clrscr;

write('nhap vao do dai thu nhat:');readln(a);

write('nhap vao do dai thu hai:');readln(b);

write('nhap vao do dai thu ba:');readln(c);

if (a+b>c) or (b+c>a) or(c+a>b) then write ('day la do dai 3 canh cua tam giac')

else write('day ko phai la do dai 3 canh cua tam giac');

readln;

end.

uses crt;

var a,b,c:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Day la ba canh trong mot tam giac')

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

Mk chưa học đến bài 5