a) if a>b then max:=a; else max:=b; |
b) var X: Array[5..10] Of Real; |
c) X:=10; while X:=10 do X := X+5; |
d) for i:=1.5 to 10 do m:=m + 1; e) if a>b then max:=a else max:=b; f) var X: Array[5.5..10] Of Real; g) X:=10; while X>10 do X := X+5; h) for i:=1.5 to 10 do m:=m + 1; III. Hãy viết các câu lệnh, khai báo theo yêu cầu sau: A. Khai báo mảng A gồm 50 phần tử thuộc kiểu dữ liệu số thực. B. Phần tử thứ 5 của mảng A được gán giá trị là 8. C. Khai báo mảng dayso gồm 50 phần tử thuộc kiểu dữ liệu số nguyên. D. Nhập giá trị cho phần tử thứ 2 trong mảng diem. IV. Bài tập Viết chương trình thực hiện các yêu cầu sau: a. Nhập điểm văn và điểm toán của n học sinh trong một lớp (n nhập từ bàn phím) b. Tính điểm trung bình của mỗi học sinh (kết quả lấy 1 chữ số thập phân) help với mai ktr ;-;
|
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.
a) sai chỗ x:=100 và thiếu ;
Sửa lại: if x=100 then x:=x+1;
b) Dấu gán sai(thiếu dấu hai chấm)
Sửa lại: if a<b then max:=b;
c) Sai chỗ trước else(bởi nguyên tắc là trước else không bao giờ có;)
Sửa lại: if a>b then max:=a else max:=b;
d) Dấu gán sai(thiếu dấu hai chấm)
Sửa lại: if a>b then max:=a else max:=b;
a,sai chấm phẩy ở cuối câu
if x:=100 then x:=x+1;
b, thiếu hai chấm ở phần gán max = b
if a<b then max:=b;
c, thừa dấu hai chấm ở trước else
if a>b then max:=a else max:=b;
d, thiếu dấu hai chấm ở phần gán max=a
if a>b then max:=a else mã:=b
1) Điều kiện B mod 2 <> 0 nếu đúng có ý nghĩa gì?
a) B là số dương b) B là số âm c) B là số chẵn d) B là số lẻ
2) Cấu trúc rẽ nhánh dạng đầy đủ:
a) If điều kiện then câu lệnh 1; else câu lệnh 2;
b) If điều kiện then câu lệnh 1else câu lệnh 2;
c) If điều kiện then câu lệnh;
d) If điều kiện then câu lệnh else câu lệnh;
3) Tìm số chẵn/ lẻ bằng câu lệnh nào sao đây :
a) If X mod 2= 0 then Writeln(' X là số lẻ ');
b) If X mod 2= 0 then Writeln(' X là số chẵn ');
c) If X mod 2= 0 then Writeln(' X là số lẻ ') else Writeln(' X là số chẵn ');
d) If X mod 2= 0 then Writeln(' X là số chẵn') else Writeln(' X là số lẻ ');
4) Tìm số lớn nhất trong 3 số x, y, z bằng câu lệnh nào sau đây:
a) max:=x; If y < max then max:= y else max:= z;
b) max:=x; If y > max then max:= y else max:= z;
c) max:=x; If y > max then max:= y; if z > max then max:= z;
d) max:=x; If y < max then max:= y; if z < max then max:= z;
5) Pascal sử dụng câu lệnh lặp nào sau đây là cấu trúc rẽ nhánh dạng thiếu
a) For ... to ... do; b) If ...then; c) If ...then...else d) While ...do;
6) Chọn câu lệnh Pascal hợp lệ trong các câu sau:
a) If a = 6 then x:= 100; b) If a > b then max:= a; else max:= b;
c) If a > b then max = a; d) If x := a + b then x: =x + 1;
III:
A: var a:array[1..50]of real;
B: a[5]:=8;
C: var a:array[1..50]of integer;
D: readln(dem[2]);