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.

18 tháng 10 2021

1.C
2.B
3.D

18 tháng 10 2016

câu 1:

var x:string

     y:integer

Câu 2:

var a,b:integer

begin

write('hay nhap gia tri cua a')

read(a)

wrietln('hãy nhập giá trị b')

read(b)

t:=a+b

writeln('tông cua a va b la',t)

 

18 tháng 10 2016

? đây là toán mà

1 tháng 12 2020

Lệnh 1: 8

Lệnh 2: FALSE

Lệnh 3: 3

Lệnh 4: ______3.00

Lệnh 5: ______3.33

Lệnh 6: TRUE

Lệnh 7: TRUE

Lệnh 8: TRUE

1.Câu lệnh Write('5'+'6') cho kết quả gì? 2.Khai báo Var a: integer; b: Char; có ý nghĩa gì? 3.Khai báo Var a: integer; b: String; có ý nghĩa gì? 4.Sau khi thực hiện đoạn lệnh Begin c:=a; a:=b; b:=c; End.Cho biết kết quả. 5.Giả sử a và b là 2 biến số.Hãy cho biết kết quả của việc thực hiện chương trình: a:=a+b; b:=a-b; a:=a-b; 6.Sau khi thực hiện đoạn lệnh: Begin a:=a+b; b:=a-b; a:=a-b; End.Cho biết kết quả 7.Kết quả của...
Đọc tiếp
1.Câu lệnh Write('5'+'6') cho kết quả gì?
2.Khai báo Var a: integer; b: Char; có ý nghĩa gì?
3.Khai báo Var a: integer; b: String; có ý nghĩa gì?
4.Sau khi thực hiện đoạn lệnh Begin c:=a; a:=b; b:=c; End.Cho biết kết quả.
5.Giả sử a và b là 2 biến số.Hãy cho biết kết quả của việc thực hiện chương trình: a:=a+b; b:=a-b; a:=a-b;
6.Sau khi thực hiện đoạn lệnh: Begin a:=a+b; b:=a-b; a:=a-b; End.Cho biết kết quả
7.Kết quả của phép toán a/b là...?
8.Trong câu lệnh điều kiện if....then....else có thể sử dụng ... lần?
9.Điều kiện sử dụng trong câu lệnh if...then...else có kết quả là ?
A.Chỉ đúng không sai B.Chỉ sai không đúng C.Chỉ có thể đúng hoặc sai D.Không đúng không sai
10.Sửa lỗi cho chương trình tính diện tích hình vuông sau:
Program bai1;
Uses crt;
Var canh integer;
Begin
Clscrs;
Writeln ('nhap canh:') reandln(canh)
dientich =canh*canh;
Writeln ('dien tich hinh vuong la:, dientich);
Readln;
End.

11.Sửa lỗi cho chương trình tính tổng
Program bai1;
Uses crt;
var a. b:integer;
Begin
Clscrs;
Writeln ('nhap a:') readln(a);
Writeln ('nhap b:'); readln(b)
Tong =a+b;
Writeln ('tong hai so a va b la:, tong);
Readln;
End.

12.viết câu lệnh so sánh 2 số a và b
13.Cho trước 3 số dương a,b,c.Viết chuong trình in ra ba số a,b,c có phải là độ dài của 1 tam giác hay không
14.Viết chương trình xét xem một tam giác có là tam giác cân hay không khi biết 3 cạnh của tam giác
15.Nhập 3 số a,b,c.Hãy viết chương trình tìm giá trị lớn nhất của
chúng và gắn giá trị lớn nhất đó cho biến MAX
16.Cho 3 biến a,b,c.Hãy viết chương trình hoán đổi 3 biến nói trên để a,b,c có thứ tự không tăng
17,Giải phương trình bậc nhất bx+c+0(với b,c được nhập từ bàn phím)
18,Cho 3 biến a,b,c.Hãy viết chương trình hoán đổi 3 biến nói trên để a,b,c có thứ tự không giảm
1
29 tháng 12 2017

c1: 5+6

c2: a là 1 số nguyên

b là 1 kí tự

c3: a là 1 số nguyên

b là 1 xâu kí tự

c4: hai số a,b được hoán vị cho nhau như vậy lúc này a mang giá trị của b, b mang giá trị của a. a=b,b=a

c5,6: tương tự câu 4

c7: kết quả là:a/b

c8: 1

c9: c

c10:

sai lệnh ' clscrs ' đúng là 'clrscr;

sau lệnh readln(canh) thiếu dấu ";"

chưa khai báo biến "dientich"

dòng writeln thứ 2 thiếu dấu " ' " ở trước dấu phẩy.

c11:

phần khai báo sai chỗ "a.b" đúng là "a,b"

sai lệnh clrscr;

thiếu ";" sau lệnh readln(b)

chưa khai báo biến tổng

câu lệnh in kết quả sai ( thiếu " ' ")

c12:

if a>b then { a lớn hơn b } else

if a<b then { a nhỏ hơn b } else

{ a bằng b }

c13: dễ nhưng hơi dài chỉ cần so sánh từng biến với tổng 2 biến còn lại là đươc

c14: bạn viết tương tự như c13 bổ sung thêm điều kiện

nếu có 2 trong 3 cạnh bằng nhau thì in ra là tam giác cân

c15:

max:=a;

if (max>b) and(max >c) then max:=a else

if b>c then max:=b else max:=c;

write(max)

c16: làm tương tự c4,5,6

c17: bx+x+0 ???

c18: làm tương tự c16

Câu 1: Đoạn chương trình sau cho kết quả gì? For i:=1 to 10 do write(i,' ); A.12 3 4 5 6 7 89 10 B.Đưa ra 10 khoảng trắng C.Không có kết quả D.1098 7 6 5 4 3 2 1 Câu 2: Đoạn chương trình sau cho kết quả gì? For i:=5 to 10 do write('i'); A.iiiii B.5678910 C.i D.iii Câu 3: Đoạn chương trình sau cho kết quả gì? For i:=5 to 10 do If i mod 5 = 0 then write (i); Diiiii A.1 2 3 4 5 B.1 2 3 4 5 6 7 8 9 10 C.5 10 Câu 4: Đoạn chương trình sau cho...
Đọc tiếp

Câu 1: Đoạn chương trình sau cho kết quả gì? For i:=1 to 10 do write(i,' );
A.12 3 4 5 6 7 89 10
B.Đưa ra 10 khoảng trắng
C.Không có kết quả
D.1098 7 6 5 4 3 2 1
Câu 2: Đoạn chương trình sau cho kết quả gì? For i:=5 to 10 do write('i');
A.iiiii
B.5678910
C.i
D.iii
Câu 3: Đoạn chương trình sau cho kết quả gì?
For i:=5 to 10 do
If i mod 5 = 0 then write (i);
Diiiii
A.1 2 3 4 5
B.1 2 3 4 5 6 7 8 9 10
C.5 10
Câu 4: Đoạn chương trình sau cho kết quả gì?
S:=1; For i:=5 to 10 do if i mod 3 = 0 then S:=S * i; Write(S);
A.54
B.15
C.50
D.151200
Câu 5: Cho đoạn chương trình sau:
a:=3; b:=2;
If a>b then a:=4 else b:=1;
Sau khi thực hiện đoạn chương trình trên cho kết quả:
A.a=3
B.b=2
C.a=4
D.b=1
Câu 6: Đoạn chương trình sau cho kết quả gì?
S:=0;
For i:=1 to 9 do S:=S+i;
Write(s);
A.45
B.40
C.55
Câu 7: Cho x là biến thực đã được gán giá trị 13.56423. Để hiện lên màn hình nội dung “x=13.6"
cần chọn câu lệnh nào sau đây?
A.Writeln(x:5);
B.Writeln(x);
C.Writeln("x=",x:5:2);
D.Writeln('x=',x:2:1);
Câu 8: Trong NNLT Pascal phát biểu nào sau đây là đúng:
A.Có phân biệt chữ hoa chữ thường.
B.Sau mỗi câu lệnh đều phải có dấu chấm phẩy.
C.Trước lệnh Else bắt buộc phải có dấu chấm phẩy.
D.Lệnh Readln trước câu lệnh End. Không nhất thiết phải có dấu chấm phẩy.
Câu 9: Để thoát khỏi chương trình Pascal ta sử dụng tổ hợp phím nào?
A.Ctrl + Q
B.Ctrl + X
C.Alt + Q
D.Alt +X
Câu 10: Vòng lặp sau đây lặp lại mấy lần?
A:=2
For i:=0 to 7 do a:=a+1;
A.6
B.7
C.8

0
19 tháng 12 2016

program Tim_Max;
uses CRT;
var a,b,c,d,Max :integer;

Begin
clrscr;
Write('Nhap 4 so can so sanh ');
readln(a,b,c,d);

Max:=a;
If Max<b then Max:=b;
If Max<c then Max:=c;
If max<d then Max :=d;

Writeln('So lon nhat trong 4 so do la: ',Max);
readln;

End.

20 tháng 12 2016

Tìm GTLN : =SUM(XA:YB) sau đó ấn enter,sử dụng nút điền , kéo thả chuột sang ngang để sao chép công thức.

11 tháng 10 2017

**********************************************************

PROGRAM BT_Giai_thua;

USES crt;

VAR i,n:integer; s1:string;

Function Giaithua(x:integer):longint;

Var s,i:longint;

Begin

s:=1;

for i:=1 to x do s:=s*i;

Giaithua:=s;

End;

Function Tong(x:integer):real;

Var j:integer; s:real;

Begin

s:=0;

for j:=1 to x do s:=s+1/Giaithua(j);

Tong:=s;

End;

BEGIN

clrscr;

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

writeln(n,'!=', Giaithua(n));

writeln('Tong 1/1!+1/2!+...+1/',n,'! la:',Tong(n):0:2);

str(Giaithua(n),s1);

write('Sau khi xoa duoc:');

i:=length(s1)+1;

repeat

if s1[i-1]='0' then delete(s1,i-1,1)

else break;

i:=i-1;

until i=1 ;

write(s1);

readln;

END.

I. TRẮC NGHIỆM: Khoanh tròn vào đáp án mà em cho là đúng nhất ở các câu trả lời bên dưới: Câu 1: Chương trình dịch làm gì ? A. Dịch từ ngôn ngữ lập trình sang ngôn ngữ máy. B. Dịch từ ngôn ngữ lập trình sang ngôn ngữ tự nhiên C. Dịch từ ngôn ngữ máy sang ngôn ngữ lập trình D. Dịch từ ngôn ngữ máy sang ngôn ngữ tự nhiên. Câu 2: Đâu là các từ khoá: A. Program, end, begin. B. Program, end, begin,...
Đọc tiếp

I. TRẮC NGHIỆM:
Khoanh tròn vào đáp án mà em cho là đúng nhất ở các câu trả lời bên
dưới:
Câu 1: Chương trình dịch làm gì ?
A. Dịch từ ngôn ngữ lập trình sang ngôn ngữ máy.
B. Dịch từ ngôn ngữ lập trình sang ngôn ngữ tự nhiên
C. Dịch từ ngôn ngữ máy sang ngôn ngữ lập trình
D. Dịch từ ngôn ngữ máy sang ngôn ngữ tự nhiên.
Câu 2: Đâu là các từ khoá:
A. Program, end, begin.
B. Program, end, begin, Readln, lop82
C. Program, then, mot, hai,ba
D. Lop82, uses, begin, end
Câu 3: Program là từ khoá dùng để:
A. Khai báo tiêu đề chương trình B. Kết thúc chương trình
C. Viết ra màn hình các thông báo D. Khai báo biến
Câu 4: Tên nào đúng ?
A. Lop 8a B. Lop8/a C. Lop8a D. 8a
Câu 5: Tên nào sai ?
A. Chuong_trinh B. Baitap1
C. A4H D. hoa@yahoo.com
Câu 6: Cấu trúc của chương trình Pascal gồm những phần nào?
A. Khai báo B. Khai báo và thân
C. Tiêu đề, khai báo và thân D. Thân
Câu 7: Trong các tên sau đây, tên nào là không hợp lệ trong ngôn ngữ Pascal?
A. TINHS B. DIENTICH
C. DIEN TICH D. TIMS
Câu 8: Để thoát khỏi Pascal ta sử dụng tổ hợp phím:
A. Alt + F9 B. Alt +X C. Ctrl+ F9 D. Ctrl + X
Câu 9: Kết quả in ra màn hình của câu lệnh Writeln(‘5+20 = ‘, 20+5); là:
A. 5+20=25 B. 5+20=20+5 C. 20+5=25 D. 25 = 25
Câu 10: Phần nguyên trong phép chia của hai số nguyên 16 và 5 là:
A. 16 div 5 = 1 B. 16 mod 5 = 1
C. 16 div 5 = 3 D. 16 mod 5 = 3
Câu 11: Trong Pascal, lệnh clrscr được dùng để
A. Xóa màn hình B. In thông tin ra màn hình
C. Nhập dữ liệu từ bàn phím D. Tạm dừng chương trình
Câu 12: Từ khóa dùng để khai báo hằng trong ngôn ngữ lập trình Pascal là:
A. Const B. Var
C. Real D.End
Câu 13: Để dừng chương trình nhập dữ liệu ta dùng lệnh

A. Clrscr; B. Readln(x);
C. X:= ‘dulieu’; D. Write(‘Nhap du lieu’);
Câu 14: Trong chương trình Turbo Pascal, tổ hợp phím Alt + F9 dùng để:
A. Dịch chương trình. B. Lưu chương trình.
C. Chạy chương trình. D. Khởi động chương trình
Câu 15: Trong chương trình Turbo Pascal từ khoá dùng để khai báo tên chương trình
là:
A. uses. B. Begin C. Program. D. End
Câu 16: Trong các tên sau, tên nào là hợp lệ trong ngôn ngữ Pascal:
A. Dien tich; B. Begin;
C. Tamgiac; D. 5-Hoa-hong;
Câu 17: Để tìm giá trị lớn nhất của 2 số a, b thì ta viết:
A. Max:=a;If b>Max then Max:=b;
B. If (a>b) then Max:=a;If (b>a) then Max:=b;
C. Max:=b;If a>Max then Max:=a;
D. Cả 3 câu đều đúng.
Câu 18: IF a>8 THEN b:=3 ELSE b:=5; Khi a nhận giá trị là 0 thì b nhận giá trị
nào?
A. 0 B. 5 C. 8 D. 3
Câu 19: Khi một chương trình Pascal hết lỗi, ta muốn chạy chương trình thì
nhấn phím:
A. F9 B. Ctrl + F9 C. F2 D. Ctrl + F2

Câu 20: Viết biểu thức toán a3- b3 sang Pascal thì ta viết là:

A. a3-b3 B. a*a*a-b*b*b
C. a.a.a-b.b.b D. aaa-bbb

Câu 21: Để thực hiện phép tính tổng của hai số nguyên a và b ta thực hiện như
sau :
A. Tong=a+b; B. Tong:=a+b;
C. Tong:a+b; D. Tong(a+b);
Câu 22: Câu lệnh điều kiện dạng đầy đủ là:
A. If < đk > then < câu lệnh 1> Else <câu lệnh 2>;
B. If <đk > then < câu lệnh>;
C. If <đk> then < câu lệnh 1>,<câu lệnh 2>;
D. Cả a,b,c đều sai.
Câu 23: Trong ngôn ngữ lập trình Pascal, từ không phải từ khóa là:
A. Uses B. Program C. End D. Computer
Câu 24: Dãy kí tự 20n10 thuộc kiểu dữ liệu
A. String B. Integer C. Real D. Char
Câu 25: Để chạy một chương trình Pascal ta nhấn tổ hợp phím
A. Ctrl+F9 B. Alt+F9
C. Shitf+F9 D. Ctrl+Shift+F9
Câu 26: Cấu trúc chung hợp lý của một chương trình Pascal là:
A. Begin -> Program -> End. B. Program -> End -> Begin.
C. End -> Program -> Begin. D. Program -> Begin -> End.
Câu 27: Phần dư trong phép chia của hai số nguyên 16 và 5 là:
A. 16 div 5 = 1 B. 16 mod 5 = 1

C. 16 div 5 = 3 D. 16 mod 5 = 3
Câu 28: A được khai báo là biến với kiểu dữ liệu số nguyên, X là biến với kiểu
dữ liệu xâu. Phép gán hợp lệ là:
A. A:= 4.5; B. X:= ‘1234’; C. X:= 57; D. A:=‘LamDong’;
Câu 29: Trong Pascal khai báo nào sau đây là đúng:
A. Var hs : real; B. Var 5hs : real;
C. Const hs : real; D. Var S = 24;
Câu 30: Chương trình sau cho kết quả là gi ?
Program vd;
Var a, b,: real; x,: integer ;
Begin readln(a, b);
If a>b then x:=a else x:=b;
Write(x);
End.
A. Xuất ra màn hình số nhỏ nhất trong 2 số a, b đã nhập
B. Xuất ra màn hình số lớn nhất trong 2 số a, b đã nhập
C. Chương trình không thực hiện được do lỗi khai báo kiểu dữ liệu
D. Đảo giá trị của 2 biến a, b cho nhau
Câu 31: Câu lệnh nào sau đây dùng để nhập một số từ bàn phím vào biến x?
A. Writeln(‘Nhập x = ’); B. Write(x);
C. Writeln(x); D. Readln(x);
Câu 32: Câu lệnh nào sau đây dùng để in giá trị lưu trong biến x ra màn hình?
A. Writeln(x); B. Write(x);
C. Write(x: 3); D. Cả A, B, C đều đúng
Câu 33: Trong Pascal, muốn dịch chương trình ta dùng tổ hợp phím nào sau đây:
A. Alt + F9 B. Ctrl + F9 C. Alt + F3 D. Ctrl + S
Câu 34: Số biến có thể khai báo tối đa trong một chương trình là bao nhiêu?
A. Chỉ một biến cho mỗi kiểu dữ liệu. B. 10 biến.
C. Chỉ hạn chế bởi dung lượng bộ nhớ. D. Không giới hạn.
Câu 35: Trong Pascal, để lưu chương trình mới gõ ta nhấn phím?
A. Nhấn phím F1 B. Nhấn phím F2
C. Nhấn phím F3 D. Nhấn phím F4
Câu 36: Trong Pascal, câu lệnh Writeln(16 mod 3) sẽ in lên màn hình kết quả là
bao nhiêu?
A. Kết quả là 5 B. Kết quả là 1
C. Kết quả là 16 D. Kết quả là 3
Câu 37: Phép toán (105 div 10 + 105 mod 5) có giá trị là:
A. 5 B. 0 C. 15 D. 10
Câu 38: Các thành phần cơ bản của một ngôn ngữ lập trình gồm:
A. Bảng chữ cái và các quy tắc để viết các câu lệnh.
B. Bảng chữ cái và các từ khoá
C. Các từ khoá và tên
D. Bảng chữ cái, các từ khoá và tên
Câu 39.Nếu ta dùng số Pi= 3.14, để tính chu vi đường tròn thì ta dùng từ khóa
nào để khai báo ?
A. Program B. Uses C. Var D.Const

Câu 40: Chọn câu lệnh Pascal hợp lệ trong các câu sau :
A. If x : = a + b then x : = x + 1;
B. If a > b then max = a;
C. If a > b then max : = a ; else max : = b;
D. If 5 = 6 then x : = 100;
II. TỰ LUẬN
Bài 1. Viết chương trình nhập một số nguyên dương có 2 chữ số. Cho biết số
vừa nhập là số chẵn hay số lẻ.
Bài 2. Viết chương trình nhập một số nguyên dương n. Hãy xuất ra màn hình
bảng cửa chương n.
Bài 3. Viết chương trình nhập một số nguyên dương n. Hãy liệt kê tất cả các ước
số lẻ của số nguyên dương n.

MONG NHẬN ĐƯỢC SỰ GIÚP ĐỠ TỪ CÁC BẠN !!!

0
I. Trắc nghiệm: Câu 1:Xác định bài toán là gì? A. Chỉ rõ các điều kiện cho trước và kết quả cần thu đc B. Chỉ rõ các điều kiện cho trước và phương pháp giải C. Chỉ rõ phương pháp giải và kết quả cần thu đc D. Chỉ rõ các bước để giải bài toán Câu 2: Giải thuật đổi giá trị hai biến x và y cho nhau, ta có thể thực hiện như sau: A. x -> z; z ->y; y-> x B. z->x; z->y; y->x C....
Đọc tiếp

I. Trắc nghiệm:
Câu 1:Xác định bài toán là gì?
A. Chỉ rõ các điều kiện cho trước và kết quả cần thu đc
B. Chỉ rõ các điều kiện cho trước và phương pháp giải
C. Chỉ rõ phương pháp giải và kết quả cần thu đc
D. Chỉ rõ các bước để giải bài toán
Câu 2: Giải thuật đổi giá trị hai biến x và y cho nhau, ta có thể thực hiện như sau:
A. x -> z; z ->y; y-> x B. z->x; z->y; y->x
C. z->x; x->y;y->z D. z->x; x->y; z->x
Câu 3: Phần thân chương trình của Pascal đc bắt đầu và kết thúc bởi cặp từ khóa:
A. Begin và end B. Begin: và end
C. Begin và end; D. Begin và end.
Câu 4: Kiểu dữ liệu thường dùng của Turbo Pascal là:
A. Xâu ký tự B. Số nguyên
C. Số thực D. Cả A, B và C đều đúng
Câu 5: Kết quả của phép chia 7 mod 5 thuộc kiểu gì?
A. Kiểu số nguyên B. Kiểu số thực
C. Kiểu xâu ký tự D. Kiểu thập phân
Câu 6: Nội dung các văn bản muốn ghi ra màn hình bằng lệnh Write phải đc đặt trong cặp dấu ngoặc:
A. ( và ) B. '' và '' C. ' và ' D. { và }
Câu 7: Để tăng biến nhớ X lên 1 đơn vị, ta thực hiện lệnh:
A. X => X + 1; B. X := X+1
C. X => X+ 1 D. X := X + 1;
Câu 8: Tính giá trị cuối cùng của c, biết rằng: a := 3; b := 5; a := a + b; c:= a+b;
A. c=8; B. c=3; C. c= 5; D. c= 13;
Câu 9: Câu lệnh Write và Writeln, Read và Readln khác nhau ở điểm nào?
A. Writeln và Readln sau khi thực hiện, con trở tự động xuống dòng kế tiếp
B. Write và Read sau khi thực hiện, con trở tự động xuống dòng kế tiếp
C. Write là viết ra còn Writeln là ghi vào
D. Read là đọc vào còn Readln là ghi ra
Câu 10: Cấu trúc rẽ nhánh dạng đủ có dạng như sau:
A. If <câu lệnh 1> Then <điều kiện> Else <Câu lệnh 2>;
B. If <điều kiện> Then <câu lệnh 1> Else <Câu lệnh 2>
C. If <điều kiện> Then <câu lệnh 1> Else <Câu lệnh 2>;
D.If <điều kiện> Then <câu lệnh 1>; Else <Câu lệnh 2>;
II. Tự luận:
11. Cấu trúc chương trình gồm mấy phần? Gồm những phần nào? Phần nào là quan trọng nhất và k thể thiếu đc?
12. Viết chương trình. Nhập vào ba số thực bất kỳ, báo ra màn hình giá trị lớn nhất trong ba số đó

0