Nơi trao đổi thông tin Văn Lang
Chào mừng bạn đến với nơi trao đổi thông tin của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !
Nơi trao đổi thông tin Văn Lang
Chào mừng bạn đến với nơi trao đổi thông tin của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !
Nơi trao đổi thông tin Văn Lang
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Nơi trao đổi thông tin Văn Lang

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhTìm kiếmLatest imagesĐăng kýĐăng Nhập

 

 cấp trường 8

Go down 
3 posters
Tác giảThông điệp
pqtoan
Admin



Posts : 76
Danh tiếng : 3
Join date : 10/11/2014

cấp trường 8 Empty
Bài gửiTiêu đề: cấp trường 8   cấp trường 8 Icon_minitime15/9/2016, 09:56

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.
Về Đầu Trang Go down
Watson




Posts : 5
Danh tiếng : 0
Join date : 26/08/2019

cấp trường 8 Empty
Bài gửiTiêu đề: Re: cấp trường 8   cấp trường 8 Icon_minitime26/8/2019, 20:50

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
Về Đầu Trang Go down
toxic321




Posts : 15
Danh tiếng : 2
Join date : 21/08/2019

cấp trường 8 Empty
Bài gửiTiêu đề: Re: cấp trường 8   cấp trường 8 Icon_minitime26/8/2019, 22:23

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.
Về Đầu Trang Go down
Watson




Posts : 5
Danh tiếng : 0
Join date : 26/08/2019

cấp trường 8 Empty
Bài gửiTiêu đề: Re: cấp trường 8   cấp trường 8 Icon_minitime27/8/2019, 15:13

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.
Về Đầu Trang Go down
Watson




Posts : 5
Danh tiếng : 0
Join date : 26/08/2019

cấp trường 8 Empty
Bài gửiTiêu đề: Re: cấp trường 8   cấp trường 8 Icon_minitime28/8/2019, 08:42

[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.
Cool Cool Cool
Về Đầu Trang Go down
Sponsored content





cấp trường 8 Empty
Bài gửiTiêu đề: Re: cấp trường 8   cấp trường 8 Icon_minitime

Về Đầu Trang Go down
 
cấp trường 8
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» cấp trường 1
» Cấp trường 2
» Cấp trường 3
» Cấp trường 4
» cấp trường đề số 5

Permissions in this forum:Bạn không có quyền trả lời bài viết
Nơi trao đổi thông tin Văn Lang  :: Các bộ đề thi-
Chuyển đến