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.

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

            BÀI THỰC HÀNH 5:SỬ DỤNG CÂU LỆNH LẶP FOR...DOBài 1: SGK 60      Nhập chương trình :       uses crt;       var N,I:integer;       begin                clrscr;                 write (Nhap so N='); readln(N);                writeln;                writeln('Bang nhan',N);                writeln;                for i:=1 to 10 writeln(N,'x',i:2,' = ',N*i:3);               readlnend                                                            Câu hỏi ôn tập: a. Sau khi...
Đọc tiếp

            BÀI THỰC HÀNH 5:SỬ DỤNG CÂU LỆNH LẶP FOR...DO

Bài 1: SGK 60

      Nhập chương trình :

       uses crt;

       var N,I:integer;

       begin

                clrscr; 

                write (Nhap so N='); readln(N);

                writeln;

                writeln('Bang nhan',N);

                writeln;

                for i:=1 to 10 writeln(N,'x',i:2,' = ',N*i:3);

               readln

end

                                                            Câu hỏi ôn tập: 

a. Sau khi nhập đoạn chương trình bài 1. Cho biết ý nghĩa từng câu lệnh trong chương trình .

b. Nếu giá trị cuối trong lệnh For...do sủa cho 100.thì kết quả như thế nào ?

c. Nếu giá trị đầu và cuối trong lệnh For... do sủa là -10 và 100. thì kết quả như thế nào?

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1
23 tháng 2 2021

b) sẽ trờ thành bảng nhân N:có các nhân tử từ 1 đến 100

c)

Nhân từ 10 đến 100

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...
Đọ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

15 tháng 11 2021

1: 2*10+14= 34

2: 20*3+20=  80

9 tháng 10 2022

theo mình thì câu 1 của bạn đúng còn câu 2 thì có dấu ngoặc đơn ở 20*3+20 nên nó sẽ in ra thành 20*3+20=20*3+20.

I Trắc Nghiệm 1) Khi thực hiện đoạn chương trình sau: n:=1; T:=50; while n>20 do Begin n:=n+5;T:=T-n end; Hãy cho biết giá trị của biến T A)16 B)15 C)14 D)17 2) Trong câu lệnh khai báo mảng, phát biểu nào sau đây đúng? A) Cả 3 ý trên B) Chỉ số đầu và số cuối là 2 số nguyên C) Kiểu dữ liệu có integer D) Chỉ số đầu và chỉ số cuối 3) Khai báo biến mảng A: array [1...7] of real; for i= 1 to 5 do; Readln (A[i]) để gắn giá...
Đọc tiếp

I Trắc Nghiệm

1) Khi thực hiện đoạn chương trình sau:

n:=1; T:=50; while n>20 do Begin n:=n+5;T:=T-n

end;

Hãy cho biết giá trị của biến T

A)16 B)15 C)14 D)17

2) Trong câu lệnh khai báo mảng, phát biểu nào sau đây đúng?

A) Cả 3 ý trên

B) Chỉ số đầu và số cuối là 2 số nguyên

C) Kiểu dữ liệu có integer

D) Chỉ số đầu và chỉ số cuối

3) Khai báo biến mảng A: array [1...7] of real; for i= 1 to 5 do; Readln (A[i]) để gắn giá trị cho các phần tử trong biến A từ bàn phím, ta sẽ nhận được bao nhiêu giá trị

A)7 B)5 C)6 D)4

4) Trong câu lệnh lặp for i=1 to do J:=J+2 writeln (J); khi kết thúc câu lệnh trên, câu lệnh writeln (J) được thực hiện bao nhiêu lần

A) Không thực hiện C) 10 lần

B) 1 lần D) 5 lần

5) Trong pascal, câu lệnh nào sau đây là đúng?

A) for i:= 1 to 10 do writeln (`A');

B) for i:= 4 to 10 do writeln(`A');

C) for i to 10 do writeln (`A')

D)for i:= 1 to 10 do writeln (`A')

6) Trong pascal, câu lệnh nào sau đây đúng?

A) n:=2, while n<5 do writeln (`A')

B) i:=0; 5:=1; while S<10 do writeln (S);

while S<10 do S:= S+i; i=i+1;

C) S:=1,

D) Cả A và B đúng

7) Giả sử biến A có 5 phần tử và giá trị các phần tử lần lượt là 1,4,7,2,6. Khi thực hiện câu lệnh sau

Tb:= 0; for i:= 1 to 5 do

Tb: Tb + A(i)

Giá trị trung bình là bao nhiêu?

A)18 C)21

B)21 D)22

8) Cho đoạn chương trình J:=0; for i:= 1 to S sau khi thực hiện chương trình trên giá trị của biến i bằng bao nhiêu?

A)12 C)42

B)22 D)15

II Tự Luận

1) Viết cú pháp câu lệnh lặp với số lần chưa biết trước. Nêu hoạt động của câu lệnh

2) Viết chương trình nhập điểm kiểm tra học kì môn tin cho N học sinh và in ra màn hình với N và điểm kiểm tra được nhập từ bàn phím ( Sử sụng biến mảng).

3
27 tháng 6 2020

Câu 2.

Program HOC24;

var i,n: integer;

a: array[1..32000] of integer;

begin

write('Nhap so ban lam bai thi hoc ki tin : '); readln(n);

for i:=1 to n do

begin

write('Nhap diem kiem tra hoc ki Tin cua ban thu ',i,' :'); readln(a[i]);

end;

writeln(n);

for i:=1 to n do write(a[i],' ');

readln

end.

27 tháng 6 2020

Câu 1.

* Cú pháp : while <điều kiện> do <câu lệnh>;

* Hoạt động :

- Bước 1: Kiểm tra điều kiện lặp:

+ Nếu điều kiện lặp sai thì thoát khỏi vòng lặp, chuyển sang lệnh tiếp theo.

+ Nếu điều kiện lặp đúng thì chuyển sang bước 2.

- Bước 2: Thực hiện khối các lệnh lặp.

- Bước 3: Quay lại bước 1.

16 tháng 12 2017

1. Program Bai11;

2. ....Uses.... crt;

3. ...Var..... a,b,H:integer;

4. ....Const.... c=12;

5.Begin

6. Clrscr;

7. write('nhap a='); Readln(a);

8. write('nhap b='); ......Readln.....(b);

9. H:=a*a+b*b+c;

10. Readln;

11. Writeln('H=',H);

12. ....End....