Bài tập về vòng lặp for

Bài tâp về vòng lặp for:
Bài 1: Tìm tổng bình phương các số từ 1  100?
Hướng dẫn giải:
Var tong,n:integer;
begin
tong:=0;
For n:=1 to 100 do tong:=tong+ sqr(x); {thực hiện việc cộng thêm vào tổng giá trị
của n^2 từ 1 đến 100}
Writeln(tong);
End.
Bài 2 : Lập bảng giá trị cho hàm số y=f(x)=ax
2
+bx+c
Hướng dẫn giải:
Var x,a,b,c,m,n:integer;
Begin
Writeln(‘Lan luot nhap cac so a b c’);
Read(a,b,c);
Writeln(‘Bat dau tu so?’);
Read(m);
Writeln(‘Den?’);
Read(n);
Writeln(‘ x y’);
For x:=n to n do
Writeln(x:10,a*x*x+b*x+c:10);
Readln
End.
Bài 3:Đố vui
Trăm bò tăm cỏ
Con đứng ăn năm
Con nằm ăn ba

Con già ba con một bó
Mỗi loại mấy con?
Hướng dẩn giải:
Bằng cách thử các giá trị từ 1 đến 98 lần lượt các giá trị tương ứng của từng số bò
For bòđứng:=1 to 98 do
For bònằm:=1 to 98 do
For bògià:=1 to 98 do
If 5* bòđứng+3*bònằm+1/3*bògià=0 then
Writeln(bòđứng:3bònằm:3bògià:3);

Bài 3:Ghi ra màng hình
1 2 3 4
2 3 4 5
3 4 5 6
4 5 6 7
5 6 7 8
6 7 8 9
7 8 9 10
8 9 10 11
9 10 11 12
10 11 12 13
Hướng dẫn
Ues crt;
Var n:integer;
Begin
clrscr;{xóa màng hình}
for n:=1 to 10 do
writeln(n:n,n+1:n+1,n+2:n+2,n+3:n+3);
readln
end.

Bài 4 : Lập bảng cửu chương

bang cuu chuong
2x2= 4 3x2= 6 4x2= 8 5x2=10 6x2=12 7x2=14 8x2=16 9x2=18
2x3= 6 3x3= 9 4x3=12 5x3=15 6x3=18 7x3=21 8x3=24 9x3=27
2x4= 8 3x4=12 4x4=16 5x4=20 6x4=24 7x4=28 8x4=32 9x4=36
2x5=10 3x5=15 4x5=20 5x5=25 6x5=30 7x5=35 8x5=40 9x5=45
2x6=12 3x6=18 4x6=24 5x6=30 6x6=36 7x6=42 8x6=48 9x6=54
2x7=14 3x7=21 4x7=28 5x7=35 6x7=42 7x7=49 8x7=56 9x7=63
2x8=16 3x8=24 4x8=32 5x8=40 6x8=48 7x8=56 8x8=64 9x8=72
2x9=18 3x9=27 4x9=36 5x9=45 6x9=54 7x9=63 8x9=72 9x9=81
Hương dẫn
uses crt;
var a,b :byte;
begin
clrscr;
writeln('bang cuu chuong');
for b:=2 to 9 do
begin
for a:=2 to 9 do
write(a,'x',b,'=',a*b:2,' ');
writeln
end;
readln;
end.
Bài 5: Tạo đồng hồ đếm giờ bằng nhiều hàm for lồng vào nhau và sử dụng thư viện
crt;
for h:=0 to 0 do
for m:=0 to 2 do
for s:=0 to 100 do

begin
writeln(h,'|',m,'|',s);
delay(1000);clrscr; {ngừng 1 giây--}
end;

Bài 6:Phân tích một số ra thừa số nguyên tố
Hướng dẫn
program phan_tich_thua_so_nguyen_to;
uses crt;
var n,x,y:integer;
function unn(n:integer):integer;
var u:integer ;
begin
u:=1;
repeat
u:=u+1;
if n mod u =0 then unn:=u;
until n mod u =0 ;
end;
(*-------------------------------*)
begin
writeln('Nhap_so');
read(n);
repeat
write(n:10);writeln(unn(n):10);n:=trunc(n/unn(n));
until n=1; writeln;
for y:=1 to 80 do begin write('_');delay(100);end;
end.
Phần tổng hợp:
Bài 1*: Lập phần mềm ‘Giải phương trình bậc một hai ẩn’

Hướng dẫn giải:
-Kiến thức lớp 9 có thể giải bằng cách tự lập ra nháp các công thức nghiệm kết hợp
với điều kiện;
-Kiến thức cấp 3 có thể giải bằng các lập trình gần giống với việc giải và biện luận
hệ phương trình với các tham số a,b,c mà ta sẽ sẽ nhập vào, có thể sử dụng chương
trình con (procedure) để gỡ rối.
Có thể tham khảo bài dưới đây:
program giai_he_phuong_hai_an;
uses crt;
var x,y,a1,a2,b1,b2,c1,c2,Dx,Dy,D:real;
(*---------------------------------*)
Procedure Docheso;
begin
writeln('a1 b1 c1');
read(a1,b1,c1);
writeln('a2 b2 c2');
read(a2,b2,c2);
end;
(*----------------------------*)
procedure Dangthuccap2;
begin
D:=a1*b2-a2*b1;
Dy:=a1*c2-a2*c1;
Dx:=c1*b2-c2*b1;
end;
(*----------------------------*)
begin
{clrscr;}
docheso;
if (a1*a1+b1*b1=0) or (a2*a2+b2*b2=0) then Writeln('MATH ERROR')

else
dangthuccap2;
{begin}
if D=0 then
begin
if (Dx=Dy)and(Dy=0) then
begin writeln('Tap nghiem cua phuong trinh la {x;
(',c1:18,'-',a1:18,'x)/',b1:18);readln;end
else begin writeln('Phuong trinh vo nghiem');readln end;
end
else
Begin
x:=Dx/D; y:=Dy/D;
writeln('Tap nghiem cua phuong trinh: x=',x:18);
writeln(' y=',y:18);readln
end;readln
{end;}
end.




Bài sẽ cập nhật và sửa đổi thường
xuyên