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.

25 tháng 4 2020

a) Thuật toán 1:

- Số vòng lặp trong thuật toán : 4

- Gía trị S =3

b) Thuật toán 2:

- Số vòng lặp trong thuật toán : 4

- Gía trị S =3

Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để

Program hotrotinhoc_hoc24;

var i,j: integer;

begin

for i:=1 to 9 do

begin

writeln('Bang nhan ',i);

for j:=1 to 10 do writeln(i,'*',j,'=',i*j);

end;

readln

end.

25 tháng 4 2020

Cô có thể giải thích cho e câu a và b được không cô, em không hiểu.

Bài 1:

a) Câu lệnh While i:=1 do sai.

Sai ở chỗ i:=1(vì có dấu gán)

b) Câu lệnh While a<=b; do sai

Sai ở chỗ có dấu chấm phẩy trước chữ do

Câu lệnh write('b khong nho hon a); sai

Sai ở chỗ vì thiếu dấu ' sau chữ a

c) Câu lệnh While 1=1 do sai

Vì nếu như vậy đây sẽ là vòng lặp vô hạn(vì 1 luôn bằng 1)

Câu lệnh write('Toi lap trinh gioi); sai

Sai ở chỗ thiếu dấu ' sau chữ gioi

d) Câu lệnh sum:=sum+1; i:=i+1; sai

Vì nguyên tắc là sau lệnh While(hoặc lệnh For) thì nếu làm nhiều câu lệnh thì phải bao bọc trong Begin End

Bài 2:

uses crt;

var a,b:real;

begin

clrscr;

repeat

write('a='); readln(a);

if a<=0 then writeln('vui long nhap lai a');

until a>0;

repeat

write('b='); readln(b);

if b<=0 then writeln('vui long nhap lai b');

until b=0;

writeln('dien tich hinh chu nhat la: ',a*b:4:2);

readln;

end.

25 tháng 4 2020

cảm ơn bạn rất rất rất rất nhiều.

25 tháng 4 2020

B1: Trong các hoạt động sau đây hoạt động nào là hoạt động lặp với số lần chưa biết trước:

A. tính tổng các số tự nhiên từ 1 đến 20.

B. Nhập các số nguyên cho đến khi đủ 50 số

C. Mỗi ngày tập TD 2 lần

D. Nhập dữ liệu từ bàn phím cho đến khi nhập xong dữ liệu khi dừng

B2: Đoạn lệnh sau đây in ra kết quả gì?
s:=0; while s<10 do begin s:=s+1;
Writeln(s); end;
A. In ra các số từ 1 đến 9.
B. In ra các số từ 1 đến 10.
C. In ra các số 1.
D. Không có đáp án đúng.

B3: Hãy cho biết đâu là đoạn lệnh lặp bằng câu lệnh While...do để tính tổng S=1+2+...+10?
A. S:=0; while i<10 do S:=S+i;
B. S:=0; i:=0; while i<11 do begin S:=S+i; i:=i+1; end;
C. S:=0; i:=1; while i do S:=S+i; i:=i+1;
D. S:=0; i:=0; while i<=10 do begin S:=S+i; i:=i+1; end;

25 tháng 4 2020

Câu 3 chọn B và D phải không cô?

26 tháng 4 2020

em cảm ơn cô ạ

25 tháng 4 2020

a. While i:=1 do t:=10;

---> Sai

---> Sửa : While i=1 do t:=10;

b. While a<=b; do Writeln(‘b khong nho hon a’);

---> Sai

---> Sửa : While a<=b do Writeln(‘b khong nho hon a’);

c. i:=1;

While i<10 do

Begin

Sum:=Sum+i;

i:=i+1;

End;

---> Đúng

25 tháng 4 2020

Câu 2:

Program hotrotinhoc_hoc24;

var s,p,r: real;

begin

write('Nhap ban kinh : '); readln(r);

s:=sqr(r)*pi;

p:=r*2*pi;

writeln('Chu vi hinh tron la: ',p:1:2);

write('Dien tich hinh tron la :',s:1:2);

readln

end.

25 tháng 4 2020

Câu 1:

program hotrotinhoc_hoc24;

var a,b: integer;

t: longint;

begin

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

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

t:=a;

t:=t+b;

write('Tong 2 so nguyen a va b la :' ,t);

readln

end.

25 tháng 4 2020

Bài 2:

Program hotrotinhoc_hoc24;

var i: char;

begin

write('Cac ki tu trong bang chu cai tu A den Z la : ');

for i:='A' to 'Z' do write(i,' ');

readln

end.

25 tháng 4 2020

Bài 1:

Program hotrotinhoc_hoc24;

var i,t: integer;

begin

t:=1;

for i:=1 to 10 do t:=t*i;

write('Tich 10 so tu nhien dau tien la: ',t);

readln

end.

25 tháng 4 2020

S:=0; i:=0;

While i<5 do

begin

S:=S+i;

i:=i+1;

end;

A. 15 B. 10 C.0 D. Không xác định

Giải thích:

Mô tả lặp trong vòng lặp while..do :

-Vòng 1: i ban đầu bằng 0. Kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh s=s+i <=> s=0+0=0 ; i=i+1 <=> i=0+1=1.

Vòng 2: i=1 , kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh : s=s+i <=> s=0+1=1; i=i+1 <=> i=1+1=2.

Vòng 3: i=2, kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh : s=s+i <=> s=1+2=3; i=i+1 <=> i=2+1=3.

Vòng 4: i=3, kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh : s=s+i <=> s=3+3=6; i=i+1 <=> i=3+1=4.

Vòng 5: i=4, kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh : s=s+i <=> s=6+4=10; i=i+1 <=> i=4+1=5.

i=5, kiểm tra điều kiện i<5 ---> ĐK sai ---> kết thúc

Vậy giá trị s sau khi thực hiện đoạn chương trình đó là : 10

BÀI TẬP MÔN TIN NGÀY 20/4/2020 Câu 1: Tác dụng của câu lệnh lặp trong ngôn ngữ lập trình Pascal là dùng: A. Nhiều lệnh thay cho một lệnh. B. Một lệnh thay cho một lệnh. C. Một lệnh thay cho nhiều lệnh. D. Nhiều lệnh thay cho nhiều lệnh. Câu 2: Mọi ngôn ngữ lập trình đều có “cách” để chỉ thị cho máy tính thực hiện cấu trúc lặp với một câu lệnh. Đó là: A. Câu lệnh ghép. B. Câu lệnh đơn. C. Câu lệnh lặp. D. Câu...
Đọc tiếp

BÀI TẬP MÔN TIN NGÀY 20/4/2020
Câu 1: Tác dụng của câu lệnh lặp trong ngôn ngữ lập trình Pascal là dùng:
A. Nhiều lệnh thay cho một lệnh. B. Một lệnh thay cho một lệnh.
C. Một lệnh thay cho nhiều lệnh. D. Nhiều lệnh thay cho nhiều lệnh.
Câu 2: Mọi ngôn ngữ lập trình đều có “cách” để chỉ thị cho máy tính thực hiện cấu trúc lặp với một câu lệnh.
Đó là:
A. Câu lệnh ghép. B. Câu lệnh đơn.
C. Câu lệnh lặp. D. Câu lệnh điều kiện.
Câu 3: Trong Pascal, câu lệnh lặp với số lần biết trước thường gặp có dạng:
A. for ... do … to … B. while ... do ...
C. do ... while … D. for ... to … do …
Câu 4:Trong câu lệnh lặp với số lần biết trước For, số lần lặp được xác định bởi công thức:
A. Số lần lặp = giá trị đầu – giá trị cuối + 1
B. Số lần lặp = giá trị cuối – giá trị đầu + 1
C. Số lần lặp = giá trị cuối – giá trị cuối
D. Số lần lặp = giá trị đầu – giá trị cuối
Câu 5: Khi thực hiện câu lệnh lặp For, ban đầu biến đếm sẽ nhận giá trị là …
A. Giá trị cuối B. Giá trị đầu
C. Giá trị cuối – 1 D. Tất cả đều sai.
Câu 6: Khi kết thúc câu lệnh lặp For, giá trị của biến đếm bằng …
A. Giá trị cuối B. Giá trị đầu C. Giá trị cuối – 1 D. Giá trị đầu + 1
Câu 7: Khi thực hiện câu lệnh lặp For, sao mỗi vòng lặp, biến đếm sẽ tự động tăng thêm …
A. 1 đơn vị B. 4 đơn vị C. 2 đơn vị D. 3 đơn vị
Câu 8: Câu lệnh ghép là câu lệnh được tạo thành từ 2 hay nhiều câu lệnh đơn giản, các câu lệnh đơn đó phải
được đặt trong hai từ khóa nào?
A. var và end B. uses và begin
C. begin và end; D. const và begin
Câu 9: Để có thể lưu trữ các số nguyên rất lớn trong phạm vi -231 đến 231-1, ta sử dụng kiểu dữ liệu nào sau
đây?
A. real B. double C. longint D. byte
Câu 10: Với câu lệnh for i:=1 to n do … , trong đó i là:
A. Biến đếm chỉ số lần lặp
B. Biến chạy từ đầu đến cuối câu lệnh lặp
C. Biến điều khiển vòng lặp

D. Tất cả đều đúng
Câu 11: Câu lệnh lặp for i:=1 to 15 do writeln(‘O’); có số lần lặp là:
A. 14 B. 15 C. 17 D. 16
Câu 12: Để tính tổng các số nguyên từ 1 đến n, ta sử dụng câu lệnh lặp nào sau đây:
A. for i:=1 to n do s:=s+1; B. for i=1 to n do s:=s+i;
C. for i:=1 to n do s:=s+i; D. for i:=1 to n do s:=s+1;
Câu 13: Trong các câu lệnh sau đây, câu lệnh nào hợp lệ?
A. for i:=100 to 1 do writeln(‘A’); B. for i =1 to 15 do writeln(‘A’);
C. for i:=1 to 100 do writeln(‘A’); D. for i:=1.5 to 10.5 do writeln(‘A’);
Câu 14: Sau khi thực hiện đoạn chương trình sau, giá trị của biến j bằng bao nhiêu?
j:=0;
for i:=1 to 5 do j:=j+3;
A. 9 B. 13 C. 16 D. 15
Câu 15: Đoạn lệnh sau đây:
s := 0;
for i := 1 to n do
if (i mod 2 &lt;&gt; 0) then s := s + i ;
dùng để:
A. Tính tổng các số nguyên từ 1 đến n. B. Tính tổng các số nguyên chẵn từ 1 đến n.
C. Tính tổng các số nguyên lẻ từ 1 đến n. D. Tính tổng các số nguyên âm từ 1 đến n.

giúp mih vúi mai nộp rùi

;_;

1
24 tháng 4 2020

Câu 1: C

Câu 2: C

Câu 3: D

Câu 4: B

Câu 5: D

Câu 6: A

Câu 7: A

Câu 8: C

Câu 9: C

Câu 10: D

Câu 11: B

Câu 12: C

Câu 13: C

Câu 14: D

Câu 15: if (i mod 2 &lt;&gt; 0) then s := s + i ;

Nếu ở chỗ rối ở trong ngoặc là dấu '=' thì đáp án là: B

Nếu ở chỗ rối ở trong ngoặc là dấu '<>' thì đáp án là: C

24 tháng 4 2020

ko thiếu đâu bạn ạ

24 tháng 4 2020

Đề bài hình như thiếu thiếu

biến đếm sẽ nhận giá trị đầu là giá trị cuối và sau đó sẽ tự giảm đi 1 đơn vị cho đến giá trị cuối là giá trị đầu mới đúng chứ bạn

Cú pháp: For <biến đếm>:=<giá trị cuối> downto <giá trị đầu> do <câu lệnh>;