Bài tập Tin học Lớp 8 - Bài: Khai báo biến và hằng

 BÀI TẬP KHAI BÁO BIẾN VÀ HẰNG
Viết chương trình tính diện tích hình tròn
 Var (khai báo biến)
 R: Integer;
 S: Real;
 Const (khai báo hằng)
 So_PI = 3.14;
 Begin
 Write('Nhap ban kinh hinh tron R=: '); Readln(R);
 If (R>0) then
 begin S:= So_PI*R*R;
 Write('Dien tich hinh tron la: ', S); end else
 Writeln(‘ban nhap sai roi’);
 readln
end.
Viết chương trình nhập số x và y, in giá trị của x và y ra màn hình, sau đó hoán đổi 
các giá trị của x và y ra màn hình.
Program hoan_doi;
 var x,y,z:integer;
 begin
 write('Nhap gia tri bien x = '); readln(x);
 write('Nhap gia tri bien y = '); readln(y);
 Writeln('Truoc trao doi, gia tri cua bien x: ', x);
 Write('Truoc trao doi, gia tri cua bien y: ', y);
 {Bat dau thuc hien trao doi}
 z:=x;
 x:=y;
 y:=z;
 {Ket thuc trao doi}
 Writeln('Sau trao doi, gia tri cua bien x = ', x);
 Write('Sau trao doi, gia tri cua bien y = ', y);
 readln
 end.
 Một cửa hàng cung cấp dịch vụ bán hàng thanh toán tại nhà. Khách hàng chỉ cần 
đăng kí số lượng mặt hàng cần mua, nhân viên cửa hàng sẽ trả hàng và nhận tiền 
thanh toán tại nhà khách hàng. Ngoài trị giá hàng hoá, khách hàng còn phải trả 
thêm phí dịch vụ. Hãy viết chương trình Pascal để tính tiền thanh toán trong trường 
hợp khách hàng chỉ mua một mặt hàng duy nhất.
program Tinh_tien;
uses crt;
var
 soluong: integer; 
 dongia, thanhtien: real; 
 thongbao: string;
const phi=10000;
begin
 clrscr;
thongbao:='Tong so tien phai thanh toan : '; If Long<trang then 
Writeln(‘ban Trang cao hon’) else
Writeln(‘hai ban bang nhau’);
Readln;
End. 
*Nhập vào 3 số a,b,c bất kì, ktra xem nó có thể là độ dài 3 cạnh không, nếu không 
thì in ra màn hình ‘không phải là 3 cạnh tam giác’. Ngược lại in diện tích và chu vi 
của tam giác ra màn hình.
Program ba_canh_tam_giac;
Var a,b,c,s,p: real;
Begin
Write(‘nhap ba so a, b và c:’);
Readln(a,b,c);
If (a+b>c) and (b+c>a) and (c+a>b) then
begin
P:=a*b*c;
S:=sqrt(p*(p-a)*(p-b)*(p-c)); 
Writeln(‘a,b,c là ba cạnh của tam giác’)
 Writeln(‘diện tích tam giác là’,s, ‘chu vi’,p);
end
else
Writeln(‘a,b,c khong la ba canh cua tam giac’);
Readln;
End.
*Nhập 4 số a, b, c, d từ bàn phím. viết chương trình tìm ra số có giá trị nhỏ nhất
PROGRAM TIMGIATRINHONHAT;
Var
 Min , a , b , c , d : Real ; 
 BEGIN
 Writeln (' Nhap gia tri cua 4 so : ') 
 Write (' a = ') ; Readln ( a ) ; 
 Write (' b = ') ; Readln ( b ) ; 
 Write (' c = ') ; Readln ( c ) ; 
 Write (' d = ') ; Readln ( d ) ; 
 Min := a ;
 If Min > b Then Min := b ; 
 If Min > c Then Min := c ; 
 If Min > d Then Min := d ; 
 Writeln (' Gia tri nho nhat la : ', Min ) ; 
 Readln ;
 END .
 Viết chương trình nhập điểm tổng kết và in ra màn hình học lực
 Program Hoc luc;
 Var a: Real;
 Begin 
 Wrte(‘Nhap diem tong ket: '); Readln(a)
 If (a<5) then writeln(‘Hay co len, ban hoc yeu roi’)
Ese If (a>5)and (a<=6.5) then writeln(‘Ban hoc trung binh’) readln end.
Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, số được nhập từ 
bàn phím và dừng màn hình để có thể quan sát kết quả.
 Program baitap1;
 uses crt;
 var i, N:integer;
 Begin
 Clrscr;
 Write(‘ nhap so N:’); readln(n);
 Writeln;
 Writeln(‘ Bang nhan’, N);
 Writeln;
 For i:=1 to 10 do Writeln(N,’x’, i:2,’=’, N*i:3);
 Readln
 End.
 Program tao_bang;
 uses crt;
 var i: byte {chi so cua hang} ;
 j: byte{ chi so cua cot};
 Begin
 Clrscr;
 For i:= 0 to 9 do {Viet theo tung hang}
 Begin
 For j:=0 to 9 do {Viet theo tung cot tren moi hang}
 Writeln(10*i+j:4); {viet cac so ị ra man hinh}
 Writeln;
 End;
 Readln
End. *viết chương trình tính tổng sau đây:
 A = 1. + 1 + 1 + ....+ 1
 1.3 2.4 3.5 n(n+2)
 Program tinhtong;
 Var I, n: integer;
 S: real;
 Begin
 S:=0, i:= 1;
 Writeln(‘ moi nhap n:’);readln(n);
 While i<= n do
 Begin
 S:= s+1/(i*(i+2)); i:= i+1;
 End;
 Writeln(‘ tong la:’, S: 4:2);
 Readln
 End.
 Program tinhtich;
 Var Tich, I, n: integer; if i=n then writeln(n,' la so nguyen to!')
 else writeln(n,' khong phai la so nguyen to!');
 end;
readln
end. 
 LÀM VIỆC VỚI DÃY SỐ
*tìm số lớn nhất, số nhỏ nhất của một dãy số.
program MaxMin;
uses crt;
Var
 i, n, Max, Min: integer;
 A: array[1..100] of integer;
Begin
 clrscr;
 write('Hay nhap do dai cua day so, N = '); readln(n);
 writeln('Nhap cac phan tu cua day so:');
 For i:=1 to n do
 Begin
 write('a[',i,']='); readln(a[i]);
 End;
 Max:=a[1]; Min:=a[1];
 for i:=2 to n do 
 begin if Max<a[i] then Max:=a[i];
 if Min>a[i] then Min:=a[i] end;
 write('So lon nhat la Max = ',Max);
 write('; So nho nhat la Min = ',Min);
 readln
End.
Viết chương trình nhập điểm của các bạn trong lớp. Sau đó in ra màn hình số bạn 
đạt kết quả học tập loại giỏi, khá, trung bình và kém (theo tiêu chuẩn từ 8.0 trở lên 
đạt loại giỏi, từ 6.5 đến 7.9 đạt loại khá, từ 5.0 đến 6.4 đạt trung bình và dưới 5.0 
xếp loại kém).
 program Phanloai;
 uses crt;
 Var
 i, n, Gioi, Kha, Trungbinh, Kem: integer;
 A: array[1..100] of real;
Begin
clrscr;
write(‘Nhap so cac ban trong lop, n = ‘); readln(n);
writeln(‘Nhap diem:’);
For i:=1 to n do Begin write(i,’. ‘); readln(a[i]); End;
Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;
for i:=1 to n do
 begin 
 if a[i]>=8.0 then Gioi:=Gioi+1;
 if a[i]<5 then Kem:=Kem+1;
 if (a[i]=6.5) then Kha:=Kha+1; Writeln(‘nhap so cac ban trong lop:’);
 Readln(n);
 Writeln(‘nhap diem:’);
 For i:=1 to n do
 writeln(I,’.’);
 readln(diemT); readln(diemV);
 writeln('Diem TB : '); 
 For i:=1 to n do
write(i,' . ',(diemT[i] + diemV[i])/2:3:1); 
TBtoan: =0; TBvan: =0;
 For i:=1 to n do
 Begin
 TBtoan: = TBtoan + diemT[i] ;
 TBvan: = TBvan + diemV[i] ;
 end;
 TBtoan: = TBtoan /n;
 TBvan: = TBvan /n;
writeln('Diem TB mon Toan : ',TBtoan :3:2); 
writeln('Diem TB mon Van: ',TBvan :3:2); 
 readln;
 End. 
 - tính tổng S= 1/2+1/4+1/6+...+1/n 
 - Program tinh_tong ;
 - Var i,n :integer ;
 - S: real; 
 - Begin
 - Write (‘ nhap N=’); readln(N); 
 - S:=0; i:=0; 
 - While i <=n do begin
 - S:=S+1/i; i:=i+2 end;
 - writeln(‘ Tong=’, S)
 - Readln
 - End. 
*Viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của 
một dãy số (độ dài của dãy cũng được nhập từ bàn phím) và in ra màn hình:
 - Dãy số vừa nhập
 - Giá trị lớn nhất, nhỏ nhất của dãy
 - Tổng các số vừa nhập
 - Trung bình các số trong mảng
 - Các số chẵn trong dãy
 - Tổng các số chẵn trong dãy
 Program Dayso; 
 Var S, i, n:integer; 
 TB: real;
 A:array[1..100] of integer; 
 Begin
 Write(‘ nhap do dai cua day, N=’); readln(n); Writeln(‘ nhap cac phan tu 
 cua day:’)