Tin học Viết phương trình pascal

[kienduc_vatli]

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

hãy viết chương trình pascal
đề đúng như cô cho 100%
1. tính tỏng s=1+2+4+6+..+2n
2. tình tổng s=1+3+5+...+n
3. tính tổng [TEX]1 +\frac{1}{3}+\frac{1}{5}+...+ \frac{1}{2n}[/TEX]
4. tính tổng [TEX]1 +\frac{1}{2}+\frac{1}{4}+...+ \frac{1}{2n}[/TEX]

 

[lamdetien36]

Trước tiên cho tui hỏi lại cái đề.
Bạn xem lại coi đề có phải như thế này không:
1)
$S = 2 + 4 + 6 + ... + 2n$
2)
$S = 1 + 3 + 5 + ... + (2n + 1)$
3)
$S = 1 + \dfrac{1}{3} + \dfrac{1}{5} + ... + \dfrac{1}{2n + 1}$
4)
$S = \dfrac{1}{2} + \dfrac{1}{4} + .. + \dfrac{1}{2n}$
Chứ đề cũ tui thấy hình như nó bị sai

 

[quocthinh_psi]

3. tính tổng [TEX]1 +\frac{1}{3}+\frac{1}{5}+...+ \frac{1}{2n}[/TEX]

Số hạng tổng quát ở đây bạn gõ nhầm rồi, đề đúng phải như lamdetien36 nêu ra.
Bạn lamdetien36 giúp kienduc giải những bài này nhé (hoặc là gợi ý về giải thuật và cách sử dụng vòng lặp cho bạn ấy)

 

[lamdetien36]

Tui giải theo cái đề tui sửa lại nhé
Bài 1:

var
    N, i: integer;
    S: longint;
begin
    write('Nhap N: '); readln(N);
    
    S := 0;
    for i := 1 to N do S := S + 2 * i;
    
    write('S = ', S);
    readln
end.

Bài 2:

var
    N, i: integer;
    S: longint;
begin
    write('Nhap N: '); readln(N);
    
    S := 0;
    for i := 0 to N do S := S + 2 * i + 1;
    
    write('S = ', S);
    readln
end.

Bài 3:

var
    N, i: integer;
    S: real;
begin
    write('Nhap N: '); readln(N);
    
    S := 0;
    for i := 0 to N do S := S + 1 / (2 * i + 1);
    
    write('S = ', S : 0 : 10);
    readln
end.

Bài 4:

var
    N, i: integer;
    S: real;
begin
    write('Nhap N: '); readln(N);
    
    S := 0;
    for i := 1 to N do S := S + 1 / (2 * i);
    
    write('S = ', S : 0 : 10);
    readln
end.

 

[lamdetien36]

hãy viết chương trình pascal
đề đúng như cô cho 100%
1. tính tỏng s=1+2+4+6+..+2n
2. tình tổng s=1+3+5+...+n
3. tính tổng [TEX]1 +\frac{1}{3}+\frac{1}{5}+...+ \frac{1}{2n}[/TEX]
4. tính tổng [TEX]1 +\frac{1}{2}+\frac{1}{4}+...+ \frac{1}{2n}[/TEX]

Câu 1, 4 có thể đúng nhưng câu 2, 3 chắc chắn sai
Câu 2: n chưa chắc là số lẻ ==> không thể tính.
Câu 3: 2n chẵn, trong khi 1, 3, 5 ... đều lẻ ==> không thể tính.

Sửa lại Câu 1, 4:
Câu 1:

var
    N, i: integer;
    S: longint;
begin
    write('Nhap N: '); readln(N);
    
    S := 1;
    for i := 1 to N do S := S + 2 * i;
    
    write('S = ', S);
    readln
end.

Câu 4:

var
    N, i: integer;
    S: real;
begin
    write('Nhap N: '); readln(N);
    
    S := 1;
    for i := 1 to N do S := S + 1 / (2 * i);
    
    write('S = ', S : 0 : 10);
    readln
end.