Question

Câu một: viết câu lệnh điều kiện thiếu và điều kiện đủ trong pascal
Câu hai:ghi phần output,input và mô tả thuật toán của bài toán tính tổng số chẵn là n số tự nhiên đầu tiên
Câu 3: viết chương trình pascal tính tổng số điểm xong đó in lên màn hình kết quả đậu hay rớt

Cần gắp sắp thi rồi ạ

Answer 1

Câu 1

+ Dạng thiếu:

If <điều kiện> then <câu lệnh>;

vd: if (x mod 2)=0 then writeln(x,' la so chan');

+ Dạng đầy đủ:

If <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

vd: if (x mod 2) =0 then writeln(x,' la so chan')
else writeln(x,' la so le');

Answer 2

Câu 1:

-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>;

câu 2:

*Xác định bài toán

-input: dãy n số tự nhiên đầu tiên

-output: tổng các số chẵn trong dãy n số tự nhiên đầu tiên

*Mô tả thuật toán

-Bước 1: nhập n

-Bước 2: i:=0; t:=0;

-Bước 3: nếu i mod 2=0 thì t:=t+i;

-Bước 4: i:=i+1;

-Bước 5: Nếu i<=n thì quay lại bước 3

-Bước 6: Xuất t;

-Bước 7: Kết thúc

Câu 3:

uses crt;

var diem:array[1..100]of integer;

t,i,n:integer;

tbc:real;

begin

clrscr;

write('nhap so luong mon hoc:'); readln(n);

for i:=1 to n do

begin

write('so diem mon thu ',i,' la: '); readln(diem[i]);

end;

{--------------------------xu-ly-------------------------}

t:=0;

for i:=1 to n do

t:=t+diem[i];

tbc:=t/n;

if tbc>=5 then writeln('dau')

else writeln('rot');

readln;

end.