Cho chương trình fascal như sau. Tìm các câu lệnh sai và sửa lại bằng câu lệnh đúng bên cạnh các câu sai (nếu có) Program bai tap 1;
Uses CRT
Var a;=integen;
b;=real;
Constc;=3;
Begin
a:=200;
b:=a/c;
Readln;
End
u 3: Đánh dấu [x] vào ô đúng hoặc sai tương ứng trong các câu lệnh Pascal trong chương trình tính tổng 10 số tự nhiên đầu tiên, nếu sai sửa lại?
Câu lệnh Đúng Sai Sửa lại
Program Chuong trinh
Var i,s : real;
Const n:=10;
Begin
Wile i <=n do;
Begin
S:=s+i
i =i+1
End.
Writeln(s)
Readln
End;
giúp mik với mình cần gấp ạ
Tìm lỗi sai trong các câu lệnh sau và chữa lại cho đúng ( viết lại chương trình đúng )
Var cv, dt : integer
r : real;
Const pi = 3.14;
Begin
r = 5.5;
dt := pi*r*r;
writeln(‘Dien tich hinh tron la:,dt:8:2’);
readln
End.
Var cv, dt : integer
r : real;
Const pi = 3.14;
Begin
r = 5.5;
dt := pi*r*r;
writeln(‘Dien tich hinh tron la:,dt:8:2’);
readln
End.
Cho đoạn chương trình sau gồm 10 câu lệnh:
Xác định các câu lệnh sai trong chương trình.
A. 2,4,6 B. 3,6,8 C. 4,6,8 D. 2,3,9
: Để viết chương trình tính diện tích hình thang như dưới đây. Bạn Tuấn đã ghi lại chương trình ra giấy, nhưng cố tình xếp lộn xộn các lệnh và viết sai một số chỗ. Em hãy giúp bạn thay đổi lại trình tự các lệnh và sửa các chỗ sai để được chương trình viết đúng.
Begin;
Uses Crt;
Var a,b,h: Integer;
S: Real
Program hinhthang;
Writeln(‘DT hinh thang la:’,S);
Write(‘Hay nhap hai day va chieu cao=’); Readln(a,b,h)
S := (a+b)*h/2;
Readln;
Tham khảo:
program ct;
uses crt;
var a,b,h,S:integer;
begin clrscr;
writeln('Nhap do dai hai day: '); readln(a,b);
writel('Nhap chieu cao: '); readln(h);
S:=h*((a+b)/2);
writeln('Dien tich hinh thang do la: ',S);
readln;
end.
uses crt;
var s,a,b,h:real;
begin
clrscr;
readln(a,b,h);
s:=(a+b)/2*h;
writeln(s:4:2);
readln;
end.
Câu 1: Cho 1 vài ví dụ về hoạt động lặp đi lặp lại trong cuộc sống?
Câu 2: Các câu lệnh lặp đúng hay sai? Nếu sai sửa lại cho đúng?
a) For i:=10 to 1 do write('a');
b) For i:=1 to 10 do write('a');
c) For i:=1 to 10 do write('a'); write('b');
Bài 3: For i:=1 to n do readln(a); lặp mấy lần?
Bài 4: Cho đoạn chương trình sau: S:=0; For i:= 1 to 5 do S:=S+i;
Hỏi sau khi kết thúc chương trình thì S bằng bao nhiêu?
Bài 5: Viết chương trình tính tổng của 10 số tự nhiên đầu tiên.
Làm nhanh nhanh giúp em nha mấy anh mấy chị. Cảm ơn trước nha. :))
Câu 1:
-Đánh răng rửa mặt mỗi ngày
-Đi học
-Đi ngủ
Câu 2:
a) Sai
Sửa lại: for i:=10 downto 1 do write('a');
b) Đúng
c) Đúng
Câu 3:
Lặp n-1+1=n(lần)
Câu 4:
S=15
Câu 5:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln('Tong cua 10 so tu nhien dau tien la: ',s);
readln;
end.
Các câu lệnh Pascal sau đúng hay sai?Hãy chỉ ra chỗ sai và sửa lại nếu có
a.for i:=1 to 10;do x:=x+1;
b.for i:=10 to 1 do x:=x+1;
c.while i:=1 do t=10;
d.while a<=b;do write('b lon hon a');
a.for i:=1 to 10;do x:=x+1;
-> lệnh sai vì sau "to 10" không có dấu ''
For<biến đếm > := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Sửa lại:for i:=1 to 10 do x:=x+1;
b.for i:=10 to 1 do x:=x+1;
-> lệnh sai vì for i:=10 to 1 giá trị đầu phải nhỏ hơn giá trị cuối(10>1) nên không lặp được.
Sửa for i:=1 to 10 do x:=x+1;
c.while i:=1 do t=10;
-> lệnh sai phép gán giá trị cho biến VD: x:=1
t=10(sai) thiếu dấu ':'
Sửa lại:
while i:=1 do t:=10;
d.while a<=b;do write('b lon hon a');
-> lệnh sai vì Sau While a<=b không có ''(While <điều kiện> do <câu lệnh>)
Sửa lại:
while a<=b do write('b lon hon a');
Các câu lệnh Pascal sau đây được viết đúng hay sai? Sửa lại nó
B) If x> 5 then a:=b; else m: =n;
sai
if x>5 then a:=b
else m:=n;
4.Nhiệm vụ của chương trình dịch là
(1 Điểm)
Dịch chương trình sang tiếng Anh.
Dịch chương trình qua ngôn ngữ Pascal.
Dịch chương trình thành ngôn ngữ máy.
Tất cả đều sai.
5.Câu lệnh nào trong các câu lệnh dưới đây dùng để khai báo tên chương trình?
(1 Điểm)
uses crt;
writeln(‘chao Pascal’);
program BT_1;
progam BT 1;
6.Các thành phần cơ bản của một ngôn ngữ lập trình là:
(1 Điểm)
Các từ khóa và tên.
Bảng chữ cái, các từ khóa và tên.
Bảng chữ cái và các quy tắc viết để viết nên các câu lệnh để tạo nên chương trình hoàn chỉnh.
Chỉ bảng chữ cái và các từ khóa.
7.Câu lệnh nào dưới đây sẽ cho kết quả: Hello Pascal và còn trỏ đứng cuối dòng hiển thị ?
(1 Điểm)
write(‘HELLO PASCAL’);
writeln(‘HELLO PASCAL’);
write(HELLO PASCAL);
writeln(HELLO PASCAL);
8.Trong các tên sau đây, tên nào là không hợp lệ trong ngôn ngữ Pascal?
(1 Điểm)
Tam giac
Tamgiac1
TAMGIAC
Tam_giac
9.Trong Pascal, từ khoá để khai báo thư viện ?
(1 Điểm)
Const.
Begin.
Program.
Uses.
10.Lệnh nào trong các lệnh dưới đây dùng để xoá màn hình kết quả?
(1 Điểm)
Begin.
clrscr.
readln.
End.
Câu 5: Tìm lỗi sai trong các câu lệnh khai bao sau và sửa lại cho đúng.
a) var Start, begin: real;
b) const x:= 50, y:= 500;
c) var a=8;
d) var xep_loai, diem : integer, real;
Giúp mình với !
c: Lỗi sai là chữ var
Sửa lại const a=8;