Tin học Tin 8 Viết chương trình Pascal

[taek123]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình xuất ra giá trị của n sau khi thực hiện tính tổng s= 1+1/2+1/3...+1/N cho đến khi s>10.25
Mọi người ơi, giúp mình với> MÌnh biết viết chương trình tính tổng bằng while...do nhưng hơi phân vân không biết nếu tính tổng bình thường có đúng không nữa. Do ở đấy đề ghi là xuất ra giá trị N sau khi thực hiện tính tổng, mình không rõ tính tổng xong thì xuất giá trị N là sao? MỌi người ơi, nếu ai hiểu thì giúp mình nhé. Cảm ơn mọi người nhiều lắm ạ

 

[Trâm Nguyễn Thị Ngọc]

Viết chương trình xuất ra giá trị của n sau khi thực hiện tính tổng s= 1+1/2+1/3...+1/N cho đến khi s>10.25
Mọi người ơi, giúp mình với> MÌnh biết viết chương trình tính tổng bằng while...do nhưng hơi phân vân không biết nếu tính tổng bình thường có đúng không nữa. Do ở đấy đề ghi là xuất ra giá trị N sau khi thực hiện tính tổng, mình không rõ tính tổng xong thì xuất giá trị N là sao? MỌi người ơi, nếu ai hiểu thì giúp mình nhé. Cảm ơn mọi người nhiều lắm ạ

Bài này không phải là nhập n rồi tính tổng mà là tìm n để giá trị của tổng lớn hơn số nào đó.
Bạn hiểu đề thì bài này dễ lắm

 

[taek123]

bạn giải với while... do đc ko. Mình chưa học repeat..until

 

[Trâm Nguyễn Thị Ngọc]

bạn giải với while... do đc ko. Mình chưa học repeat..until

Đây bạn

 

[taek123]

bạn ơi sao không phải là S<=10.25................................

 

[Trâm Nguyễn Thị Ngọc]

bạn ơi sao không phải là S<=10.25................................

À, mình nhầm chút, bạn sửa lại giúp mình

 

[taek123]

ý bạn là nếu S<=10.25 thì lỡ như 10.26 thì mới dừng lại phải không?NHưng mình thấy trong sách giáo khoa, mấy bài tính tổng cũng để S<= như vậy ak.

 

[Trâm Nguyễn Thị Ngọc]

ý bạn là nếu S<=10.25 thì lỡ như 10.26 thì mới dừng lại phải không?NHưng mình thấy trong sách giáo khoa, mấy bài tính tổng cũng để S<= như vậy ak.

Làm s<= là đúng rồi bạn ơi, mình hơi nhầm qua repeat until chút

 

[taek123]

Cảm ơn bạn nhé. Tiện thể cho mình hỏi thế có cần phải xuất tổng S không vậy bạn?Còn N đó nếu làm theo cách đó thì xuất ra có đầy đủ giá trị không vậy bạn, ý mình là nếu có 10 số làm cho tổng lớn hơn 10,25 thì khi xuất ra có xuất đầy đủ 10 số không vậy?

 

[Trâm Nguyễn Thị Ngọc]

Cảm ơn bạn nhé. Tiện thể cho mình hỏi thế có cần phải xuất tổng S không vậy bạn?Còn N đó nếu làm theo cách đó thì xuất ra có đầy đủ giá trị không vậy bạn, ý mình là nếu có 10 số làm cho tổng lớn hơn 10,25 thì khi xuất ra có xuất đầy đủ 10 số không vậy?

Không đâu bạn, chỉ có 1 giá trị n xuất ra thôi, là khi s lớn hơn và gần với 10,25 nhất thôi, còn nếu nói xuất ra tất cả n để s>10,25 thì vô sôd nha bạn

 

[taek123]

mình có 1 thắc mắc là
while S<=5.15 do begin N:=N+1; S:=S+1/N; end;
hay là while S<5.15 do begin N:=N+1; S:=S+1/N; end;
hay while S<5.15 do begin S:=S+1/N; N:=N+1;end;
Cái nào mới là đúng z bạn.
mình không hiểu chỗ này cho lắm

 

[Trâm Nguyễn Thị Ngọc]

mình có 1 thắc mắc là
while S<=5.15 do begin N:=N+1; S:=S+1/N; end;
hay là while S<5.15 do begin N:=N+1; S:=S+1/N; end;
hay while S<5.15 do begin S:=S+1/N; N:=N+1;end;
Cái nào mới là đúng z bạn.
mình không hiểu chỗ này cho lắm

Đề giống bài trên luôn hả bạn

 

[taek123]

uk là bài trên đó bạn. ý mình hỏi là cái nào đúng. Mình không hiểu cách thức hoạt động cho lắm

 

[Trâm Nguyễn Thị Ngọc]

uk là bài trên đó bạn. ý mình hỏi là cái nào đúng. Mình không hiểu cách thức hoạt động cho lắm

Cái trước nha bạn, Vì câu lệnh While..do là trong khi đk đúng thì nó vẫn sẽ làm. Nếu như là s<5,15 thì giả sử làm xong vòng lặp trước s=5,15 thì vòng lặp không được thực hiện và kt vòng lặp s cũng bằng 5,15. Mà theo đề là s>5,15 nên sai

 

[taek123]

while S<5.15 do begin S:=S+1/N; N:=N+1;end;cái này có đúng ko bạn

 

[Trâm Nguyễn Thị Ngọc]

while S<5.15 do begin S:=S+1/N; N:=N+1;end;cái này có đúng ko bạn

Khởi tạo n:=0 hay n:=1 bạn

 

[taek123]

có phải là N=0 thì N:=N+1 trước
N=1 thì ngược lại phải không bạn?

 

[Trâm Nguyễn Thị Ngọc]

có phải là N=0 thì N:=N+1 trước
N=1 thì ngược lại phải không bạn?

Nếu n=1 thì sau vòng lặp bạn phải trừ đi 1 đơn vị mới đúng bạn ạ. Mà tốt nhất là làm theo cách mình làm trên đó cho dễ hiểu
À, sửa giúp mình phần khai báo, s:real nha bạn. Mình lộn chút

 

[taek123]

program bai1;
uses crt;
var S, N,: real;
begin
S:=0;N:=0;
while S<=10.25 do
begin N:=N+1;
S:=S+1/N;
end;
writeln(N);
readln;
end.
Như thế đã hoàn chỉnh chưa bạn?

 

[Trâm Nguyễn Thị Ngọc]

program bai1;
uses crt;
var S, N,: real;
begin
S:=0;N:=0;
while S<=10.25 do
begin N:=N+1;
S:=S+1/N;
end;
writeln(N);
readln;
end.
Như thế đã hoàn chỉnh chưa bạn?

n là số nguyên nên khai báo n là integer hoặc longint cho chính xác nha bạn