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.

27 tháng 9 2021

c + h + a + s + u = cháu

c + h + a + f + o = chào

c + h + u + s = chú

Lưu ý:

Khi đánh trên máy tính,bạn phải biết:

-Khi đánh s là dấu sắc.

-Khi đánh f là dấu huyền.

 

27 tháng 4 2019

A. Sai vì nếu có hai câu lệnh trở lên giữa "while...do" phải có "begin" và "end;".

B. Sai vì S luôn luôn bé hơn 10 (1<10) nên chương trình sẽ ghi S vô hạn ( trừ khi tắt chương trình ).

C.Sai vì n cũng giống lỗi câu B (2<5) nên cũng sẽ lặp vô hạn lần.

Không có câu nào đúng hết.

14 tháng 2 2020

1.A

2.D

3.A

4.B

5. Đề không có câu trả lời đúng : cú phú đúng theo đề bài là:

A<>'Viet Nam'

13 tháng 11 2017

1-A

2-C

3-D

4-C

5-A

Câu 1: Câu lệnh cho phép nhập giá trị của C tại bàn phím a.Write(C) b.Writeln(C) c.Write('Nhap gia tri của C'); d.Readln(C); Câu 2: If..Then..Else là: a. Vòng lặp không xác định b.Vòng lặp xác định c.Một khai báo d. Câu lệnh điều kiện Câu 3: Khi ta khai báo biến x có kiểu là INTEGER thì phép gán nào sâu đây hợp lệ a.x:=a; b.x:='tin_hoc'; c.x:=200; d.x:=1.23; Câu 4: Trong câu lệnh lặp for i:=1 to 12 do...
Đọc tiếp

Câu 1: Câu lệnh cho phép nhập giá trị của C tại bàn phím

a.Write(C)

b.Writeln(C)

c.Write('Nhap gia tri của C');

d.Readln(C);

Câu 2: If..Then..Else là:

a. Vòng lặp không xác định

b.Vòng lặp xác định

c.Một khai báo

d. Câu lệnh điều kiện

Câu 3: Khi ta khai báo biến x có kiểu là INTEGER thì phép gán nào sâu đây hợp lệ

a.x:=a;

b.x:='tin_hoc';

c.x:=200;

d.x:=1.23;

Câu 4: Trong câu lệnh lặp

for i:=1 to 12 do Writeln('A')

Hãy cho biết có bao nhiêu vòng lặp được thực hiện

a.Không lần nào

b.1 lần

c.2 lần

d.12 lần

Câu 5: Cho các cách khai báo biến sau đây, cách khai báo nào là hợp lệ trong turbo pascal

a. var a=integer

b.var a:integer

c.var a:=integer;

d.var :a:integer

Câu 6: Sau khi thực hiện đoạn chương trình sa, giá trị của S là bao nhiêu

S:=0

For i:=1 to 5 do S:=S+i;

a.20

b.15

c.10

d.25

Câu 7: Trong các câu lệnh sau, câu nào hợp lệ

a. for i:=4 to 1 do writeln('Y')

b.for i=1 to 10 do writel('Y')

c. for i:=1 to 10 do writeln('Y');

d. for i to 10 do writeln('Y');

Câu 8: Câu lệnh Write('19 mod 3 =', 19 mod 3); in gì lên màn hình

a. 19 mod 3 =1

b. 19 mod 3 = 19 mod 3

c. 19 mod 3 = 6

d. 19 mod 3 = 0

Câu 9: Điều kiện được biểu diễn bằng

a. Phép so sánh

b. Giá trị

c. Ngôn ngữ

d.Lệnh lặp

Câu 10: Khai triển biểu thức tính toán đa thức em sử dụng lệnh

a. Factor

b.iFactor

c.Simplify

d. Expand

Part 2#

(4/22/2019,12.05: CÒN 1h.30 LÀ MÌNH VÀO THI NÊN MONG THÁNH NHÂN GIÚP)

1
22 tháng 4 2019

1.d

2.d

3.c

4.d

5.b

6.b

7.c

8.a

9.a

10.d

27 tháng 6 2019

1

a/ For i:=1,5 to 10.5 do s:=s+i;

=> For i:=1 to 10 do s:=s+i;

b/ Var X : array [100..1] of integer;

=>Var X : array [100..1] of integer;

c/ X:=1 ; while X:=10 do X:=X+5;

=>X:=1 ; while X=10 do X:=X+5;

d/For i:=1 to n do begin s:=s+i ; i:=i-1;

=>For i:=1 to n do begin s:=s+i ; i:=i-1;end;

2

a) X:ARRAY[1..50]OF INTEGER;

B) A[9]:=5;

C)DIEMTIN:ARRAY[1..100] OF REAL;

D) WRITE('DIEM TIN[5]:');READLN(DIEMTIN[5]);

24. Biến X được khai báo là kiểu dữ liệu số thực, phép gán nào dưới đây là hợp lệ? a. X : 6,2; b.X = 6,2; c.X := 6,2; d.X := ‘6,2’; 25. Biến N được khai báo là kiểu dữ liệu số nguyên, phép gán nào là hợp lệ? a. N = 81; b. N := ‘81’; c. N := 81; d. N : 81; 26. Để nhập giá trị cho biến từ bàn phím ta sử dụng lệnh nào? a. Clrscr b. Write ...
Đọc tiếp

24. Biến X được khai báo là kiểu dữ liệu số thực, phép gán nào dưới đây là hợp lệ?

a. X : 6,2; b.X = 6,2; c.X := 6,2; d.X := ‘6,2’;

25. Biến N được khai báo là kiểu dữ liệu số nguyên, phép gán nào là hợp lệ?

a. N = 81; b. N := ‘81’; c. N := 81; d. N : 81;

26. Để nhập giá trị cho biến từ bàn phím ta sử dụng lệnh nào?

a. Clrscr b. Write c. Read d. Delay

27. Câu lệnh nhập giá trị cho 3 biến a,b,c nào dưới đây là đúng?

a. Read (a,b,c) b. Read (a;b;c) c. Read (a:b:c) d. Cả a,b,c đều sai

28. Để xuất thông báo, dữ liệu, kết quả ra màn hình, em sử dụng lệnh:

a. Delay b. Readln c. Clrscr d. Writeln

29. Lệnh Writeln(‘5+20=’, 20+5); sẽ in ra màn hình biểu thức nào dưới đây?

a. 5+20=25 b. 20+5=25 c. 5+20=20+5 d. 25=20+5

30. Để ngăn cách giữa câu lệnh trong ngôn ngữ lập trình Pascal, ta dùng dấu:

a. Phẩy (,) b.Chấm (.) c. Chấm phẩy (;) d. Hai chấm (:)

31. Để xuất ra màn hình một dòng trống, sử dụng lệnh?

a. Clrscr; b. Writeln; c. Delay(x); d. Readln;

32. Điều kiện trong câu lệnh rẽ nhánh thường là phép toán:

a. Cộng, trừ b. Nhân, chia c. Lũy thừa d.So sánh

33. Câu lệnh Pascal nào sau đây viêt đúng?

a.If x := 5 then a = b; b. If x = 5 then a := b;

c. If x := 5 then a := b; d. If x = 5 then a = b;

34. Nếu điều kiện trong câu lệnh sai, chương trình sẽ thực hiện câu lệnh sau từ nào?

a. if b. then c. else d. Cả a,b,c đều sai

35. Để xóa màn hình, Pascal sử dụng lệnh:

a. Clrscr b. Write c. Readln d. Delay

36. Để tạm dừng chương trình chờ người dùng nhấn phím Enter, ta dùng lệnh:

a. Delay(x); b.Write; c. Wrietln; d.Readln;

37. Để tạm dừng chương trình trong một thời gian nhất định ta sử dụng lệnh?

a. Write; b. Writeln; c.Readln; d. Delay(x);

38. Để dịch chương trình ta nhấn tổ hợp phím:

a.Alt+F5 b.Shift+F9 c. Alt+F9 d. Ctrl+F9

39. Để chạy chương trình sau khi biên dịch ta nhấn tổ hợp phím nào?

a.F9 b. Alt+F9 c. Shift+F9 d. Ctrl+F9

40. Để xem kết quả ta dùng tổ hợp phím:

a. Alt+F5 b.Ctrl+F5 c.Alt+F9 d.Ctrl+F9

mấy bạn giúp mình với, mình cảm ơn(mình biết nó hơi dài)nha.

1
7 tháng 3 2023

24.C (Nhưng bạn nhầm rồi trong pascal dấu ',' được thay thế bằng '.');

25.C

26.C

27.A

28.D

29.A

30.C

31.B

32.D

33.B

34.C

35.A

36.D

37.D

38.C

39.D

40.D

5 tháng 4 2020

cảm mơn bn^-^

Câu 1:

uses crt;

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

i,n,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Day so ban vua nhap la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

max:=a[1];

min:=a[1];

for i:=1 to n do

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('Gia tri lon nhat la: ',max);

writeln('Gia tri nho nhat la: ',min);

readln;

end.

Câu 2:

uses crt;

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

i,n,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Day so ban vua nhap la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

writeln('Cac so le la: ');

for i:=1 to n do

if a[i] mod 2<>0 then write(a[i]:4);

writeln;

writeln('Cac so chan la: ');

for i:=1 to n do

if a[i] mod 2=0 then write(a[i]:4);

readln;

end.

Câu 1: câu lệnh viết đúng cú pháp là a.While<điều kiện> to<câu lệnh>; b.While<điều kiện> do <câu lệnh>; c.While<điều kiện> to<câu lệnh1> do; d.While<điều kiện>; do<câu lệnh>; Câu 2: Hoạt động nào sau đây có thể tính toán được số lần làm việc a.Múc từng gáo nước đầy bể b.Đi lên tầng, đén tầng 10 thì dừng c. Học cho tới khi thuộc bài d. Nhặt từng cọng rau cho đến...
Đọc tiếp

Câu 1: câu lệnh viết đúng cú pháp là

a.While<điều kiện> to<câu lệnh>;

b.While<điều kiện> do <câu lệnh>;

c.While<điều kiện> to<câu lệnh1> do;

d.While<điều kiện>; do<câu lệnh>;

Câu 2: Hoạt động nào sau đây có thể tính toán được số lần làm việc

a.Múc từng gáo nước đầy bể

b.Đi lên tầng, đén tầng 10 thì dừng

c. Học cho tới khi thuộc bài

d. Nhặt từng cọng rau cho đến khi xong

Câu 3: Vòng lặp while... do là vòng lặp

a.Biết trước số vòng lặp

b. Biết trước số vòng lặp nhưng giói hạn là <=100

c.Chưa biết trước số lần lặp

d. Biết trước số lần lặp nhưng giới hạn là >=10

Câu 4: Trong ngôn ngữ pascal, đoạn chương trình sau đưa ra kết quả gì?

Fow i:=1 to 10 do write (i,'');

a. 1 2 3 4 5 6 7 8 9 10

b.10 9 8 7 6 5 4 3 2 1

c. Đưa ra 10 đấu cách

d.Không đưa ra kết quả gì

Câu 5: Phần mềm giúp em học vẽ hình là?

a. Sun times

b.Yenka

c. Finger break out

d.geogebra

Câu 6: Khai báo biến mảng nào đúng

a. Var Y: Array[6..20] of Integer;

b.Var Y; Array[10.5..25.5] of Real;

c.Var Y: Array[10,50] of Integer;

d.Var Y: Array[30..15] of Real;

Câu 7: Để nhập một giá trị vào phần tử a[3] của mảng a thì ta viết là

a. Readln(a)

b.Readln(a[3])

c.Readln(a[i])

d.Readln(a(3))

Câu 8: Đoạn lệnh sau đây sẽ cho kết quả gì?

so := 1;

While so < 10 do writeln(so);

so:=so+1;

a.In ra vô hạn các số 1, mỗi số trên một dòng

b.Không phương án nào đúng

c. In ra các số từ 1 đến 9

d. In ra các số từ 1 đến 10

Câu 9: Để tính tổng S=1/2+1/4+1/6+...+1/n; em chọn đoạn lệnh

a. for i:=1 to n do b.for i:=1 to n do

if (i mod 2)= 0 then S:=S-1/i ; Else S := S+1/i

if (i mod 2) = 0 then S:=S+1/i;

c.for i:= 1 to 10 do d.for i:=2 to n do

if (i mod 2) <>0 then S=S+i; if (i mod 2) <> ) then S:= S=S +i/1

Else S:= S-1/i;

Câu 10: Câu lệnh cho phép nhập giá tị của C từ bàn phím

a. Write(C);

b. Writeln(C);

c.Write('Nhap gia tri cua C');

d.Readln(C);

Part#1

1
20 tháng 4 2019

1.b

2.c

3.c

4.a

5.d

6.a

7.c

8.a

9.a

10.d

13 tháng 5 2019

10.c

Câu 1:

uses crt;
var a:array[1..100]of integer;
i,t,dem:integer;
begin
clrscr;
t:=0;
for i:=1 to 200 do
if i mod 2=1 then t:=t+i;
writeln('Tong cua 100 so le dau tien la: ',t);
readln;
end.

Câu 2:

a) var a:array[1..5]of real;

b) var a:array[1..50]of integer;

c) readln(a[2]);