Câu 1: Viết câu lệnh thiếu và câu lệnh đủ.
Câu 2: Viết output - input và giải thuật toán.
Nguyễn Lê Phước Thịnh Nguyễn Minh Lệ Giúp em với ạ!
Giúp em câu b và câu d ạ!
Em cũng cảm ơn anh NGUYỄN LÊ PHƯỚC THỊNH đã trả lời câu a và câu c
b) Ta có: \(\left(-\dfrac{1}{2}\right)^2\cdot2\dfrac{6}{7}-\dfrac{14}{15}:2\dfrac{1}{3}+\left(-1.21\right)^0\)
\(=\dfrac{1}{4}\cdot\dfrac{20}{7}-\dfrac{14}{15}:\dfrac{7}{3}+1\)
\(=\dfrac{5}{7}-\dfrac{14}{15}\cdot\dfrac{3}{7}+1\)
\(=\dfrac{5}{7}-\dfrac{2}{5}+1\)
\(=\dfrac{25-14-35}{35}=\dfrac{-24}{35}\)
Câu 2:
-Bước 1: s←0; i←1;
-Bước 2: s←s+i;
-Bước 3: i←i+1;
-Bước 4: Nếu i<=100 thì quay lại bước 2
-Bước 5: Xuất s
-Bước 6: Kết thúc
Câu 3:
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>
else <câu lệnh>;
Câu 4:
uses crt;
var m,n:integer;
begin
clrscr;
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
if (m mod 2=0) and (n mod 2=0) then writeln('Ca hai cung la so chan')
else if (m mod 2<>0) and (n mod 2<>0) then writeln('Ca hai cung la so le')
else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so chan')
else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so chan')
else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so le')
else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so le');
readln;
end.
Câu 5:
uses crt;
var a,b,c:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);
if (a=b) and (a<>c) and (b<>c) then writeln('Tam giac can')
else if (b=c) and (a<>b) and (a<>c) then writeln('Tam giac can')
else if (c=a) and (c<>b) and (a<>b) then writeln('Tam giac can')
else if (a=b) and (b=c) then writeln('Tam giac deu')
else writeln('Day khong phai la tam giac deu hay tam giac can');
readln;
end.
Bài toán tính tổng : S=1+1/2+1/3+...+1/100
a.Nêu thuật toán và viết chương trình sử dụng câu lệnh For...to...do
b.Nêu thuật toán và viết chương trình sử dụng câu lệnh While...do
a: uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
for i:=1 to 100 do s:=s+1/i;
writeln(s:4:2);
readln;
end.
b:
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
i:=0;
while i<=100 do
begin
inc(i);
s:=s+1/i;
end;
writeln(s:4:2);
readln;
end.
Câu hỏi: Em hãy viết cú pháp câu lệnh điều kiện dạng đủ và nêu cách hoạt động của câu lệnh? Cho ví dụ.
P/S: bạn nào biết trả lời giúp mình với, đang cần gấp lắm ạ!
Cú pháp
If < điều kiện> then < câu lệnh>;
Cách hoạt động: nếu điều kiện đúng thì sẽ thực hiện câu lệnh còn nếu điều kiện sai thì sẽ không thực hiện được và sẽ dừng chương tình
Viết cú pháp câu lệnh điều kiện dạng thiếu và dạng đủ cho mỗi ví dụ với các câu lệnh trên(khác SGK)
câu 1 viết các cấu trúc sơ đồ của câu lệnh lặp và các hoạt động của câu lệnh lặp (Giúp với ạ 💦)
*Cú pháp: While <điều kiện> do <câu lệnh>;
Hoạt động :Câu lệnh lặp thực hiện lặp lại vài hoạt động nào đó cho đến khi một điều kiện nào đó được thỏa mãn
Sơ đồ cụ thể bạn có thể thamkhao thêm
Câu 5. Hãy xác định Input, Output và viết thuật toán cho bài toán sau: Cho dãy A gồm N số nguyên từ A1, A2,…, AN . Hãy cho biết có bao nhiêu số chia hết cho 3 có trong dãy A. giúp mình vs ạ:(