Các chủ đề thực hành trên Pascal môn Tin học 11 hay có lời giải

BÀ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
For 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 :