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 ạ
Câu 14 (2,0 điểm): Trong các câu lệnh lặp trong Pascal sau đây đúng hay sai. Vì
sao?
a. While i<5 do i=i+1;
b. While 3=3 do i:=i+1;
c. While x<3 do x:=x+1;
d. For i:=2.5 to 10 do x:=x+1;
Cho biết giá trị của biến S và n sau khi thực hiện đoạn chương trình trên
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.
Câu 1: Mỗi câu lệnh dưới đây đều có lỗi sai, em hãy sửa lại cho đúng
a) For i:= 17 to 109 do writeln (‘a);’
b) For i:= 1 to 10 do x=x+1;
c) S:= 7
While S:= 15 do n:=n+s;
d) Var a:=array [1…100] of real;
Câu 2: Viết chương trình Pascal tính và in giá trị của tổng S ra màn hình với
S= 1000+1001+1002+…+1021
Câu 3: Nêu cú pháp sử dụng lệnh For…do lệnh While…do:
Câu 4: Nêu cú pháp khai báo biến mảng trong chương trình Pascal:
Giải giúp mình với mai cô kiểm tra rồi!!!
Em hãy xác định các câu lệnh sau đây đúng hay sai? Nếu sai hãy giải thích tại sao?
a) For i:=150 to 1 do writeln(‘A’);
b) For i:=1.5 to 30.5 do writeln(‘B’);
c) S:=0;n:=0; While S<=20 do begin n:=n+1;S:=S+n; end
d) Var X: array[10..1] of integer;
e) Var X: array[1,5...20,5] of integer;
f) Var X: array[1..30] of integer;
Trong các câu lệnh Pascal sau đây có câu lệnh nào sai và ở đâu : a.for :=10 to 2 do write (' A'); b.for :=15 to 5 do write ('A') c.while ( n mod 20 ) đó i :=i+1 Giúp mình với mái mình thì rồi. 😭😭😭😭
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;
Bài 1: Tìm chổ sai trong các lệnh khai báo sau và sửa lại cho đúng A, Var start, begin : real; B, Const x: = 3.14; y:= 1000; C, Var a:=5; D, Const ten lop = ‘8E’; E, Var Xep_loai, diem :Integer, real; F, Var nguyen1, nguyen2 : Integer, thuc1, thuc2: real; G, Const 3ban = ‘Cuong’ , ‘Anh’, ‘Dung’; H, Const ten_nhom = Tin hoc;
Bài 2: Giả sử trong một chương trình Pascal, a và b là hai biến kiểu số nguyên, r là kiểu số thực và s là một biến kiểu xâu. Các phép gán nào sau đây là không hợp lệ A, a : = 120; B, r:=a/b; C, s:=’ truong luu vinh’; D, a:=32.000; E, a:=b mod 3; F, s:=a +b + r; G, a:= 65000; H, a:=a mod b; I, r:= s; J, a:=r; K, r:=a div b; L, a:=a/b;
Bài 3. Viết chương trình tính diện tích tam giác biết chiều cao và cạnh đáy nhập vào từ bàn phím
Bài 4. Viết chương trình nhập vào hai số nguyên a,b và tính trung bình cộng của hai số
Bài 5. Hãy chỉ ra INPUT và OUTPUT của các bài toán sau: a. Xác định số học sinh trong lớp cùng mang họ Trần. b. Tính tổng của các phần tử lớn hơn 0 trong dãy n số cho trước. Bài 6. Giả sử x và y là các biến số. Hãy cho biết kết quả của việc thực hiện thuật toán sau: Bước 1. x x + y Bước 2. y x - y Bước 3. x x – y
Bài 7: Xây dựng thuật toán để giải bài toán: Cho trước ba số dương a, b, c. Hãy cho biết 3 số đó có phải là độ dài ba cạnh của một tam giác hay không? Bài 8. Tìm hiểu ví dụ 6 mục 4 bài 5. Viết lại thuật toán tìm giá trị lớn nhất và nhỏ nhất của dãy số a1,a2,a3…. an cho trước.
giúp mk T_T
II. TU LUAN (64) Câu 9 (1.5 điểm). Chỉ ra lỗi sai trong các chương trình dưới đây và sửa lại cho đúng
(C) program tinh_a_mu_ng
var i,n: integer;
a, gia tri: real;
begin
write ('Cho so a: ');readln(a);
write ('Cho so mu n:');readin(n)
i :=1 giatri := 1 ;
while i < n do
begin
giatri :=giatri* a;
i:= i + 2
end;
writeln('a mu n bang : ", giatri);
end.
Câu 1: Hãy điền đúng , sai (đánh dấu x) và sửa chương trình sau: (3điểm)
Viết chương trình tính H và tìm n biết H= 
và H >1.85
Câu lệnh | Đ | S | Sửa lỗi |
Use_Crt; |
|
|
|
Var I, n,H :interge; |
|
|
|
Begin; |
|
|
|
H:=1; n:=0; |
|
|
|
clrscr; |
|
|
|
while H<= 1.85 do |
|
|
|
begin n:=n+2; |
|
|
|
if n mod 2 =1 then H:= H+1/n; |
|
|
|
End. |
|
|
|
writeln('so can tim la ,n,’tong la:,H); |
|
|
|
readln end; |
|
|
|
