K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

11 tháng 11 2021

a nha

 

11 tháng 11 2021

Đúng

Phần I: Phần trắc nghiệm Câu 1: Điền vào dấu (…): Mảng một chiều là một dãy hữu hạn các phần tử có cùng (…)A. Thông tin                    B. Dữ liệu                        C. Kiểu                            D. Giá trịCâu 2: Cấu trúc lặp thường có mấy dạng?A. 3                                  B. 4                                  C. 2                                  D. 1Câu 3: Để tính S=1+22+32+…+n2 cho đến khi S>1000 em sẽ sử dụng...
Đọc tiếp

Phần I: Phần trắc nghiệm

Câu 1: Điền vào dấu (…): Mảng một chiều là một dãy hữu hạn các phần tử có cùng (…)

A. Thông tin                    B. Dữ liệu                        C. Kiểu                            D. Giá trị

Câu 2: Cấu trúc lặp thường có mấy dạng?

A. 3                                  B. 4                                  C. 2                                  D. 1

Câu 3: Để tính S=1+22+32+…+n2 cho đến khi S>1000 em sẽ sử dụng lệnh lặp nào?

A. While – do                  B. If – Then                     C. For – do                      D. Cả ba đều đúng.

Câu 4: Khai báo sau đây thì mảng có tối đa bao nhiêu phần tử?            Var a:array [0..10] of byte;

A. 8                                  B. 9                                  C. 11                                D. 10

Câu 5: Để lưu trữ dãy số thực A1, A2, … A50 thì khai báo nào sau đây là đúng?

A. Var A:=array[1..50] of real;                                B. Var A:array[1..50] of word;

C. Var A:array[1..30] of extended;                         D. Var A:array[1..50] of Real;

Câu 6: Cho đoạn lệnh: S:= 0; For i:=1 to 10 do S:=S+i; kết quả S sau khi thực hiện là bao nhiêu?

A. 10                                B. 55                                C. 1                                  D. 50

Câu 7: Trong câu lệnh while: While <điều kiện> do <câu lệnh>; khi nào kết thúc lặp?

A. Điều kiện đúng           B. Điều kiện sai               C. Cả A và B đúng          D. Cả A và B sai.

Câu 8: Cho lệnh lặp: While (abs(x) >= 5) do write(x); lệnh write(x) được lặp lại bao nhiêu lần?

A. Lặp vô hạn                  B. 5 lần                            C. 6 lần.                           D. Chưa biết

Câu 9: Lệnh lặp nào sau đây là đúng.

A. For i:=1 two 10 do S:=S+i;                                 B. For i:=1 to 10 do S:=S+i;

C. For i=1 to 10 do S:=S+i;                                     D. For i:=1 to -10 do S:=S+i;

Câu 10: Có Var A:Array[1..100] of byte; Để tham chiếu đến phần tử 5 của mảng, ta viết thế nào?

A. A<5>                          B. A(5)                            C. A{5}                           D. A[5]

Câu 11: Cho dãy số gồm 4 số thực, 5 số nguyên. Em có thể khai báo một mảng một chiều gồm 9 phần tử kiểu nguyên để lưu trữ dãy số hay không?

A. Có                               B. Đáp án khác.               C. Vừa có vừa không      D. Không

Câu 12: S:=0; For i:=1 to N do if T[i] mod 2 = 0 then S:=S+T[i]; Đoạn lệnh trên thực hiện công việc  gì?

A. Tìm tổng giá trị các phần tử của mảng T           B.  Tìm tổng giá trị các số chẵn trong mảng T

C. Tìm tổng giá trị các số lẻ trong mảng T             D. Cả A, B, C đều đúng.

Câu 13: Khi chạy chương trình :

          Var A:array[1..10] of integer;

                 i, S : integer;

          Begin         A[1]:= 3;         A[2]:= -1;         A[3]:= -4;

                                S:= 0;

                            For i:=1 to 3 do  If  A[i] > 0 then S:=S+A[i];

                            Write(S);

         End.

     Kết quả in ra giá trị của S là:

     A. 2                        B. 3                              C. 4                             D. -5

Câu 14: Hãy cho biết kết quả đưa ra màn hình của chương trình sau:

Var x, i: byte;

BEGIN   X:=0; i:=0; While i<17 do  begin x:= x+i; i:=i+2; end;  writeln(‘x=  ’, x); END.

A. x= 72                          B. x= 90                           C. x=  91                         D. 56

Câu 15: Cho khai báo     Var A: array[1..10] of integer; Để nhập giá trị cho phần tử thứ 3 của mảng thực hiện câu lệnh nào?

A.Read(A<3>);     B. Writeln(A[3]);            C. Write(‘A[3]’);                 D. Readln(A[3]);

Câu 16: Các khai báo sau, khai báo nào là đúng?

A. Var A:array[1....n] of  byte;                                   B. Var A = array[1..10] of  real;

C. Var A:array[-10. .10] of  boolean;                         D. Var A : array[‘a’..’z’] of  read;

Câu 17:  Cho khai báo Var S:Array[1..5] of byte; S có thể lưu trữ dãy số nào sau đây.

A. 300 3 5 4 5                  B. 1 3 6                            C. 1 -2 3 2                       D. 1 5 3 2 4 3

Câu 18:  Cho khai báo sau: Var A, B : array[1..20] of  integer;  Giả sử  giá trị A[i] và B[i] (i nhận giá trị từ 1 đến 20) đã được xác định. Xét đoạn chương trình:

d:=0;  for i:=1 to 20 do   If A[i] <> B[i] then d:=d+1; writeln(d);

Đoạn chương trình trên thực hiện công việc gì?

A.  Đếm số phần tử của A khác các phần tử của B                B.  Đếm số phần tử khác nhau của A và B

C.  Đếm số cặp phần tử tương ứng khác nhau của A và B    D. Tất cả đều sai

Câu 19:           Cho khai báo a : array[0..16] of integer ;

Câu lệnh nào dưới đây sẽ in ra tất cả các phần tử của mảng trên ?

 

A.      for k := 1 to 16 do write(a[k]);                 B. for k := 16 downto 0 do write(a[k]);

 

B.       for k:= 0 to 15 do write(a[k]);                  D. for k := 16 down to 0 write(a[k]);

Câu 20:           Var a : array[0..50] of real ;

 

k := 0 ;  for i := 1 to 50 do    if a[i] > a[k] then k := i ;          

Đoạn chương trình trên thực hiện công việc gì dưới đây ?

 

A.Tìm phần tử nhỏ nhất trong mảng;                         B. Tìm phần tử lớn nhất trong mảng;

 

C.Tìm chỉ số của phần tử lớn nhất trong mảng;         D. Tìm chỉ số của phần tử nhỏ nhất trong mảng;

Câu 21: Var m : array[0..10] of integer ;

Phương án nào dưới đây chỉ phần tử thứ 10 của mảng ?

 

A.  m[10]                                 B.  m(10)                     C.  m(9)                       D.  m[9]

1

Câu 1: B

Câu 2: C

Câu 3: D

Câu 4: C

Câu 21: D

14 tháng 6 2021

program xau_so_hoc;
uses crt;
procedure xu_li;
var s, x, xau : string; i, tinh, j, f1, f2 : integer;
begin
write('nhap xau: '); readln(xau);
 i:=1;
 repeat
        x:=''; s:='';
        while (xau[i] in ['0'..'9']) and (i<=length(xau)) do
        begin
        x:=x+xau[i];
           inc(i); {tim dau '+' hoac tru '-'/tim so truoc dau do}
        end;
                for j:=i+1 to length(xau) do
                if xau[j] in ['0'..'9'] then s:=s+xau[j] else
                                                         break;
       val(x,f1); val(s,f2); {chuyen doi xau thanh so};
        if xau[i]='-' then
                        tinh:=tinh +(f1-f2) else
                        if xau[i] = '+' then
                                                tinh:=tinh + (f1+f2);
       {tinh toan voi xau va dau da tim duoc}
       i:=j;
 until i>=length(xau);
        write('xau da tinh toan: ', tinh);
end;
{chuong trinh chinh}
        begin
                clrscr;
                xu_li;
        end.

 

14 tháng 6 2021

có một số chỗ mình chú thích hơi sai

đại khái ý tưởng của mình là như này nè:

đầu tiên mình tìm dấu - hoặc + và tìm số đầu tiên trước dấu cộng hoặc trừ (vòng while đầu tiên), rồi tìm số sau dấu đó (vòng for sau đó).

rồi chuyển thành xâu, nếu - thì cộng biến với hiệu 2 số, nếu + thì mình cộng với hiệu hai số 

lưu ý: vòng while chỉ dùng cho lần lập đầu tiên thôi, để tránh sai số những vòng repeat tiếp theo thì dùng vòng for để tìm số tiếp theo dấu vừa tìm được (số sau dấu vừa tìm được đã tìm ở vòng for lần lặp trước);

ví dụ để dễ mường tượng nè

1+1 

i sẽ bằng 1 để tránh trường s[0] sẽ bị exit code

vòng repeat 1:

tìm được vị trí dấu + và số trước dấu + (vòng while);

tìm được số 1 (vòng for);

vòng for: sẽ được chạy từ giá trị của biến i+1 (do i đang ở vị trí của dấu vừa tìm được, không phải số nên nếu chạy từ i lúc cộng dồn sẽ là +1 chứ không phải là 1);

+ nếu như s[j] mà không phải số thì mình dừng vòng for lại (break)

đổi 2 số '1' thành kiểu số

biến 'tính' =0 

tính:=tính + (1+1) ( vì đây là dấu +); => tính=2;

biến i sẽ bằng giá trị cuối của biến j nhận được 

tức là bằng 3

mà 3 = độ dài của xâu nên vòng repeat dừng lại

vòng lặp của repeat chỉ có  1 vòng

Câu 1: Điền vào dấu (…): Mảng một chiều là một dãy hữu hạn các phần tử có cùng (…)A. Thông tin                    B. Dữ liệu                        C. Kiểu                            D. Giá trịCâu 2: Cấu trúc lặp thường có mấy dạng?A. 3                                  B. 4                                  C. 2                                  D. 1Câu 3: Để tính S=1+22+32+…+n2 cho đến khi S>1000 em sẽ sử dụng lệnh lặp nào?A. While –...
Đọc tiếp

Câu 1: Điền vào dấu (…): Mảng một chiều là một dãy hữu hạn các phần tử có cùng (…)

A. Thông tin                    B. Dữ liệu                        C. Kiểu                            D. Giá trị

Câu 2: Cấu trúc lặp thường có mấy dạng?

A. 3                                  B. 4                                  C. 2                                  D. 1

Câu 3: Để tính S=1+22+32+…+n2 cho đến khi S>1000 em sẽ sử dụng lệnh lặp nào?

A. While – do                  B. If – Then                     C. For – do                      D. Cả ba đều đúng.

Câu 4: Khai báo sau đây thì mảng có tối đa bao nhiêu phần tử?            Var a:array [0..10] of byte;

A. 8                                  B. 9                                  C. 11                                D. 10

Câu 5: Để lưu trữ dãy số thực A1, A2, … A50 thì khai báo nào sau đây là đúng?

A. Var A:=array[1..50] of real;                                B. Var A:array[1..50] of word;

C. Var A:array[1..30] of extended;                         D. Var A:array[1..50] of Real;

Câu 6: Cho đoạn lệnh: S:= 0; For i:=1 to 10 do S:=S+i; kết quả S sau khi thực hiện là bao nhiêu?

A. 10                                B. 55                                C. 1                                  D. 50

Câu 7: Trong câu lệnh while: While <điều kiện> do <câu lệnh>; khi nào kết thúc lặp?

A. Điều kiện đúng           B. Điều kiện sai               C. Cả A và B đúng          D. Cả A và B sai.

Câu 8: Cho lệnh lặp: While (abs(x) >= 5) do write(x); lệnh write(x) được lặp lại bao nhiêu lần?

A. Lặp vô hạn                  B. 5 lần                            C. 6 lần.                           D. Chưa biết

Câu 9: Lệnh lặp nào sau đây là đúng.

A. For i:=1 two 10 do S:=S+i;                                 B. For i:=1 to 10 do S:=S+i;

C. For i=1 to 10 do S:=S+i;                                     D. For i:=1 to -10 do S:=S+i;

Câu 10: Có Var A:Array[1..100] of byte; Để tham chiếu đến phần tử 5 của mảng, ta viết thế nào?

A. A<5>                          B. A(5)                            C. A{5}                           D. A[5]

1

Câu 1: C

Câu 2: C

Câu 3: D

Câu 4: C

Câu 5: D

Câu 6: B
Câu 7: B

Câu 9: B

Câu 10: D

B1: nếu đổi tất cả là dấu cộng ,ta có:

\(10+9+8+7+6+5+4+3+2+1=55\) (số lẻ)

B2: thay 1 số dấu \(+\) bằng 1 dấu \(-\)

khi thay dấu \(+\) trong \(a+b\) bằng dấu \(-\) ta được: \(a-b\).giá trị của biểu thức giảm đi: \(\left(a+b\right)-\left(a-b\right)=2b\)(số chẵn)

Do đó sau mỗi lần thay 1 dấu\(+\)bằng 1 dấu\(-\)thì kết quả giảm di 1 số chẵn nên kết quả luôn là số lẻ

Vậy không thể có cách nào để kết quả chia hết cho 2

Bài 7. Trên bảng viết 100 dấu cộng và 101 dấu trừ. Với 200 lần thực hiện, mỗi lần xoá đi 2 dấubất kì rồi lại thêm vào một dấu (cộng hoặc trừ) để cuối cùng trên bảng chỉ còn lại 1 dấu duynhất. Biết rằng dấu được thêm vào sẽ là dấu trừ nếu trước đó đã xoá đi 2 dấu khác nhau,ngược lại dấu được thêm vào sẽ là dấu cộng. Hỏi dấu còn lại trên bảng là dấu gì?Bài 8....
Đọc tiếp

Bài 7. Trên bảng viết 100 dấu cộng và 101 dấu trừ. Với 200 lần thực hiện, mỗi lần xoá đi 2 dấu
bất kì rồi lại thêm vào một dấu (cộng hoặc trừ) để cuối cùng trên bảng chỉ còn lại 1 dấu duy
nhất. Biết rằng dấu được thêm vào sẽ là dấu trừ nếu trước đó đã xoá đi 2 dấu khác nhau,
ngược lại dấu được thêm vào sẽ là dấu cộng. Hỏi dấu còn lại trên bảng là dấu gì?
Bài 8. Trên bảng có các số 1, 2, 3, . . . , 99. Mỗi một lần thực hiện, cho phép xoá đi hai số bất
kỳ trên bảng và viết thêm lên bảng một số bằng hiệu của hai số xóa đi. Hỏi số cuối cùng là số
chẵn hay lẻ?
Bài 9. Trên bảng có các số 1; 2; 3; ...; 10. Mỗi một lần thực hiện, cho phép xoá đi hai số bất kỳ
trên bảng và thay bằng hiệu giữa tổng hai số đó và tích của chúng. Hỏi sau 9 lần thực hiện
phép xoá, thì số còn lại trên bảng là số nào?

Bài 18: Cho tam giác ABC có diện tích bằng 72cm2

. Trên cạnh AB lấy điểm M sao cho AM = 1⁄4
AB. Trên cạnh BC lấy điểm N sao cho BN = 1⁄2 NC. Trên phần kéo dài của cạnh AC về phía C lấy
điểm P sao cho CP = 1⁄2 AC. Tính diện tích MNP.

0
26 tháng 7 2016

Bạn ghép bốn số 9 thành hai số 99 sau đó bạn sẽ có phép tính 99 chia 99 cộng 9

29 tháng 9 2018

Dấu trừ

29 tháng 9 2018

Ai giúp tớ với

19 tháng 6 2017

 Gọi phép xóa thêm 1 dấu (+) khi xóa 2 dấu (-) là phép xóa A. 
Gọi phép xóa thêm 1 dấu (+) khi xóa 2 dấu (+) là phép xóa B. 
Gọi phép xóa thêm 1 dấu (-) khi xóa 2 dấu khác nhau là phép xóa C . 

=>Nhận xét : A làm tăng 1 (+) và giảm 2(-) .B làm giảm 1(+) .C làm giảm 1(+). 

_Gọi số phép xóa A,B,C lần lượt là : x,y,z ,ta có : 

x + y + z = 24 , 2.x nhỏ hơn hoặc bằng 15 , y + z - x nhỏ hơn hoặc bằng 10 . 

=>(x + y + z ) - (y + z - x ) lớn hơn hoặc bằng 14 => 2.x lớn hơn hoặc bằng 14 .Vậy x = 7. 
=> y + z = 17. 

=> số lượng dấu (+) còn lại là : 10 - (y + z - x ) = 0 . 
=> số lượng dấu (-) còn lại là : 15 - 2.x = 1 . 

Vậy sau 24 phép xóa còn lại dấu (-). 

19 tháng 6 2017

Tích của 10 dấu cộng và 15 dấu trừ là âm 
_Tích của hai dấu cùng âm hoặc cùng dương là dương nên thay hai dấu cùng âm (cùng dương) bằng dấu cộng thì tích các dấu trên bảng không thay đổi.(ở đây chỉ giá trị âm hay dương) 
_Ngược lại, tích của hai dấu đối nhau là âm nên thay dấu trừ cho hai dấu đối chau thì lẽ dĩ nhiên, tích cũng không thay đổi. 
_Có nghĩa là với mọi trường hợp xóa hai dấu và thay vào một dấu khác thì tích các dấu trên bảng cũng không thay đổi. Mặt khác, mỗi lần xóa và thay dấu mới, số lượng dấu trên bảng giảm đi một. Vậy sau 24 lần thực hiện như vậy, trên bảng chỉ còn lại một dấu duy nhất, dấu này có giá trị âm, vậy sẽ là dấu trừ. 
Mình giải chính xác đi wá chớ>_<