ai giúp mình làm đề cương câu này với mai mình thi rồi ạ Các phép toán nào sau đây sử dụng trong ngôn ngữ lập trình Pascal?+, -, *, /, div, moddiv, mod+, -, *, / và <, >, >=, <=, < >, = <, >, >=, <=, < >, =9.Các phép so sánh nào sau đây sử dụng trong ngôn ngữ lập trình Pascal?+, -, *,/and, or, <, >, >=, <=, < >, =and, or<, >, >=, <=, < >, =10.Kết quả của các phép chia hai số nguyên 14 và 5 là:14/5=2; 14 div 5=2; 14 mod 5=4;14/5=2.8; 14 div 5=4; 14 mod 5=214/5=2.8;...
Đọc tiếp
ai giúp mình làm đề cương câu này với mai mình thi rồi ạ
Các phép toán nào sau đây sử dụng trong ngôn ngữ lập trình Pascal?
+, -, *, /, div, mod
div, mod
+, -, *, / và <, >, >=, <=, < >, =
<, >, >=, <=, < >, =
9.Các phép so sánh nào sau đây sử dụng trong ngôn ngữ lập trình Pascal?
+, -, *,/
and, or, <, >, >=, <=, < >, =
and, or
<, >, >=, <=, < >, =
10.Kết quả của các phép chia hai số nguyên 14 và 5 là:
14/5=2; 14 div 5=2; 14 mod 5=4;
14/5=2.8; 14 div 5=4; 14 mod 5=2
14/5=2.8; 14 div 5=2; 14 mod 5=4;
14/5=3; 14 div 5=2; 14 mod 5=4
11.Trong Pascal, điều kiện để a, b, c là 3 cạnh của một tam giác đều là:
a = b = c
(a = b) and (b = c)
(a = b) or (b = c)
a = b, b = c
12.Kiểu dữ liệu số nguyên là:
byte, integer
byte, word, integer, longint
char, string
real
13.Cho a=1, b=2, c=3, khẳng định nào sau đây là đúng?
a, b, c là 3 cạnh của một tam giác vì thỏa mãn điều kiện giá trị 2 cạnh cộng lại lớn hơn cạnh thứ 3
a, b, c là 3 cạnh của một tam giác vì thỏa mãn điều kiện giá trị 2 cạnh cộng lại lớn hơn cạnh thứ 3 và tam giác đó có 1 góc vuông vì thỏa mãn c2=a2 + b2 (theo định lí Pytago)
a, b, c không là 3 cạnh của một tam giác
14.Cú pháp khai báo biến là:
var <danh sách tên biến> : <giá trị>;
var <danh sách tên biến> : <kiểu dữ liệu>;
var <danh sách tên biến> := <kiểu dữ liệu>;
var <danh sách tên biến> = <giá trị>;
15.Cú pháp khai báo hằng là:
var <tên hằng> = <giá trị>;
const <tên hằng> : <giá trị>;
var <danh sách tên hằng> = <giá trị>;
const <tên hằng> = <giá trị>;
16.Cú pháp câu lệnh gán giá trị cho biến là:
<tên biến> = <giá trị>;
<tên biến> : <giá trị>;
<tên biến> := <giá trị>;
<tên biến> := <giá trị>
hacker cũng phải hỏi ư :((
Lâu rồi ko lên hoc24, vừa lên thấy bài hay ngay mới hay chứ
Thuật toán:
t=1 thì ko nói rồi do dễ quá
Khi t=2 thì ta có 2 biến dem0 và dem1 để giữ số các số 0 và 1
Nếu dem1<vt cần tìm thì số đó ko thể là số 1=>writeln(0)
Ngược lại thì số đó là 1=>writeln(1)
Code:
Program kth;
uses crt;
var n,i,t,x,q,dem1,dem0:integer;
a:array[1..100000] of Byte;
f1,f2:text;
Begin
clrscr;
assign(f1,'kth.inp'); reset(f1);
assign(f2,'kth.out'); rewrite(f2);
read(f1,n,q);
for i:=1 to n do
begin
read(f1,a[i]);
dem1:=dem1+ord(a[i]=1);
dem0:=dem0+ord(a[i]=0);
end;
for i:=1 to q do
begin
read(f1,t,x);
case t of
1:begin
if a[x]=1 then
begin
dec(dem1); inc(dem0);
end
else
begin
inc(dem1); dec(dem0);
end;
a[x]:=1-a[x];
end;
2:writeln(f2,1*ord(dem1>=x)+0*ord(dem1<x));
end;
end;
Close(f1);
close(f2);
End.
*Note:ord(bool) giống như khi làm trong C++,tức:
-Khi bool=true thì ra 1
-Khi bool=false thì ra 0