Câu 3 :
- Thuật toán :
+ Bước 1 : nhập số a, b
+ Bước 2 : y ← a / (b + 1);
+ Bước 3 : x ← a - y;
+ Bước 4 : đưa ra giá trị x và y
- Viết chương trình :
uses crt;
var a, b, x, y : real;
begin
clrscr;
write('Nhap tong hai so : '); readln(a);
write('Nhap ti so hai so : '); readln(b);
y := a / (b + 1);
x := a - y;
writeln('So thu nhat : ', x : 3 : 0);
writeln('So thu hai : ', y : 3 : 0);
readln
end.
Câu 2 :
- Thuật toán :
+ Bước 1 : nhập a, b
+ Bước 2 : y ← -(b - a) / 2
+ Bước 3 : x ← a - y
+ Bước 4 : đưa ra x và y rồi kết thúc
- Chương trình :
uses crt;
var a, b, x, y : real;
begin
clrscr;
write('Nhap so hoc sinh cua lop : '); readln(a);
write('nhap so hoc sinh nam nhieu hon nu : '); readln(b);
y := -(b - a) / 2;
x := a - y;
writeln('So hoc sinh nu : ', y : 2 : 0);
writeln('So hoc sinh nam : ', x : 2 : 0);
readln
end.
Câu 3 :
- Thuật toán :
+ Bước 1 : nhập x, y
+ Bước 2 : x ← x + y
+ Bước 3 : y ← y - x
+ Bước 4 : x ← y - x
+ Đưa ra giá trị x và y rồi kết thúc
- Viết chương trình :
uses crt;
var x, y : integer;
begin
clrscr;
write('Nhap hai so x, y : '); readln(x, y);
x := x + y;
y := y - x;
x := y - x;
write('x = ', x ,',y = ', y);
readln
end.
