Tin 10: Thuật toán

[Ye Ye]

[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.

Tính S = 1 + 2 +3 + 4 + ... + N (N nguyên dương)

@kingsman(lht 2k2) @Toshiro Kiyoshi @Jotaro Kujo mấy bạn giỏi Tin giúp mình với
nói thật, thuật toán mình thấy rất khó hiểu
các bạn giải giúp mik bài này rồi nói mình cách làm chung của thuật toán nhé
Mình cảm ơn

 

[Toshiro Kiyoshi]

S = 1 + 2 +3 + 4 + ... + N (N nguyên dương)

 

[trà nguyễn hữu nghĩa]

program Tinh_Tong;
uses crt;

var n : integer;
kq : real;

BEGIN
Clrscr;
Write('Nhap vao so N nguyen duong: ');
readln(n);

kq := n * (n+1) / 2;

writeln;
write('Tong cac so tu 1 den N la: ',kq : 1 : 2);
readln;
END.

Chắc bạn cũng biết cách tính tổng các số từ 1 đến 100 rồi chứ ( Cái này học hồi lớp 6).
Thuật toán chỉ đơn giản là theo cách tính đó thôi.

 

[Blue Plus]

Tính S = 1 + 2 +3 + 4 + ... + N (N nguyên dương)

@kingsman(lht 2k2) @Toshiro Kiyoshi @Jotaro Kujo mấy bạn giỏi Tin giúp mình với
nói thật, thuật toán mình thấy rất khó hiểu
các bạn giải giúp mik bài này rồi nói mình cách làm chung của thuật toán nhé
Mình cảm ơn

Pascal
C1:
uses crt;
var n,S: longint;
begin
clrscr;
write('Nhap so tu nhien n:');readln(n);
S:=(n*(n+1))/2;
write('Tong cac so tu nhien tu 1 den n la:',S);
readln
end.

 

[Ye Ye]

program Tinh_Tong;
uses crt;

var n : integer;
kq : real;

BEGIN
Clrscr;
Write('Nhap vao so N nguyen duong: ');
readln(n);

kq := n * (n+1) / 2;

writeln;
write('Tong cac so tu 1 den N la: ',kq : 1 : 2);
readln;
END.

Chắc bạn cũng biết cách tính tổng các số từ 1 đến 100 rồi chứ ( Cái này học hồi lớp 6).
Thuật toán chỉ đơn giản là theo cách tính đó thôi.

Cái tính tổng từ 1 đến 100 thì mik đc học từ lớp 4 rồi cơ
nhưng phần trên bạn viết j thế, mik k hiểu j cả
mình chưa học mấy cái đấy

 

[trà nguyễn hữu nghĩa]

Cái tính tổng từ 1 đến 100 thì mik đc học từ lớp 4 rồi cơ
nhưng phần trên bạn viết j thế, mik k hiểu j cả
mình chưa học mấy cái đấy

Thuật toán

program Tinh_Tong; {tên chương trình khai báo}
uses crt; { thư viện khai báo là crt}

var n : integer; {biến n để khi mình nhập số cần tính tổng thì nó sẽ lưu giá trị cho n}
kq : real;{biến lưu kết quả khi tính tổng xong}

BEGIN
Clrscr;{lệnh này dùng để xóa màn hình k quan trọng lắm mà cho chương trình nó đẹp xíu}

Write('Nhap vao so N nguyen duong: ');{viết ra chương trình là nhập vào số n nguyên dương}

readln(n);{đọc vào số n khi này số n sẽ nhận giá trị mình mới nhập vào}

kq := n * (n+1) / 2; {đây là công thức tính tổng từ 1 đến n và gán giá trị này vào biến kq}

write('Tong cac so tu 1 den N la: ',kq : 1 : 2);{in ra màn hình kết quả mới nhập đc và làm tròn đến chữ số 2 }

{1:2 là cách phía trước 1 đơn vị và làm tròn giá trị đến số 2 hàng thập phân}

readln
END.