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.
- Lần thứ nhất: T<10=> Thực hiện lệnh
T:=T+i=0+1=1
i:=i+9=1+9=10
-Lần thứ hai: T<10=> Thực hiện lệnh
T:T+i=1+10=11
i:=i+9=10+9=19
-Lần thứ ba: T>10=> Không thực hiện lệnh
Vậy kết thúc chương trình T=11, i=19
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.
Câu 15:
a) -Đoạn lệnh thực hiện số vòng lặp là 5
b) -Đoạn lệnh thực hiện số vòng lặp là 0
Nhận xét :
Khi thực hiện câu lệnh lặp để thực hiện từ 2 lệnh trở lên cần dùng khối begin và end; để có thể thực hiện nhiều lệnh trong cùng 1 vòng lặp.
Câu 16:
Program hotrotinhoc;
var i,n: integer;
begin
i:=0; n:=0;
while i<20 do
begin
i:=i+1;
n:=n+i;
end;
write(n);
readln
end.
Câu 17:
Program hotrotinhoc;
var i,n: integer;
s: longint;
begin
readln(n);
i:=0; s:=1;
while i<=n do
begin
i:=i+1;
s:=s*i;
end;
write(s);
readln
end.
**) Mình làm ở Free Pascal báo lỗi ,mình làm ở Turbo Pascal vẫn chạy được. Nên mình dùng Turbo Pascal để làm bài này nhé.
6.C
7.C
8.B
9.C
Câu 14:
a)
- Máy thực hiện gồm 10 vòng lặp
- Khi kết thúc vòng lặp giá trị của S=5
- Chương trình :
Program hotrotinhoc;
var x,s:real;
begin
s:=10; x:=0.5;
while s>=5.2 do s:=s-x;
write(s:1:0);
readln
end.
b)
- Máy thực hiện gồm vô hạn vòng lặp
- Khi kết thúc vòng lặp giá trị của S không xác định
- Chương trình :
Program hotrotinhoc;
var n,s:byte;
begin
s:=10; n:=0;
while s<=10 do
begin
n:=n+3;
s:=s-n;
end;
write(s);
readln
end.
bài 1
if <điều kiện> then <câu lệnh>;
if <điều kiện> then <câu lệnh1> else <câu lênh 2>;
for <biến đềm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
while <điều kiện> do <câu lệnh>;
bài 2
a)xuất giá tri biến c;
b) xuất chử c ra màn hình
c)xuất tong 5+7 ra màn hình tức 12;
d) xuất 5+7 ra màn hình;
e)Khai báo biến i và k thuộc kiểu số thực;
bài 3
C[1]+C[2]=150 0 0 11
bài 4 Nhờ ban khác nhé
a) Đoạn chương trình 1:
Máy sẽ thực hiện 5 vòng lặp
Giá trị của S : 5
-Vòng 1: S>5 ---> ĐK đúng ---> S:=10-1=9
- Vòng 2: S>5 ---> ĐK đúng ---> S=9-1=8
- Vòng 3: S>5 ---> ĐK đúng ---> S=8-1=7
- Vòng 4 : S>5 ---> ĐK đúng ---> S=7-1=6
- Vòng 5 : S>5 ---> ĐK đúng ---> S=6-1=5
S>5 ---> ĐK sai ---> kết thúc vòng lặp
b) Bạn kiểm tra lại đề nhé, ở phần n:=n=3;
Chương trình này sẽ bị lỗi