Cấu trúc lặp

Tiê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.

Tiê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.

Hết rồi