Viết Chương Trình Tính Tổng S=1 1+2 2 N*(n Trong Pascal)

Tính (Tin học - Lớp 6)

1 trả lời

Nội dung chính Show

• Tổng hợp kiến thức về lập trình Pascal
• Chi tiết cách viết chương trình tính tổng S=1+2+3+…+n
• 1. Các công việc phải thực hiện
• 2.Câu lệnh lặp- một lệnh thay cho nhiều lệnh
• 3. Ví dụ về câu lệnh lặp
• 4. Tính tổng và tích bằng câu lệnh lặp
• Video liên quan

Viết các công thức excel phù hợp câu hỏi (Tin học - Lớp 7)

2 trả lời

Rùa đi lùi: BK; LT; RD; RT; CS; CT (Tin học - Lớp 4)

4 trả lời

Xác định đầu ra và đầu vào của thuật toán (Tin học - Lớp 6)

1 trả lời

Nêu 1 ví dụ của khai báo biến mảng (Tin học - Lớp 8)

1 trả lời

Tính (Tin học - Lớp 6)

1 trả lời

Viết các công thức excel phù hợp câu hỏi (Tin học - Lớp 7)

2 trả lời

Rùa đi lùi: BK; LT; RD; RT; CS; CT (Tin học - Lớp 4)

4 trả lời

Xác định đầu ra và đầu vào của thuật toán (Tin học - Lớp 6)

1 trả lời

Nêu 1 ví dụ của khai báo biến mảng (Tin học - Lớp 8)

1 trả lời

Bất kể ai học khi mới bắt đầu học về lập trình đều phải tìm hiểu cách viết chương trình tính tổng S=1+2+3+…+n. Khi mới học có rất nhiều người còn chưa nắm vững về lập trình pascal gây ra rất nhiều khó khăn khi viết chương trình tính tổng. Do vậy, hôm nay Góc Hạnh Phúc sẽ tổng hợp toàn bộ kiến thức về pascal, các ký hiệu, cấu trúc và cách viết chương trình tính tổng S=1+2+3+…+n.

Tổng hợp kiến thức về lập trình Pascal

Pascal chính là ngôn ngữ lập trình phù hợp cho kiểu lập trình cấu trúc. Ưu điểm lớn nhất của phương thức lập trình này là dễ sửa chữa và cải tiến nhanh chóng. Ngoài ra, lập trình pascal có ngữ pháp đơn giản, mang tính logic và cấu trúc của chương trình dễ hiểu.

Những ký hiệu thường gặp của pascal là: begin, end, var, while, do, {, }, ;, … Và những ký tự như a, b, c, d, … A, B, C, D, … 1, 2, 3, 4, …

Để xây dựng được một chương trình bất kỳ thì các ký hiệu này phải tuân thủ theo quy ước về ngữ pháp và ngữ nghĩa của pascal.

Xem thêm: Cách viết chương trình tính diện tích hình chữ nhật, chu vi

Cấu trúc của một chương trình pascal bất kỳ bao gồm như sau:

• Tên của chương trình
• Sử dụng lệnh
• Kiểu khai báo
• Khai báo liên tục
• Khai báo biến
• Khai báo hàm
• Khai báo thủ tục
• Khối chương trình chính
• Báo cáo và biểu thức trong mỗi khối

Các dạng câu lệnh có trong chương trình pascal là:

• Lệnh if … then… : If (điều kiện) then (câu lệnh) nếu điều kiện true thì biểu thức sẽ được thực hiện, ngược lại nếu điều kiện false thì biểu thức sẽ không thể thực hiện. Và câu lệnh này được dùng trong trường hợp để so sánh những phép toán hoặc những phép toán có điều kiện.
• Lệnh for … do…: là lặp với số lần biết trước, nếu như biết được số lần lặp lại của một dãy số, một tổng thì sẽ sử câu lệnh này.
• Lệnh while … do…: là lặp với số lần chưa biết trước và phụ thuốc vào một điều kiện cụ thể và chương trình chỉ dừng lại khi điều kiện đó sai.

Chi tiết cách viết chương trình tính tổng S=1+2+3+…+n

Cách viết chương trình tính tổng S=1+2+3+…+n là:

program Tinh_Tong;

Var n: integer;

S: longint;

BEGIN

repeat

write( ‘Nhap n: ‘);readln(n);

until (n>=0);

s:=0;

for i:=1 to n do

s:s+i;

write(‘Tong cac so tu 1 toi’,n,’=’, s);

readln

End

Như vậy, để viết chương trình tính tổng S=1+2+3+…+n không hề khó đúng không nào. Chỉ cần nắm vững kiến cấu trúc, ký hiệu của pascal để áp dụng lập trình sao cho đúng nhất nhé

Hy vọng với những thông tin trên của chúng tôi sẽ giúp bạn đọc nắm vững kiến thức, dễ dàng lập trình với nhiều chương trình khó hơn vậy. Nếu như trong thời gian học có gặp vấn đề gì khó khăn hãy để lại bình luận bên dưới nhé, chúng tôi sẽ giúp bạn đọc giải đáp mọi thắc mắc đó nhanh nhất.

Tất cả Lớp 12 Lớp 11 Lớp 10 Lớp 9 Lớp 8 Lớp 7 Lớp 6 Lớp 5 Lớp 4 Lớp 3 Lớp 2 Lớp 1

1 VTC pascal nhập số nguyên n. Tính các số Fibonacci theo công thức: F1 = F2 = 1; Fn = F1 - 1 + F2 + 2 + Xuất dãy số Fibbonacci ra màn hình +Tính tống dãy số Fibonacci và xét tổng đó có phải là số nguyên tố kBài 2 VCt pascal nhập dãy số n(n từ bàn phím + Xuất ra màn hình số nhỏ nhất và số lớn nhất và tb cộng của dãy số + Kiểm tra giá trị tb đó có phải là số hoàn hảo không

Bài 1:

uses crt;

var f:arrayof integer;

i,n,t,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

i:=2;

f:=1;

f:=1;

repeat

i:=i+1;

f:=f+f;

until i=n;

writeln('Day so fibonaci la: ');

for i:=1 to n do

write(f:4);

writeln;

t:=0;

for i:=1 to n do

t:=t+f;

writeln('Tong cua day la: ',t);

kt:=0;

for i:=2 to trunc(sqrt(t)) do

if t mod i=0 then kt:=1;

if (kt=0) and (t>1)then writeln(t,' la so nguyen to')

else writeln(t,' khong la so nguyen to');

readln;

end.

Bạn đang xem: Tính tổng 1+1/2+1/3+...+1/n trong pascal

Câu hỏi: viết chương trình tính tổng s=1+1/2+1/3+...+1/n

Lời giải:

program tinhtong;

uses crt;

var i, n : integer; S : real;

begin

clrscr;

writeln('Nhap so thu n: '); readln(n);

S:=0; i:=1;

while i := < Giá trị đầu >to< Giá trị cuối >do< Câu lệnh >;

Trong đó:

+ For, to, dolà các từ khóa

+ Biến đếm là biến kiểu nguyên

+ Giá trị đầu, giá trị cuối là các giá trị nguyên

Lưu ý:

+ Giá trị đầu phải nhỏ hơn giá trị cuối

+ Câu lệnh không làm thay đổi giá trị của biến đếm

+ Nếu câu lệnh nhiều hơn một lệnh thì phải đặt trong cặp Begin … end

Hoạt động của vòng lặp:

+ Bước 1: Biến đếm nhận giá trị đầu

+ Bước 2: Chương trình kiểm tra biểu thức điều kiện, nếu biểu thức điều kiện đúng thì thực hiện câu lệnh

+ Bước 3: Biến đếm tự động tăng lên 1 đơn vị và quay lại Bước 2

+ Bước 4: Nếu biểu thức điều kiện nhận giá trị sai thì thoát ra khỏi vòng lặp

Ví dụ 3:Chương trình sau sẽ in ra màn hình thứ tự lần lặp.

Chương trình mẫu:

PHP:

Ví dụ 4:In một chữ "O" trên màn hình.

Chương trình mẫu:

PHP:

4. Tính tổng và tích bằng câu lệnh lặp

Ví dụ 5:Chương trình sau đây sẽ tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím.

Chương trình mẫu:

PHP:

Ví dụ 6:Ta kí hiệu N! là tích N số tự nhiên đầu tiên: N! = 1.2.3…N.

Chương trình mẫu:

PHP: