Bài tập pascal nâng cao

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

Bài tập pascal nâng cao

Bài gửi  Admin on Fri Mar 20, 2009 1:38 pm

Bài 1:
1
232
34543
4567454
567898765
67890109876
7890123210987
890123454321098
90123456765432109
0123456789876543210

chú ý từ 1-->9 gap so 9 thì trở lai số 0
chú ý xéo
Program ;
uses crt;
var i,j,t:integer;
Begin
clrscr;

for i:=1 to 10 do
begin
for j:=i to(2*i-1) do
begin
t:=j mod 10;
write(t);
end;
for j:=(2*i-2) downto i do
begin
t:=j mod 10;
write(t);
end;
writeln;
end;
readln;
end.
Bài 2:
1/viết chương trình tính S=1+1/2+1/3+1/4+........+1n.
2/viết chương trình tính S=1^2+2^2+3^2+.........+n^2.
1^2 có nghĩa là một mũ hai và tương tự
hướng dẫn:
1. Chương trình tính tổn s=1+1/2+1/3..+1/n
Var S:real;
i,n:integer;
begin
s:=0;
write(' Enter n=');readln(n);
for i:=1 to n do s:=s+1/i;
write('s=',s:5:2);
end.
2. Chương trình s=1^2+2^+....n^2
var S:real;
n,i:integer;
begin
write('Enter n=');readln(n);
s:=0;
for i:=1 to n do s:=s+i*i;
write('S=',s:4:2);
reanln;
avatar
Admin
Người Quản Trị
Người Quản Trị

Tổng số bài gửi : 167
Join date : 21/02/2009
Age : 31

Xem lý lịch thành viên http://thpthvt.forumo.biz

Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang

- Similar topics

 
Permissions in this forum:
Bạn không có quyền trả lời bài viết