Ketqua ; Readln End.
Trang 1BÀI TẬP PASCAL
CHỦ ĐỀ 1:
Program De1;
Var N, I, Max : Integer ;
T : array [1 300] of Integer ;
Begin
Write ( ‘Nhap vao so luong hoc sinh :’ ) ;
Readln ( N ) ;
For I : = 1 to N do
Begin
Write ( ‘Tuoi cua hoc sinh thu ’, I , ‘ : ’ ) ;
Readln ( T [ I ] ) ;
End ;
Max : = T [ 1 ] ;
For I : = 2 to N do
If T [ I ] > max then max : = t [ I ] ;
Writeln ( ‘So tuoi lon nhat la : ’ , max ) ;
Readln
End
CHỦ ĐỀ 2:
Program De2 ;
Var N, I , J , Max : Integer ;
A : = Array [ 1 300 ] of Integer ;
Begin
Write ( ‘Nhap vao so luong phan tu cua day so :’ ) ;
Readln ( N ) ;
For I : = 1 to n do
Begin
Write ( ‘Phan tu thu ’, I , ‘ : ’ ) ;
Readln ( A [ I ] ) ;
End ;
Max : = T [ 1 ] ;
For I : = 2 to n do
If a [ I ] > max then max : = A [ I ] ; J: = 1 ;
For I := 2 to N do if A [ I ] > A [ J ] then J := I ;
Writeln ( ‘Gia tri cua phan tu lon nhat la : ’ , Max );
Writeln ( ‘Chi so cua phan tu lon nhat la : ’, J ) ;
Readln
End
CHỦ ĐỀ 3:
Program De3 ;
Var A : Array [ 1 300 ] of Integer ;
I , N , Dem : Integer ; S , Tb : real ;
Begin
Write ( ‘Nhap vao so phan tu : ’ ) ;
Readln ( N ) ;
S: = 0 ;
For I : = 1 to n do Begin
Write ( ‘Phan tu thu’ , I , ’ : ’ ) ; Readln ( A [ I ] ) ; S : = S + A [ i ] ;
End ;
Tb : = S / n ; Dem : = 0 ;
For I : = 1 to N do
If A [ I ] > Tb then Dem : = Dem + 1 ;
Writeln ( ‘Phan tu trung binh la : ’ , tb : 6 : 3 ) ; Writeln ( ‘So phan tu lon hon phan tu trung binh
la : ’ , dem ) ; Readln
End
CHỦ ĐỀ 4:
Program De4 ; Var A: Array [ 1 300 ] of Integer ;
N , I , J , T : integer ;
Begin
Write ( ‘Nhap vao so phan tu cu day so , N = ’ ) ; Readln ( N ) ;
For I : = 1 to N do Begin
Write ( ‘Phan tu thu’ , I , ‘ : ’ ) ; Readln ( A [ I ] ) ;
End ; For J : = N downto 2 do For I : = 1 to J -1 do
If A [ I ] > A [ I +1 ] then Begin
T: = A [ I ] ; A[ I ]: = A [ I + 1 ] ; A [ I +1 ] : = T ;
End ;
Writeln ( ‘Day so duoc sap xep la : ’ ) ;
For I : = 1 to n do write ( A[ I ] : 4 ) ;
Readln
End
CHỦ ĐỀ 5:
Program De5 ; Var B : Array [ 1 9 , 1 10 ] of Integer ;
I , J : Integer ;
Begin For I : = 1 to 9 do For J : = 1 to 10 do
B [ I , J ] : = I * J ;
For I : = 1 to 9 do Begin
1
Trang 2For J : = 1 to 10 write ( B [ I ,J ] : 4 ) ;
writeln ;
End ;
readln
End
CHỦ ĐỀ 6:
Program De6 ;
Var A , B : String ;
Begin
Write ( ‘Nhap vao ho ten hoc sinh thu nhat : ’ ) ;
Readln ( A ) ;
Write ( ‘Nhap vao ho ten hoc sinh thu hai : ’ ) ;
Readln ( B ) ;
If length ( A ) >= length ( B ) then write ( A ) else
write ( B ) ;
Readln
End
CHỦ ĐỀ 7:
Program De7 ;
Var I , K: Byte ; A , B : String ;
Begin
Write ( ‘Nhap xau : ’ ) ;
Readln ( A ) ;
K: = length ( A )
B: = ‘ ‘ ;
For i:= k downto 1 do
If A [ I ] <> ‘ ‘ then B : = B + A[ I ] ;
Writeln ( ‘Xau duoc in la : , B ) ;
Readln
End
CHỦ ĐỀ 8:
Program De8 ;
Type Hocsinh = record; Hoten : String [ 40 ] ;
Ngaysinh : String [ 10 ] ; Diachi : String [ 50 ] ;
Windows , Word , Excel , Powerpoint : real ;
Ketqua : String [ 10 ] ;
End;
Var Lop : Array [1 60] of Hocsinh ; N , I : Byte ;
Begin
Write ( ‘So luong hoc sinh trong lop : ‘ ) ;
Readln ( N ) ;
For I : = 1 to N do
Begin
Writeln ( ‘Nhap so lieu ve hoc sinh thu ‘ , I , ‘ : ‘ ) ; Writeln ( ‘Ho va ten : ‘ ) ;
Readln ( Lop [ I ] Hoten ) ; Writeln ( ‘Ngay sinh :‘ ) ; Readln ( Lop[ I ] Ngaysinh ) ; Writeln ( ‘Dia chi : ‘ ) ;
Readln ( Lop [ I ] Diachi ) ; Writeln ( ‘Diem Windows : ‘ ) ; Readln ( Lop [ I ] Windows ) ; Writeln ( ‘Diem Word : ‘ ) ; Readln ( Lop [ I ] DiemWord ) ; Writeln ( ‘Diem Excel : ‘ ) ; Readln ( Lop [ I ] DiemExcel ) ; Writeln ( ‘Diem Powerpoint : ‘ ) ; Readln ( Lop [ I ] DiemPowerpoint ) ;
If ( Lop [ I ] Windows < 0.5 ) or ( Lop [ I ] Word
+ Lop [ I ] Powerpoint < 1 ) or ( Lop [ I ] Excel
< 1 ) then Lop [ I ] Ketqua : = ‘Khong Dat‘
else Lop [ I ] Ketqua : = ‘Dat’;
End ;
Writeln ( ‘Danh sach ket qua hoc sinh trong lop la:‘ );
For I : = 1 to N do
Writeln ( ‘Lop [ I ] Ho ten : 30,‘ – Ketqua : ‘, Lop [ I ] Ketqua ) ;
Readln
End
CHỦ ĐỀ 9:
Program De9 ; Var A , B: Integer ; Procedure Hoandoi ( Var X , Y : integer ) ; Var T : Integer ;
Begin
T : = X ; X: = Y ; Y: = T ;
End ; Begin
Write ( ‘Nhap vao hai so nguyen duong : ’ ) ; Readln ( A , B) ;
Hoandoi (A ,B) ; Writeln ( ‘Hai so duoc in la : ’, a : 6 , b : 6 ) ; Readln
End
2