1. Hãy xác định bài toán ( tìm INPUT và OUTPUT ) và viết chương trình tính tổng 2 số nguyên a, b. Với a, b là 2 số nguyên bất kỳ nhập từ bàn phím ( tương tự với tính hiệu, tích, thương,... )
2. Hãy xác định bài toán ( tìm INPUT và OUTPUT ) và viết chương trình hoán đổi giá trị của 2 số a và b. Với a, b là 2 số nguyên bất kỳ nhập từ bàn phím.
3. Hãy xác định bài toán ( tìm INPUT và OUTPUT ) và viết chương trình tính diện tích hình chữ nhật. Với chiều dài và chiều rộng của hình chữ nhật là những số nguyên được nhập từ bàn phím ( tương tự với tính chu vi và diện tích các hình vuông, hình tròn, hình tam giác, hình thang,....)
Câu 1:
- Xác định bài toán:
Input: nhập hai số nguyên a, b.
Output: tổng a và b.
- Viết chương trình:
uses crt;
Var a,b,tong:Integer;
begin
Write('Nhap a: ');readln (a);
Write('Nhap b: ');readln (B);
Tong:=a+b;
Writeln ('Tong cua hai so la: ',tong);
readln;
end.
Câu 3:
- Xác định bài toán:
Input: nhập hai số nguyên dương a, b bất kỳ.
Output: tích a và b.
- Viết chương trình :
uses crt;
Var a,b,c: Integer;
begin
Clrscr ;
Write ('Nhap chieu rong: ');readln (a);
Write('Nhap chieu dai: '); readln (b);
C:=a*b;
If (a>0) and (b>0) then Writeln ('Dien tich hinh chu nhat la: ',c)
Else writeln ('Vui long nhap hai so nguyen deu lon hon 0');
readln;
end.
bài 1
*Xác định bài toán
-input: hai số a,b
-output: tính tổng của hai số đó
*Viết chương trình
uses crt;
var a,b,t:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
t:=a+b;
writeln('tong cua hai so ',a,' va ',b,' la: ',t);
readln;
end.
Bài 2:
*Xác định bài toán
-input: hai số a,b
-Output: giá trị của hai số sau khi đổi
*Viết chương trình
uses crt;
var a,b:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
writeln('gia tri cua a truoc khi doi la: ',a);
writeln('gia tri cua b truoc khi doi la: ',b);
a:=a+b;
b:=a-b;
a:=a-b;
writeln('gia tri cua a sau khi doi la: ',a);
writeln('gia tri cua b sau khi doi la: ',b);
readln;
end.
bài 3:
*Xác định bài toán
input: chiều dài, chiều rộng
output: diện tích của hình chữ nhật đó
*Viết chương trình
uses crt;
var a,b,s:integer;
begin
clrscr;
write('nhap a=');readln(a);
write('nhap b='); readln(b);
if (a>0) and (b>0) then
begin
s:=a*b;
writeln('dien tich hinh chu nhat la: ',s);
end
else writeln('khong co hinh chu nhat voi kich thuoc chieu dai, chieu rong nhu vay');
readln;
end.
Câu 2:
- Xác định bài toán:
Input: nhập 2 số nguyên a, b bất kỳ.
Output: hoán đổi giá trị a và b.
- Viết chương trình :
uses crt;
Var a,b: Integer ;
begin
Clrscr ;
Write ('Nhap a: ');readln (a);
Write('Nhap b: '); readln (b);
Writeln ('Hoan doi gia tri a va b: a = ',b,'; b = ',a);
readln;
end.
bài 3 thì để mình gửi cho bạn luôn bài tổng hợp tính chu vi và diện tích các hình chữ nhật , hình vuông, hình thang , hình tròn và hình tam giác luôn cho
program hotrotinhoc;
uses crt;
var a,dt,dai,rong,dt_hcn,r,c1,c2,c3,hthang,c,d,b,cv,cv_hcn,b1,b2,cv_ht:integer;
hinh:string;
s_tron,p,s,s_ht,cv_tron,cv_tg:real;
begin
clrscr;
write('nhap hinh ban muon tinh chu vi va dien tich:'); readln(hinh);
case hinh of
'hinh vuong':
begin
repeat
write('nhap canh cua hinh vuong:'); readln(a);
if a<=0 then writeln('ban da nhap sai, yeu cau ban nhap lai');
until a>0;
cv:=a*4;
dt:=a*a;
writeln('chu vi cua hinh vuong co canh ',a,'cm la: ',cv);
writeln('dien tich hinh vuong co canh la: ',a,'cm la: ',dt);
end;
'hinh chu nhat':
begin
repeat
write('nhap chieu dai:'); readln(dai);
write('nhap chieu rong:'); readln(rong);
if (dai<=rong) or (dai<=0) or (rong<=0) then
writeln('ban da nhap sai, yeu cau ban nhap lai');
until (dai>rong) and (dai>0) and (rong>0);
cv_hcn:=(dai+rong)*2;
dt_hcn:=dai*rong;
writeln('chu vi hinh chu nhat co chieu dai la ',dai,'cm va chieu rong la ' ,rong,'cm la: ',cv_hcn);
writeln('dien tich hinh chu nhat co chieu dai la ',dai,'cm va chieu rong la ' ,rong,'cm la: ',dt_hcn);
end;
'hinh tron':
begin
repeat
write('nhap ban kinh:'); readln(r);
if r<=0 then writeln('ban da nhap sai, yeu cau ban nhap lai');
until r>0;
cv_tron:=2*r*pi;
s_tron:=sqr(r)*pi;
writeln('chu vi hinh tron co ban kinh la ',r,'cm la: ',cv_tron:4:2);
writeln('dien tich hinh tron co ban kinh la ',r,'cm la: ',s_tron:4:2);
end;
'hinh tam giac':
begin
repeat
write('nhap canh thu 1:'); readln(c1);
write('nhap canh thu 2:'); readln(c2);
write('nhap canh thu 3:'); readln(c3);
if (c1+c2<=c3) or (c1+c3<=c2) or (c2+c3<=c1) then
writeln('ban da nhap sai, yeu cau ban nhap lai');
until (c1+c2>c3) and (c1+c3>c2) and (c2+c3>c1);
p:=(c1+c2+c3)/2;
cv_tg:=p*2;
s:=sqrt(p*(p-c1)*(p-c2)*(p-c3));
writeln('chu vi hinh tam giac co 3 canh lan luot la: ',c1,'cm;',c2,'cm;',c3,'cm la: ',cv_tg:4:2);
writeln('dien tich hinh tam giac co 3 canh lan luot la: ',c1,'cm;',c2,'cm;',c3,'cm la: ',s:4:2);
end;
'hinh thang':
begin
write('nhap chieu cao hinh thang:'); readln(hthang);
write('nhap canh day thu 1:'); readln(c);
write('nhap canh day thu 2:'); readln(d);
write('nhap canh ben thu 1: '); readln(b1);
write('nhap canh ben thu 2: '); readln(b2);
s_ht:=1/2*hthang*(c+d);
cv_ht:=c+d+b1+b2;
writeln('dien tich hinh thang co do dai hai canh day la: ',c,'cm va ',d,'cm la: ',s_ht:4:2);
writeln('chu vi hinh thang co do dai hai canh ben la: ',b1,'cm va ',b2,'cm; do dai hai canh day la: ',c,'cm va ',d,'cm la: ',cv_ht);
end;
end;
readln;
end.
