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.
