Bài tập Pascal
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Nguyễn Thanh Lương (trang riêng)
Ngày gửi: 10h:37' 02-04-2011
Dung lượng: 4.6 KB
Số lượt tải: 2
Nguồn:
Người gửi: Nguyễn Thanh Lương (trang riêng)
Ngày gửi: 10h:37' 02-04-2011
Dung lượng: 4.6 KB
Số lượt tải: 2
Số lượt thích:
0 người
Bai 1: Nhap va in matric
Var a:array[ 1..99,1..99 ] of integer ;
i ,s,min,max, j:integer ;
Begin
Write(`Nhap m :`);Readln(m);
Write(`Nhap n :`);Readln(n);
For i:=1 to m do
For j:=1 to m do
Begin
Write(`a[ ` , i , `,` , j , ` ] = `) ;Readln(a[ i , j ])
End ;
For i:=1 to m do
Begin
For j:=1 to n do Write(a[ i , j ]:4) ;
Writeln
End ;
If m=n then
Begin
s=0;
For i:=1 to n do s= s + a[i,i];
s=0;
For i:=n downto 1 do s= s + a[i,i];
Write(`Duong cheo phu co tong bang `,s);
min:=a[1,1]; max:=a[1,1];
For i:=1 to n do
Begin
If min>a[i,i] then min=a[i,i]
If max
End
Write(`Duong cheo chinh co max la `,max , `min la ` , min );
min:=a[1,1]; max:=a[1,1];
For i:=n downto 1 do
For j:=1 to n do
Begin
If min>a[i,j] then min=a[i,j]
If max
End
Write(`Duong cheo chinh co max la `,max , `min la ` , min );
End;
{Các câu khác tương tự}
Readln
End.
Bai 2:
thủ tục Chuẩn hóa xâu:
{---------------------------------------}
Procedure remix( Var a:string ) ;
Var i:integer;
Begin
While a[1] = #32 do Delete(a,1,1);
While (a[length(a)] = #32) do Delete(a,length(a),1);
For i:=1 to length(a) do
If (a[i] =#32) and (a[i+1] =#32) then
Begin
Delete(a,i+1,1);
i:=i-1
End ;
a[ 1 ] := UpCase(a[ 1 ]);
For i:=1 to length(a) do
If (a [ i ] = #32) and ( a[ i + 1 ] in [ `a` ..`z` ] ) then a[ i+1 ]:= UpCase(a[ i +1 ]) ;
Writeln( ` ( ` , a , ` )` )
End ;
{--------------------------------------}
muốn chuẩn hóa xâu : nhập xâu > remix(xau);
Kiểm tra tam giác
Bài 36
Var a,b,c,S,chuvi,P:real ;
theloai:String ;
Begin
Write(`a = `) ;Readln(a) ;
Write(`b = `) ;Readln(b) ;
Write(`c = `) ;Readln(c) ;
If (a+b>c) and (a+c>b) and (b+c>a) and (a>0) and (b>0) and (c>0) then
Begin
P:=(a+b+c)/2 ;
chuvi:=a+b+c ;
S:=SQRT(p*(p-a)*(p-b)*(p-c)) ;
If (a-b)*(b-c)*(a-c)*(a*a-b*b-c*c)*(b*b-a*a-c*c)*(c*c-b*b-a*a)<>0 then theloai:=`thuong` ;
If (a=b) and (b=c) then theloai:=`deu` ;
If (a-b)*(b-c)*(c-a)=0 then
Begin
If (a*a-b
Var a:array[ 1..99,1..99 ] of integer ;
i ,s,min,max, j:integer ;
Begin
Write(`Nhap m :`);Readln(m);
Write(`Nhap n :`);Readln(n);
For i:=1 to m do
For j:=1 to m do
Begin
Write(`a[ ` , i , `,` , j , ` ] = `) ;Readln(a[ i , j ])
End ;
For i:=1 to m do
Begin
For j:=1 to n do Write(a[ i , j ]:4) ;
Writeln
End ;
If m=n then
Begin
s=0;
For i:=1 to n do s= s + a[i,i];
s=0;
For i:=n downto 1 do s= s + a[i,i];
Write(`Duong cheo phu co tong bang `,s);
min:=a[1,1]; max:=a[1,1];
For i:=1 to n do
Begin
If min>a[i,i] then min=a[i,i]
If max
End
Write(`Duong cheo chinh co max la `,max , `min la ` , min );
min:=a[1,1]; max:=a[1,1];
For i:=n downto 1 do
For j:=1 to n do
Begin
If min>a[i,j] then min=a[i,j]
If max
End
Write(`Duong cheo chinh co max la `,max , `min la ` , min );
End;
{Các câu khác tương tự}
Readln
End.
Bai 2:
thủ tục Chuẩn hóa xâu:
{---------------------------------------}
Procedure remix( Var a:string ) ;
Var i:integer;
Begin
While a[1] = #32 do Delete(a,1,1);
While (a[length(a)] = #32) do Delete(a,length(a),1);
For i:=1 to length(a) do
If (a[i] =#32) and (a[i+1] =#32) then
Begin
Delete(a,i+1,1);
i:=i-1
End ;
a[ 1 ] := UpCase(a[ 1 ]);
For i:=1 to length(a) do
If (a [ i ] = #32) and ( a[ i + 1 ] in [ `a` ..`z` ] ) then a[ i+1 ]:= UpCase(a[ i +1 ]) ;
Writeln( ` ( ` , a , ` )` )
End ;
{--------------------------------------}
muốn chuẩn hóa xâu : nhập xâu > remix(xau);
Kiểm tra tam giác
Bài 36
Var a,b,c,S,chuvi,P:real ;
theloai:String ;
Begin
Write(`a = `) ;Readln(a) ;
Write(`b = `) ;Readln(b) ;
Write(`c = `) ;Readln(c) ;
If (a+b>c) and (a+c>b) and (b+c>a) and (a>0) and (b>0) and (c>0) then
Begin
P:=(a+b+c)/2 ;
chuvi:=a+b+c ;
S:=SQRT(p*(p-a)*(p-b)*(p-c)) ;
If (a-b)*(b-c)*(a-c)*(a*a-b*b-c*c)*(b*b-a*a-c*c)*(c*c-b*b-a*a)<>0 then theloai:=`thuong` ;
If (a=b) and (b=c) then theloai:=`deu` ;
If (a-b)*(b-c)*(c-a)=0 then
Begin
If (a*a-b
Các ý kiến mới nhất