Viết chương trình nhập vào 1 mảng a gồm n phần tử , sắp xếp mảng thành mảng tăng dần.
Uses crt;
Var a:array[1..1000] of integer;
i,j,n,t:integer;
procedure nhap;
begin
Write(‘Nhap n : ‘);
Readln(n);
For i:=1 to n do
Begin
Write(‘a[‘,i,’]: ‘);
Readln(a[i]);
End;
End;
Procedure sapxep;
Begin
For j:=1 to n-1 do
For i:=1 to n-1 do
If a[i]>a[i+1] then
Begin
T:=a[i];
A[i]:=a[i+1];
A[i+1]:=t;
End;
End;
Procedure Inra;
Begin
For i:=1 to n do
Write(a[i]:3);
End;
{bat dau chuong trinh chinh }
Begin
Nhap;
Sapxep;
Inra;
Readln;
End;
Viết chương trình nhập vào một mảng a gồm n phần tử , tính tổng các phần tử trong mảng.
Uses crt;
Var a:array[1..1000] of integer;
i,j,n,t,s:integer;
procedure nhap;
begin
Write(‘Nhap n : ‘);
Readln(n);
For i:=1 to n do
Begin
Write(‘a[‘,i,’]: ‘);
Readln(a[i]);
End;
End;
Procedure tinhtong;
Begin
S:=0;
For i:=1 to n do
S:=s+a[i];
End;
Procedure Inra;
Begin
Write(‘Tong la : ‘,s);
End;
{bat dau chuong trinh chinh }
Begin
Nhap;
tinhtong;
Inra;
Readln;
End;
Viết chương trình tính tổng các phần tử lẻ trong mảng.
Sửa lại phần procedure tinhtong; bài 2 thành
Procedure tinhtong;
Begin
S:=0;
For i:=1 to n do
If a[i] mod 2 <>0 then
S:=s+a[i];
End;
Viết chương trình tính trung bình cộng của một mảng a gồm n phần tử .
-Sửa lại phần Procedure tinhtong ; bài 2 thành
Function TBC:real;
Begin
S:=0;
For i:=1 to n do
S:=s+a[i];
TBC:=s/n;
End;
-Sửa phần procedure Inra ; thành
Procedure Inra;
Begin
Write(‘TBC la : ‘,TBC:2:4);
End;
5. Viết chương trình nhập vào 1 xâu, sau đó đếm xem số lần xuất hiện mỗi ký tự trong xâu
VD: THPT Quynh Luu 4
KQ: T:2 H:2 P:1 Q:1 U:3 Y:1 N:1 4:1
Giải (#32 là dấu cách )
In hoa toàn bộ xâu .
Xét ký tự đầu s[1];
Đếm xem có bao nhiêu ký tự giống s1 trong xâu.
Mỗi lần có s[i] =s[1] thì xóa đi s[i] để tránh lặp
Đếm hết thì ghi ra s[1] và đếm
Xóa s[1] chuyển đếm về 1.
Quay lại xét tiếp s[1];
CODE:
VAR s:STRING;
i,d,j:INTEGER;
PROCEDURE xuli;{ xu ly bai toan }
BEGIN
IF s[1] <>#32 THEN
BEGIN
d:=1; j:=2;
WHILE j<=length(s) DO
IF s[j] = s[1] THEN
BEGIN inc(d) ; delete(s,j,1); END
ELSE inc(j);
Write(s[1],' : ');
writeln(d);
delete(s,1,1);
END ELSE delete(s,1,1);
END;
BEGIN
Write('Nhap xau : ');
Readln(S);
FOR i:=1 TO length(s) DO
s[i]:=upcase(s[i]);
WHILE s<>'' DO
xuli;
Readln;
END.
Tính tổng sau
S= 1/i! với i chạy từ 0 đến n
S=∑_(i=0)^n▒1/i!
Giải :
Ta viết hàm tính giai thừa
sau đó tính tổng.
Hàm giai thừa là
f(x)= x*(x-1)*(x-2)*...*1
VAR s:REAL;
n,i:INTEGER;
FUNCTION Giaithua(n:INTEGER):LONGINT;
VAR s,i:LONGINT;
BEGIN
s:=1;
FOR i:=n DOWNTO 1 DO
s:=s*i;
Giaithua:=s;
END;
BEGIN
Write('Nhap n : ');
Readln(n);
s:=0;
FOR i:=0 TO n DO
s:=s+1/giaithua(i);
Write('S= ',s:4:4);
Readln;
END.
6.
Tính tổng
S= x^i với i từ 0 đến n
S=∑_(i=0)^n▒x^i
Tương tự bài tính giai thừa
nhưng hàm Lũy thừa
F(x,i)= x*x*x*x...*x
(i thừa số);
VAR s:LONGINT;
i,x,n:LONGINT;
FUNCTION Luythua(x,i:LONGINT):LONGINT;
VAR s,j:LONGINT;
BEGIN
s:=1;
FOR j:=1 TO i DO
s:=s*x;
Luythua:=s;
END;
BEGIN
Writeln('Nhap n : ');
readln(n);
Write('Nhap x : ');
Readln(x);
s:=0;
FOR i:=0 TO n DO
s:=s+Luythua(x,i);
Write('S= ',s);
readln;
END.
Viết chương trình đếm số từ trong một xâu .
Giải: Thay vì đếm từ, ta sẽ đếm số dấu cách (#32) trong câu. Sau đó cộng thêm 1 ( vì từ đầu tiên k có dấu cách đứng trước).
Var s:string;
Dem,i: integer;
Procedure Nhap;
Begin
Write(‘Nhap xau : ‘ );
Readln(s);
End;
Procedure Demtu;
Begin
Dem:=0;
For i:=1 to length(s) do
If s[i]=#32 then inc(dem);
End;
Procedure Inra;
Begin
Write(‘So tu la : ‘,dem+1);
End;
{ chuong trinh chinh}
Begin
Nhap;
Demtu;
Inra;
Readln;
End.
Viết chương trình nhập vào một xâu toàn bộ là chữ thường, sau đó in hoa những ký tự đứng đầu một từ.
VD : hoc sinh Hoc Sinh
Giải
Ta thấy chữ cái đầu (s[1] luôn phải in hoa ).
Sau đó mỗi chữ cái sau dấu cách (#32) phải in hoa.
Var s:string;
i: integer;
Procedure Nhap;
Begin
Write(‘Nhap xau : ‘ );
Readln(s);
End;
Procedure Xuli;
Begin
S[1]:=upcase(s[1]);
For i:=2 to length(s) do
If s[i]=#32 then s[i+1]:=upcase(s[i+1]);
End;
Procedure Inra;
Begin
Write(‘Xau moi : ‘,s);
End;
{ chuong trinh chinh}
Begin
Nhap;
Xuli;
Inra;
Readln;
End.
Viết chương trình
Tính tổng x+y
Giải pt bậc 2 một ẩn
Giai thừa của n
CODE:
PROGRAM Baitap;
USES crt;
VAR a,b,c:REAL;
n,x,y:INTEGER;
FUNCTION Tinhtong(x,y:INTEGER):INTEGER;
BEGIN
Tinhtong:=x+y;
END;
PROCEDURE GiaiPT(a,b,c:REAL);
VAR D,x1,x2:REAL;
BEGIN
D:= b*b - 4*a*c;
IF D<0 THEN Write('Phuong trinh vo nghiem ! ') ELSE
BEGIN
BEGIN x1:= (-b-sqrt(d)) /(2*a) ;x2:=(-b+sqrt(D))/(2*a); END;
Writeln('x1= ',x1:2:2);
Writeln('x2= ',x2:2:2);
END;
END;
FUNCTION TinhGT(n:BYTE):LONGINT;
VAR gt,i:LONGINT;
BEGIN
gt:=1;
FOR i:=1 TO n DO
gt:=gt*i;
TinhGT:=gt;
END;
BEGIN
Clrscr;
Write('Nhap x va y : ');
Readln(x,y);
Write('Tong la : ',Tinhtong(x,y));
Readln;
Write('Nhap he so a,b,c cua phuong trinh : ');
Readln(a,b,c);
GiaiPT(a,b,c);
Readln;
Write('Nhap n : ');
Readln(n);
Write(n,'!= ',TinhGT(n));
Readln;
END.
9. Kiểm tra một số có phải là nguyên tố hay không
VAR x:LONGINT;
FUNCTION Ngto(x:INTEGER):BOOLEAN;
VAR j: INTEGER;
BEGIN
Ngto:=TRUE;
IF x <=1 THEN Ngto:=FALSE ELSE
FOR j:=2 TO Trunc(Sqrt(x)) DO
IF x MOD j = 0 THEN BEGIN
Ngto:=FALSE; exit; END;
END;
BEGIN
Readln(x);
IF ngto(x) THEN Write(' La so nguyen to') ELSE write(' KHong phai nguyen to ') ; readln;
END.
