uses crt;

var n:integer;

begin

clrscr;

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

writeln('Gia tri tuyet doi cua ',n,' la: ',abs(n));

readln;

end.

Input: chiều cao h và cạnh a

Output: diện tích hình tam giác

B1: nhập 2 cạnh a,h

B2: s:=(a*h)/2;

B3: in ra màn hình

B4: kết thúc ct

uses crt;

var a,b,c,tam:real;

x:array[1..3]of real;

i,j:integer;

begin

clrscr;

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

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

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

x[1]:=a;

x[2]:=b;

x[3]:=c;

for i:=1 to 3-1 do 

  for j:=i+1 to 3 do 

  if x[i]>x[j] then 

begin

tam:=x[i];

x[i]:=x[j];

x[j]:=tam;

end;

for i:=1 to 3 do write(x[i]:4);

readln;

end.

Để dễ hiểu hơn bạn nhé vì ngôn ngữ máy rất phức tạp

 Đầu tiên chúng ta phải hiểu rằng, ngôn ngữ máy là các dãy bit, mỗi dãy bit chỉ bao gồm các số 0 và 1. Ví dụ: 00111010

- Chúng ta có thể thấy việc viết chương trình bằng ngôn ngữ máy, chỉ gồm những số 0 và 1 rất khó khăn và mất nhiều thời gian, công sức, cực kì khó nhớ và khó sử dụng. Do đó, để thuận tiện hơn, đơn giản, dễ hiểu hơn, các ngôn ngữ lập trình được ra đời nhằm phục vụ những mục đích đó.

bạn thêm lênh xóa màn hình vào chương trình đi, nhìn nó sẽ gọn hơn đấy

lệnh clrscr; ngay dưới begin luôn

bạn nhấn vào bất kì 1 nút nào trên bàn phím thử xem

- Từ khóa: là những từ dành riêng, không được dùng các từ khóa này cho bất kì mục đích nào khác ngoài mục đích sử dụng do ngôn ngữ lập trình quy định.

- Tên: Do người lập trình đặt ra cho các đối tượng, đại lượng trong chương trình, nhưng phải tuân thủ theo các quy tắc của ngôn ngữ lập trình cũng như của chương trình dịch. Tuy có thể đặt tùy ý tên, nhưng để dễ sử dụng người ta thường đặt sao cho ngắn gọn nhất, dễ nhớ và dễ hiểu nhất.

VD:

hoc24;

hoc24h;

bai1;

tinhoc;

uses crt;

var a,b,c:real;

kt:integer;

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 

begin

kt:=0;

if (a=b) and (a<>c) and (b<>c) then kt:=1;

if (b=c) and (b<>a) and (c<>a) then kt:=1;

if (c=a) and (c<>b) and (a<>b) then kt:=1;

if kt=0 then writeln('Day khong la tam giac can')

else writeln('Day la tam giac can');

end

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

readln;

end.

Nếu đã khai báo hằng PI= 3,14 thì sẽ không thể gán lại trong phần thân nữa. Vì khi ta gán 1 giá trị mặc định thì ở phần thân chương trình không thể gán lại được nữa

Cú pháp

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

Cách hoạt động: nếu điều kiện đúng thì sẽ thực hiện câu lệnh còn nếu điều kiện sai thì sẽ không thực hiện được và sẽ dừng chương tình

Điều kiện dạng đủ mà bạn!