Tính tổng s=1+2+3 100 pascal

Đây là một dạng toán thường hay gặp, bạn sẽ gặp 2 dang dưới đây trong các bài liên quan đến vòng lặp trong pascal. Sau này khi học thêm các hàm hay lệnh khác thì dãy số yêu cầu tính sẽ theo một quy tắc khó hơn.

Tính tổng của n 1+2+3+..+n số, n nhập từ bàn phím

1

2

3

4

5

6

7

8

9

10

11

12

Program viet_chuong_trinh_tong;

uses crt;

var n,i,s:integer;

Begin

Program0Program1

Program0Program3Program4Program5Program6

Program0Program8

Program0viet_chuong_trinh_tong;0viet_chuong_trinh_tong;1;viet_chuong_trinh_tong;3

Program0viet_chuong_trinh_tong;5 viet_chuong_trinh_tong;6viet_chuong_trinh_tong;7 viet_chuong_trinh_tong;8 viet_chuong_trinh_tong;9uses0 uses1uses2

Program0uses4Program4uses6uses7

uses8

uses9crt;0

Tính tổng của n 1+3+5+..+n số, n nhập từ bàn phím

Program viet_chuong_trinh_tong;
uses crt;
var n,i,s:integer;
Begin
  Clrscr;
  write('nhap so :');
  readln(n);
  i:=1;
  S:=0; {tong ban dau = 0}
  While i<=n Do
    begin
      S:=S+i; {cong don cho toi n}
      i:=i+2;
    end;
  Write('Tong cua 1+3+5+=',S);
readln;
End.

Ngoài ra các bạn cũng nên tập viết thử bằng vòng lặp Repeat … Until, lặp cho đến khi… việt viết bằng nhiều vòng lặp sẽ giúp các bạn nhanh chóng làm quen với pascal và phân biệt được cách thức sử dụng vòng lặp.

Answers ( )

1. chauhoangmy

   -1

   2021-07-20T22:35:32+00:00

   1. (while..do)

   program phuongt;
   uses crt;
      var i, s, n: integer;
   begin
               clrscr;
               write(‘Nhap n = ‘); readln(n);
               s:=0; i:=1;
               while i<=n do
               begin
                          s:=s+i;
                          i:=i+1;
               end;
               write(‘Tong s = ‘, s);
               readln
   end.

   2. (For…do)

   program phuongt;
   uses crt;
      var i, s, n: integer;
   begin
               clrscr;
               write(‘Nhap n = ‘); readln(n);
               s:=0; 
               for i:=1 to n do s:=s+i;
               write(‘Tong s = ‘, s);
               readln
   end.

3. maianhnhi

   0

   2021-07-20T22:36:01+00:00

   While…do

   program bai1;
   uses crt;
   var n,S,i:integer;
   begin
   clrscr;
               write(‘ n = ‘); readln(n);
               S:=0; i:=1;
    while i<=n do
               begin
                          S:=S+i;
                          i:=i+1;
               end;
   write(‘Tong la:  ‘, S);
   readln;
   end.

   For…do

   program bai 2;
   uses crt;
   var n,S,i:integer;
   begin
   clrscr;
   write(‘ n = ‘); readln(n) ;S:=0;

   for i:=1 to n do S:=S+i;
   write(‘Tong la:  ‘, S);
   readln;
   end.

Answers ( )

1. aikhanh

   0

   2021-08-18T22:39:47+00:00

   Program tinh_tong;

   Uses crt;

   Var S,i: integer;

   Begin

   clrscr;

   S:=0;

   for i:=1 to 100 do S:=S+i;

   Writeln(‘ Tong la: ‘,S);

   readln

   End.

3. tuminh2

   0

   2021-08-18T22:40:21+00:00

   uses crt;

   var t,i:integer;

   begin

   clrscr;

   for i:=1 to 100 do

   t:=t+i;

   write(‘T= ‘,t);

   readln;

   end.