Học Tập - Trao Đổi
 
Trang ChínhCalendarGalleryTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

  Cấu trúc lặp

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Nguyễn Đình Việt
Admin
Admin
avatar

Tổng số bài gửi : 42
Điểm : 200000130
Ngày Tham Gia : 16/01/2011
Tuổi : 26
Đến từ : Kiên Giang

Bài gửiTiêu đề: Cấu trúc lặp    Sun Feb 06, 2011 6:20 pm

Bài 1: Viết chương trình tính tổng tích các biểu thức S = 1*1+1*2+…1*10 + 2*1+2*2+…+…+ M*N.

Code:
var i,j,n,s: integer;
begin
s:= 0;
write('Nhap so lan lap: '); readln(n);
for i:= 1 to n do
    for j:= 1 to 10 do
        s:= s+(i*j);
write('S = ',s);
end. 


Bài 2: Viết chương trình đưa ra màn hình 2 câu: “Chào bạn. Bạn có khỏe không!”. In 5 lần lên màn hình.

Code:
var i: integer;
begin
for i:= 1 to 5 do
  writeln ('Chao ban. Ban co khoe khong?');
end. 


Bài 3: Viết chương trình vẽ hình chữ nhật và điền dấu * như hình sau:

* * * * *
* * * * *
* * * * *

Code:
var i,j: integer;
begin
for i:= 1 to 3 do
    begin
          for j:= 1 to 5 do
                write('*');
          writeln;
  end;
end.


Bài 4: Viết chương trình tìm ước chung lớn nhất của hai số nguyên. In kết quả ra màn hình.

Code:
var x,y,u: longint;
begin
write('Nhap x: '); readln(x);
write('Nhap y: '); readln(y);
while x<>y do
  if x>y then x:=x-y else y:=y-x;
  u:=x;
write('Uoc chung lon nhat cua x va y la: ',u);
end.


Bài 5: Viết chương trình tính trung bình cộng của các số nhập vào từ bàn phím. Khi muốn kết thúc nhập để tính trung bình thì nhấn phím 0. In kết quả ra màn hình.

Code:
var t,i: integer;
    k: real;
begin
t:=0; i:=0;
writeln('Nhap so muon tinh trung binh cong, nhan phim 0 de ket thuc');
repeat
    begin
        i:=i+1;
        write('Nhap so thu ',i,': '); readln(t);
        k:=k+t;
    end;
until t=0;
k:=k/(i-1);
write('Trung binh cong cua day so vua nhap: ',k);
end.


Bài 6: Viết chương trình tính tổng bình phương của n số nguyên đầu tiên. In kết quả ra màn hình.

Code:
var i,n,m: integer;
begin
m:=0;
write('Nhap n: '); readln(n);
for i:=1 to n do
  m:= m+i*i;
write('Tong binh phuong: ',m);
readln;
end.


Bài 7: Viết chương trình tính tổng bậc 3 của n số nguyên đầu tiên. In kết quả ra màn hình.

Code:
var i,n,m: integer;
begin
m:=0;
write('Nhap n: '); readln(n);
for i:=1 to n do
  m:= m+i*i*i;
write('Tong binh phuong: ',m);
readln;
end.


Bài 8: Viết chương trình nhập vào một số nguyên rồi in ra màn hình tất cả các ước số của số đó.

Code:
var i,n: integer;
begin
write('Nhap n: '); readln(n);
write('Cac uoc so cua ',n,':');
for i:=1 to n do
  if n mod i = 0 then
    write(i:4);
readln;
end.


Bài 9: Viết chương trình vẽ 1 tam giác cân bằng dấu . In ra màn hình tam giác đó.

Code:
var i,j,n: integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
  begin
        for j:=0 to n-i do
            write(' ');
        for j:=0 to i-1 do
            write('* ');
        writeln;
  end;
readln;
end.


________________Chữ Ký______________


Được sửa bởi Nguyễn Đình Việt ngày Mon Feb 07, 2011 9:38 am; sửa lần 4.
Về Đầu Trang Go down
Xem lý lịch thành viên
Nguyễn Đình Việt
Admin
Admin
avatar

Tổng số bài gửi : 42
Điểm : 200000130
Ngày Tham Gia : 16/01/2011
Tuổi : 26
Đến từ : Kiên Giang

Bài gửiTiêu đề: Re: Cấu trúc lặp    Sun Feb 06, 2011 6:53 pm

Bài 10: Viết chương trình tính tổng nghịch đảo của n số nguyên đầu tiên .

Code:
var i,n: integer;
    t: real;
begin
t:=0;
write('Nhap n: '); readln(n);
for i:=1 to n do
    t:= t+(1/i);
write('Tong nghich dao: ',t:2);
readln;
end.


Bài 11: Viết chương trình tính tổng bình phương các số chẵn từ 1 đến n; với n được nhập từ bàn phím.

Code:
var i,n,t: integer;
begin
t:=0; i:=2;
write('Nhap n: '); readln(n);
while i<=n do
    begin
        t:= t+i*i;
        i:= i+2;
    end;
write('Tong binh phuong cac so chan: ',t);
readln;
end.


Bài 12: Viết chương trình nhập vào n số nguyên , tìm số lớn nhất trong các số đó. In kết quả ra màn
hình.

Code:
var i,n,min,max,a: integer;
begin
max:=0;
write('Nhap bao nhieu so de so sanh: '); readln(n);
for i:= 1 to n do
    begin
        write('Nhap so thu ',i,': ');
        readln(a);
        min:=a;
        if min>max then
            max:=min;
        end;
write('So lon nhat: ',max);
readln;
end.


Cái này nhập âm thì không so sánh được ai sửa lại được thì sửa bó tay rồi

Bài 13: Viết chương trình tính giai thừa của n, với n được nhập từ bàn phím.

Code:
[color=orange]var i,n,gt: integer;
begin
gt:= 1;
write('Nhap n: '); readln(n);
for i:=1 to n do
    gt:= gt*i;
write('n! = ',gt);
readln;
end.


Bài 14: Viết chương trình chứng minh rằng phép chia giữa hai số nguyên, chẳng qua chỉ là phép trừ. In kết quả ra màn hình là số thương và số dư.

Code:
Chưa biết làm ai làm được post lên nhé :)):D


Bài 15: Viết chương trình nhập vào một số và kiểm tra xem số đó có phải là số nguyên tố hay không?

Code:
Chưa biết làm ai làm được post lên nhé :)):D


Bài 16: Viết chương trình tính xn, với x, n được nhập từ bàn phím.

Code:
Chưa biết làm ai làm được post lên nhé :)):D


Bài 17: Viết chương trình nhập vào một số nguyên, in ra màn hình số nguyên đó có mấy ký tự số.

Code:
Chưa biết làm ai làm được post lên nhé :)):D


Bài 18: Viết chương trình tính tổng S = 1+2+3+…+ n sao cho S > 1000. Hỏi khi đó cụ thể S bằng bao nhiêu?

Code:
Chưa biết làm ai làm được post lên nhé :)):D


Bài 19: Viết chương trình tính tổng S = 12 +22 +…+n2 . In kết quả ra màn hình.

Code:
Chưa biết làm ai làm được post lên nhé :)):D


Bài 20: Viết chương trình tính tổng của n số nguyên đầu tiên. Số n và các số hạng của tổng được nhập từ bàn phím. In kết quả ra màn hình.

Code:
var i,n,s: integer;
begin
s:=0;
write('Nhap n: '); readln(n);
for i:=1 to n do
    s:=s+i;
write(s);
readln;
end.



a9 Hết rồi

________________Chữ Ký______________
Về Đầu Trang Go down
Xem lý lịch thành viên
 
Cấu trúc lặp
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn Đàn THUD K3 :: Học Tập Chuyên Ngành :: Pascal-
Chuyển đến