cấp trường 8

Bài 1: Lập chương trình tổng nghịch đảo n số nguyên.
(n nhập từ bàn phím)
Bài 2: Viết chương trình: Cho tam giác với 3 cạnh a, b, c ( kiểm tra điều kiện tam giác). Tính độ dài:
Các đường cao. Các đường trung tuyến. Các đường phân giác
Bài 3: Lập chương trình nhập vào họ và tên của mình(của học sinh), sau đó chèn vào tên lót (tên đệm) và in ra màn hình họ tên đầy đủ.
Bài 4: Viết chương trình nhập số nguyên dương N, và dãy số thực A gồm có N số. Kiểm tra xem dãy vừa nhập đã được sắp xếp thành dãy tăng, hoặc giảm hoặc không tăng, không giảm? Thông báo kết quả trên màn hình.
Ví dụ 1:
Dữ liệu vào: N =8, A = 1.2 3.5 4.0 5.3 6.0 7.7 8.1 9.0
Dữ liệu ra: Day so da duoc sap xep thanh day tang.
Ví dụ 2:
Dữ liệu vào: N= 7, A = 9.0 8.5 7.3 6.0 5.5 4.7 3.0
Dữ liệu ra: Day so da duoc sap xep thanh day giam.
Bài 5: Viết chương trình nhập vào một chuỗi. Hãy cắt khoảng trống, chuẩn hoá chuỗi này. ( cuối chuỗi có dấu.)
Bài 6: Viết chương trình nhập các số nguyên dương N, K và dãy số thực A gồm có N số. Xét xem trong dãy số A có K số dương đứng cạnh nhau hay không?
Ví dụ 1:
Dữ liệu vào:
N = 8
A = 2 -2 5 7 3 0 2 -1
K = 4
Dữ liệu ra: Trong day khong co 4 so duong dung canh nhau
Ví dụ 2:
Dữ liệu vào:
N = 9
A = 1 -2 3 7 9 1 2 -1 -7
K = 5
Dữ liệu ra: Trong day co 5 so duong dung canh nhau
Bài 7 : Hãy viết chương trình điền các phần tử của ma trận vuông cấp N (0 N  200) gồm các số –1, 0, 1 sao cho tổng các số của mọi hình vuông cấp 2 đều bằng 0 và tổng các số của ma trận cấp N là lớn nhất.

B1
uses crt;
var i,n,tong:integer;
s:real;
begin
clrscr;
write('nhap n :');readln(n);
s:=0 ;
for i:=1 to n do
s:=s+(1/i);
writeln;
writeln('tong nghich dao cua ',n,' so nguyen la :',s:0:3);
readln;
end.
{to be continued} lol

Uses crt;
var a,b,c:real;
   h1,h2,h3,p,m1,m2,m3:real;
Begin
clrscr;
      Write('Nhap do dai canh AB: ');readln(a);
      Write('Nhap do dai canh BC: ');readln(b);
      Write('Nhap do dai canh AC: ');readln(c);
      If (a+b>c) or (a+c>b) or (b+c>a) then
      Begin
           Writeln('Ba canh vua nhap nhap la 3 canh cua 1 tam giac.');
           p:=(a+b+c)/2;
           h1:=(2*sqrt(p*(p-a)*(p-b)*(p-c)))/b;
           h2:=(2*sqrt(p*(p-a)*(p-b)*(p-c)))/c;
           h3:=(2*sqrt(p*(p-a)*(p-b)*(p-c)))/a;
           Writeln('Do dai duong cao xuat phat tu A la: ',h1:5:2);
           Writeln('Do dai duong cao xuat phat tu B la: ',h2:5:2);
           Writeln('Do dai duong cao xuat phat tu C la: ',h3:5:2);
           m1:=Sqrt((2*(sqr(b))+2*(sqr(c))-(sqr(a)))/4);
           m2:=Sqrt((2*(sqr(a))+2*(sqr(c))-(sqr(b)))/4);
           m3:=Sqrt((2*(sqr(a))+2*(sqr(b))-(sqr(c)))/4);
           Writeln('Do dai duong trung tuyen ung voi canh AB la: ',m1:5:2);
           Writeln('Do dai duong trung tuyen ung voi canh BC la: ',m2:5:2);
           Writeln('Do dai duong trung tuyen ung voi canh AC la: ',m3:5:2);
      End;
Readln;
End.

Cre: sherlock holmes
B5:
uses crt;
var s:string;
i:integer;
begin
clrscr;
write('nhap xau can xu li :');readln(s);
while s[1]= ' ' do delete(s,1,1);
while s[length(s)]= ' ' do delete(s,length(s),1);
for i:=length(s) downto 1 do
if (s[i]=' ')and(s[i-1]=' ') then delete(s,i,1);
for i:=1 to length(s) do
if s[i]in['A'..'Z'] then s[i]:=chr(ord(s[i])+32);
for i:=1 to length(s) do
s[1]:=upcase(s[1]);
for i:=1 to length(s) do
if (s[i]=' ') then s[i+1]:=upcase(s[i+1]);
write('chuoi sau khi duoc xu li la : ',s);
readln;
end.

[quote="Watson"]Cre: sherlock holmes
B5:  
uses crt;
var s:string;
   i:integer;
begin
clrscr;
write('nhap xau can xu li :');readln(s);
while s[1]= ' ' do delete(s,1,1);
while s[length(s)]= ' ' do delete(s,length(s),1);
for i:=length(s) downto 1 do
if (s[i]=' ')and(s[i-1]=' ') then delete(s,i,1);
for i:=1 to length(s) do
if s[i]in['A'..'Z'] then s[i]:=chr(ord(s[i])+32);
for i:=1 to length(s) do
s[1]:=upcase(s[1]);
for i:=1 to length(s) do
if (s[i]=' ') then s[i+1]:=upcase(s[i+1]);
write('chuoi sau khi duoc xu li la : ',s);
readln;
end.