Bài 20:

+) Giải phương trình bậc 1:T có 3 trường hợp như sau:

Nếu a = 0 và b = 0: phương trình có vô số nghiệm.

Nếu a = 0 và b <> 0: phương trình vô nghiệm.

Nếu a <> 0: phương trình có nghiệm duy nhất x = -b : a.

+) Tính tổng 100 số tự nhiên liên tiếp:

Cho s là tổng, sau đó dùng dùng vòng lặp bắt đầu từ i:=1 lặp đến 100 thì s:=s+i.

+)Hoán đổi x và y:

Dùng 3 biến x, y, z:

Nếu x > y thì z<x ; x < y; y < z

+) So sánh:

Chỉ cần gán x = max, nếu b > max thì b = max. Sau đó in ra a=max thì a lớn hơn và ngươc lại là đc nè.

+)Tìm số lớn nhất

Dùng mảng nhâp từng số vào, khởi tạo max = giá trị thứ 1 trong bảng, duyệt lần lượt từng giá trị, nếu có phần tử trong mảng nào lớn hơn max thì gán cho max. Sau đó trả giá trị về max.

Bài 22:

Khá giống câu trên chỉ cần thành các bước là đc nha.

Bài 23:

-Hoán đổi x và y:

uses crt;

var x,y,z:integer;

begin

clrscr;

write('Nhap 2 so x va y:');

if x > y then z:=x;y:=z;y:=z;

wirteln('Sau khi hoan vi:',x,y);

readln

end.

-Tính A = x^2 + x +1

uses crt;

var x,s:integer;

begin

clrscr;

write('Nhap x:');

s:=x^2 + x +1;

writeln('Ket qua la:',s);

readln

end.

-Tính chu vi, dien tich hinh chu nhat:

1/ Tính chu vi, diện tích hình vuông có cạnh là a: 
PROGRAM HINH VUONG; 
{Nhap canh a cua hinh vuong. Tinh chu vi, dien tich cua hinh vuong ay} 
VAR a:real; 
BEGIN 
Write('Nhap canh a: ');readln(a); 
Writeln; 
If a>0 then 
begin 
Writeln('Chu vi P = ',4*a:6:2); 
Writeln('Dien tich S = ',a*a:6:2); 
end 
Else writeln(#7,'Khong thuc hien vi a <= 0'); 
Readln 
END. 

2/ Tính chu vi, diện tích hình chữ nhật có hai kích thước là a và b: 
PROGRAM HINH CHU NHAT; 
{Nhap hai kich thuoc a, b cua hinh chu nhat. Tinh chu vi, dien tich cua hinh chu nhat ay} 
VAR a,b:real; 
BEGIN 
Write('Nhap canh a: ');readln(a); 
Write('Nhap canh b: ');readln(b); 
Writeln; 
If (a>0) and (b>0)then 
begin 
Writeln('Chu vi P = ',2*(a+b):6:2); 
Writeln('Dien tich S = ',a*b:6:2); 
end 
Else writeln(#7,'Khong thuc hien vi a <= 0 hoac b<=0'); 
Readln 
END. 

3/ Tính chu vi, diện tích hình tròn có bán kính là R: 
a) Cách 1: 
PROGRAM HINH TRON; 
{Nhap ban kinh R cua duong tron. Tinh chu vi, dien tich cua duong tron ay} 
VAR R:real; 
BEGIN 
Write('Nhap ban kinh R: ');readln(R); 
Writeln; 
If R>0 then 
begin 
Writeln('Chu vi P = ',2*pi*R:6:2); 
Writeln('Dien tich S = ',pi*R*R:6:2); 
end 
Else writeln(#7,'Khong thuc hien vi R <= 0'); 
Readln 
END. 
b) Cách 2: 
PROGRAM HINH TRON; 
{Nhap ban kinh R cua duong tron. Tinh chu vi, dien tich cua duong tron ay} 
VAR R:real; 
BEGIN 
Repeat 
Write('Nhap ban kinh R: ');readln(R); 
Until R>0; 
Writeln; 
Writeln('Chu vi P = ',2*pi*R:6:2); 
Writeln('Dien tich S = ',pi*R*R:6:2); 
Readln 
END.