Nội dung của Bài thực hành 5: Sử dụng lệnh lặp For…Do dưới đây các em sẽ được thực hành về cách viết chương trình Pascal có câu lệnh lặp For..do, thực hành về sử dụng được câu lệnh ghép và rèn luyện kĩ năng đọc hiểu chương trình có sử dụng vòng lặp for...do. Mời các em cùng theo dõi nội dung chi tiết của bài thực hành.
Cú pháp:
For < biến đếm >:= < giá trị đầu > to < giá trị cuối > do
< câu lệnh >;
Trong đó:
Ý nghĩa:
Khi thực hiện, biến đếm sẽ nhận giá trị là giá trị đầu, sau mỗi vòng lặp, biến đếm sẽ tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối thì dừng lại.
a. Khởi động Pascal. Gõ chương trình sau và tìm hiểu ý nghĩa của từng câu lệnh trong chương trình;
uses crt;
var N,i:integer;
begin
clrscr;
write('Nhap so N=');
readln(N);
writeln;
writeln('Bang nhan ',N);
writeln;
for i:=1 to 10 do
writeln(N,' x ', i:2,' = ',N*i:3);
readln;
end.
b. Lưu chương trình với tên BANGNHAN.PAS;
c. Dịch và chỉnh sửa các lỗi gõ, nếu có;
d. Chạy chương trình với các giá trị nhập vào lần lượt bằng 1, 2, …,10. Quan sát kết quả nhận được trên màn hình.
Gợi ý làm bài:
Kết quả in ra màn hình:
Hình 1. Kết quả in ra màn hình bảng nhân 6
Nhận xét kết quả trên:
Hình 2. Kết quả in ra màn hình bảng nhân 7
Gợi ý làm bài:
Chương trình:
uses crt;
var N,i:integer;
begin
clrscr;
write('Nhap so N='); readln(N);
writeln;
writeln('Bang nhan ',N);
writeln;
for i:=1 to 10 do
begin
GotoXY(5,WhereY);
writeln(N,' x ',i:2,' = ',N*i:3);
writeln;
end;
readln
end.
Các câu lệnh được thêm vào:
Lưu ý: Chỉ sử dụng được các lệnh GotoXY(a,b), WhereX, WhereY sau khi đã khai báo thư viện crt; của Pascal.
Hình 3. Kết quả in ra màn hình các số từ 0 đến 99
Gợi ý làm bài:
Chương trình:
Program Tao_bang;
Uses Crt;
Var
i: byte; {chi so cua hang}
j: byte; {chi so cua cot}
Begin
Clrscr; {xoa man hinh}
For i:=0 to 9 do {viet theo tung hang}
begin
For j:=0 to 9 do {viet theo tung cot tren moi hang}
write(10*i+j:4); {viet cac so ij ra man hinh}
writeln; {xuong hang moi}
end; {xong hang thu i}
readln; {dung chuong trinh de xem ket qua}
end.
Sau khi học xong Bài thực hành 5: Sử dụng lệnh lặp For…Do, các em cần ghi nhớ:
1. Cấu trúc lặp với số lần được biết trước thể hiện bằng lệnh For …do
2. Câu lệnh GotoXY(a,b) có tác dụng đưa con trỏ về cột a, hàng b.
3. Hàm WhereX cho biết số thứ tự của cột đang có con trỏ.
4. Hàm WhereY cho biết số thứ tự của hàng đang có con trỏ.
5. Chỉ sử dụng các lệnh GotoXY, WhereX, WhereY sau khi khai báo thư viện crt của Pascal.
Các em có thể hệ thống lại nội dung kiến thức đã học được thông qua bài kiểm tra Trắc nghiệm Tin học 8 Bài thực hành 5 cực hay có đáp án và lời giải chi tiết.
Lệnh lặp For, mỗi lần lặp giá trị của biến đếm thay đổi như thế nào?
Lệnh lặp nào sau đây là đúng?
Câu 3- 5: Mời các em đăng nhập xem tiếp nội dung và thi thử Online để củng cố kiến thức về bài học này nhé!
Trong quá trình học tập nếu có thắc mắc hay cần trợ giúp gì thì các em hãy comment ở mục Hỏi đáp, Cộng đồng Tin học DapAnHay sẽ hỗ trợ cho các em một cách nhanh chóng!
Chúc các em học tập tốt và luôn đạt thành tích cao trong học tập!
-- Mod Tin Học 8 DapAnHay
Lệnh lặp For, mỗi lần lặp giá trị của biến đếm thay đổi như thế nào?
Lệnh lặp nào sau đây là đúng?
Câu lệnh pascal nào sau đây là hợp lệ?
Vòng lặp for ..do là vòng lặp:
Với ngôn ngữ lập trình Pascal câu lệnh lặp for i:=1 to 10 do x:=x+1; thì biến đếm i phải được khai báo là kiểu dữ liệu:
Họ và tên
Tiêu đề câu hỏi
Nội dung câu hỏi
viết chương trình tính tổng s=1+\(\dfrac{1}{1}+\dfrac{1}{2}+\dfrac{1}{3}+.....+\dfrac{1}{N}+\dfrac{1}{N+1}\)
Câu trả lời của bạn
var n,i:integer;
s:real;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+(1/i)+(1/(i+1));
writeln(' Tong la: ',s:0:1);
readln;
end.
Viết chương trình nhập vào điểm của n bạn học sinh trong lớp in ra màn hình các điểm vừa nhập, in ra mang hình điểm của bạn cao nhất
Câu trả lời của bạn
Bài làm mình để ở đây: https://pastebin.com/EASPa7M0
bài 1: Viết chương trình nhập vào N số nguyên. Thông báo ra màn hình tổng các phần tử ??
bài 2: Viết chương trình nhập vào N số nguyên. Thông báo ra màn hình tổng các số dương ??
mấy bạn giúp mik vs <3 <3
mik cần gấp lắm!!!
Câu trả lời của bạn
1.program bai1;
var n,i,s:longint;
begin
repeat
write('N= ');readln(n);
until n>0;
s:=0;
for i:=1to n do
begin
write('a[',]= ');readln(a[i]);
s:=a[i];
end;
write('S= ',s);
readln
end.
Viết chương trình nhập vào điểm của các môn học rồi tính điểm trung bình cho các môn học vừa nhập
Giúp mình với
Thanksss <3
Câu trả lời của bạn
program tbm;
uses crt;
var tb: real; n,i:integer;
a:array[1..100] of real;
begin
clrscr;
tb:=0;
write('Nhap so mon hoc:');readln(n);
for i:=1 to n do begin
write('Nhap diem cua mon thu ',i,':');readln(a[i]);
tb:= tb+a[i];
end;
tb:=tb/n;
write(' Diem trung binh cua ',n,' mon hoc la:',tb);
readln
end.
Câu 1: Viết chương trình nhập và in ra n phần tử kiểu số nguyên được nhập từ bàn phím. Tính tổng các phần tử. Dùng cả 2 dạng While...do và For...do?
Câu 2: Viết chương trình nhập vào n phần tử kiểu số nguyên . Thực hiện các công việc sau:
+ In mảng vừa nhập ra màn hình.
+ Tính tổng các phần tử.
+ In ra phần tử lớn nhất.
+In ra phần tử nhỏ nhất.
Câu trả lời của bạn
Câu 1:
Cách 1: While...do
Program tinh_tong;
Uses crt;
Var n,i:integer;
s:longint;
Begin
clrscr;
write('Nhap n:=');readln(n);
s:=0;i:=1;
while i<=n do
begin
writeln(i);
s:=s+i;
i:=i+1;
end;
writeln('gia tri tong:=',s);
readln;
End.
Cách 2:For...do
Program tinh_tong;
Uses crt;
Var n,i:integer;
s:longint;
Begin
clrscr;
write('nhap n:=');readln(n);
s:=0;
For i:=1 to n do s:=s+i;
writeln('Gia tri tong:=',s);
readln;
End.
viết chương trình từ 1-->50
Câu trả lời của bạn
Program bai_tap;
Uses crt;
Var i:integer;
Begin
clrscr;
For i:=1 to 50 writeln(i);
readln;
End.
Viết chương trình tạo bảng cửu chương với r là stn được nhập từ bàn phím
Câu trả lời của bạn
Uses crt;
Var
a:array[1..9,1..9] of Integer ;
i,j:byte ;
BEGIN
Clrscr ;
For i := 1 to 9 do
For j := 1 to 9 do
A[i,j] := i*j ;
For i := 1 to 9 do
Begin
For j := 1 to 9 do Write(a[i,j]:5);
Writeln ;
Writeln ;
End ;
Readln ;
END.
Viết ct nhập vào số nguyên n.Tính tổng sau
A=1+1/2+1/3+...+1/n (n E Z)
Câu trả lời của bạn
Var i , n : Integer;
A : real;
Begin
write ( ' n = ' ) ; read (n);
A:= 0;
For i := 1 to n do A:= A + 1/i;
Writeln (A);
Readln;
End.
Viết chương trình in ra tổng S = 5+ 6 +7 +8+...+100.
Câu trả lời của bạn
program ct;
uses crt;
var i,s:longint;
begin
clrscr;
s:=0;
for i:=5 to 100 do s:=s+i;
writeln(' tong la =',s);
readln;
end.
program ct;
uses crt;
var i,s:longint;
begin
clrscr;
s:=0;
for i:=5 to 100 do s:=s+i;
writeln(' tong la =',s);
readln;
end.
Cho S và i là 2 biến nguyên. Khi chạy chương trình :
S:=0
for i:=1 to 3 do S:=S+2*i
Writeln(S)
Kết quả in lên màn hình là bao nhiêu ?
Câu trả lời của bạn
12
Giúp mình vs
Viết chương trình thực hiện lệnh For.....do hoặc lệnh While....do để tính tổng
S=\(1+\dfrac{1}{2}+\dfrac{1}{3}+\dfrac{1}{4}+....+\dfrac{1}{n}\)
Với n là số nhập từ bàn phím
Câu trả lời của bạn
program bai1;
var s,n,i:longint;
begin
write('N= ');readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
write('s= ',s);
readln
end.
Var i , n : Integer;
S : real;
Begin
write (' n = ') ; read (n);
S:=0
For i:=1 to n do S:= S + 1/i;
Writeln ( S );
Readln;
End.
Viết chương trình tính tổng 10+11+12+...+n với n là số nguyên được nhâp từ bàn phím
Câu trả lời của bạn
Var i , n : Integer;
S : real;
Begin
Write ('n=') ; read (n);
S:=0 ;
For i:=10 to n do S:= S + i;
Write (S);
Readln ;
End.
viết chương trình tính tổng của n, số tự nhiên đầu tiên, với n được nhập ra từ bàn phím
giúp mình với nay mình phải làm oy
Câu trả lời của bạn
program baitap;
usescrt;
Var n,s,i:longint
begin
write (''N= ');
readln (N);
s:=0;
for i:=1 to n do s:= s+i;
write ('s=',s);
readln
end
var n,i,s:longint;
begin
write('nhap so n=');readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln(' tong n so nguyen la:',s);
readln;
end.
program bai1;
var n,s,i:longint;
begin
write('N= ');
readln(n);
s:=0;
for i:=1 to n do s:=s+i;
write('s= ',s);
readln
end.
Cho biết kết quả của đoạn chương trình sau:
a) X := 5; Y := 5;
If (36 mod 9)=0 and (36 div 9)=4 then X := X+1 else Y := Y+1;
Writeln(X , ' ' , Y);
b) k := 7; j := 2;
for i := 5 to 10 do
begin
k :=k+i;
j := j+i;
end;
Câu trả lời của bạn
a) x=6 y=5
b)k=52 j=47
10
10
Bài 1: vct tính tổng tích các biểu thức 1*1+1*2...1*10+2*1+2*2+..+..+M*N
Bài 2: vct đưa ra màn hình 2 câu:"Chào bn. Bạn có khỏe ko!".In 5 lần lên màn hình.
Bài 3: vct vẽ hình chữ nhật và điền dấu * như hình sau:
* * * * *
* * * * *
* * * * *
Bài 4: vct tìm ƯCLN của 2 số nguyên. In ra màn hình
Bài 5: vct 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 ra màn hình.
Bài 6: vct 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.
Bài 7: vct tính tổng bậc 3 của n số nguyen đầu tiên. In kết quả ra màn hình.
Bài 8: vct nhập vào 1 số nguyên rồi in kết quả ra màn hình tất cả các ước số của số đó.
Bài 9: vct về 1 tam giác cân bằng dấu. In ra màn hình tam giác đó.
Bài 10: vct tính tổng nghịch đảo của số n số nguyen đầu tiên.
Lưu ý: sử dụng câu lệnh for...do...
Câu trả lời của bạn
Bài 1 mik chưa giải ra bn thông cảm
Bài 2:
uses crt;
var i:integer;
begin
for i:=1 to 5 do writeln('Chao ban.Ban co khoe khong???');
readln;
end.
program Hinh_chu_nhat;
uses crt;
begin
clrscr;
writeln('*****');
writeln('*****');
writeln('*****');
readln;
end.
Viết chương trình để hiển thị ra ước của 1 số được nhập từ bàn phím :3
Câu trả lời của bạn
program baitap;
uses crt;
var
i,n:integer;
S:longint;
begin
clrscr;
write('moi nhap n');
readln(n);
S:=0
i:=1;
while i<=n do
begin
if n mod i=0 then
begin
write(i:3);
S:=S+i;
end;
i:=i+1;
end;
readln;
end.
.
uses crt;
var i,s,n:integer;
A:array[1..50] of integer;
begin
clrscr;
readln(n);
for i:=1 to n do read(a[i]);
s:=0;
for i:=1 to n do s:=s+a[i];
write(s);
readln
program us;
uses crt;
var i,n:longint;
begin
clrscr;
write('Nhap N= '); readln(n);
write('Uoc cua so N la: ');
for i:=1 to n do
if n mod i=0 then write(i,' ');
readln;
end.
minh bình yên
program timuoc;
uses crt;
var
i,n:integer;
begin
clrscr;
Write('nhap n');
Readln(n);
For i:=1 to n do
If n mod i =0 then
Writeln('cac uoc cua',n,'la',i);
Readln;
end.
0 Bình luận
Để lại bình luận
Địa chỉ email của hạn sẽ không được công bố. Các trường bắt buộc được đánh dấu *