1) Nêu cú pháp và cách hoạt động của câu lệnh điều kiện 2) Viết ct tính S=1+1/2+1/3+…+1/100

0 bình luận về “1) Nêu cú pháp và cách hoạt động của câu lệnh điều kiện 2) Viết ct tính S=1+1/2+1/3+…+1/100”

1. 1/ câu lệnh điều kiện

   Dạng thiếu: $\text{If (điều kiện) then (công việc)}$

   Cách hoạt động: Kiểm tra điều kiện,nếu dùng thì thực hiện công việc ,nếu sai thì thoát ra ,không thực hiện công việc

   Dạng đủ

   $\text{If (điều kiện) then (công việc1) else (công việc2)}$

   Cách hoạt động: Kiểm tra điều kiện,nếu dùng thì thực hiện công việc 1  ,nếu sai thì thực hiện công việc 2

   2/

   Program Hotboy;

   Uses crt;

   Var S,i: real;

   Begin

   Clrscr;

   S:=0;

   For i:=1 to 100 do

   S:=S+1/i;

   Inc(i);

   Writeln(‘S can tim la’,S:3:6);

   Readln

   End.

   Bình luận

2. 1)

   Cú pháp:

      – Dạng thiếu: if <điều kiện> then <câu lệnh>;

      – Dạng đủ: if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

   Hoạt động:

      – Dạng thiếu: 

          + Kiểm tra điều kiện

          + Nếu điều kiện được thỏa mãn, ct sẽ thực hiện câu lệnh sau từ khóa then

          + Ngược lại, câu lệnh đó bị bỏ qua

      – Dạng đủ:

          + Kiểm tra điều kiện

          + Nếu điều kiện được thỏa mãn, ct sẽ thực hiện câu lệnh 1 sau từ khóa then

          + Ngược lại, câu lệnh 2 sẽ được thực hiện

   2)

   program ct;

   uses crt;

   var i:integer;

         S:real;

   begin clrscr;

        S:=0;

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

      write(‘Tong S la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận