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 vì dư dấu " ; " trước chữ " then "
B) Sai vì thiếu chữ " write( " sau chữ " then "
C) Sai vì thiếu dấu " = " ở lệnh gán giá trị
D) Sai vì thiếu dấu " : " trước dấu " = " ở lệnh gán giá trị
A: Sai vì dư dấu ;
B: Sai vì thiếu dấu (
C: Sai vì thiếu điều kiện và thiếu dấu = ở phép gán
D: Đúng
Bạn làm thiếu begin và end nhé. Vì ở dòng 12 bạn dùng else nhưng trước nó không có câu lệnh điều kiện.
program CTT5;
uses crt;
var a,b : integer;
begin
writeln('Nhap so hang dau tien : ');readln(a);
writeln('Nhap so hang thu hai : ');readln(b);
if b=0 then
Begin
writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Khong the chia cho 0');
end
else
begin
writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Ket qua phep chia la : ',a div b);
end;
readln;
end.
Cho em hỏi writeln('ket qua phep cong la: ',a+b); có ý nghĩa gì vậy ạ
program bai1;
uses crt;
var x,y,n:integer;
begin
clrscr;
x:=7;
n:=2.68;
write('nhap so x:'); readln(x);
write('nhap so y:');readln(y);
if x mod 2 =0 then y:=y*x
else y:=y*n;
write('ket qua phep tinh la:', y);
readln
end.
Program GPTBN ;
var a,b: Real ;
Begin
Write( 'Nhap he so a,b cua phuong trinh :'); Readln (a,b);
if a<>0 then writeln ('Phuong trinh co nghiem duy nhat x=' ,-b/a:0:4)
else if b=0 then writeln (' Phuong trinh co vo so nghiem ')
else writeln (' phuong trinh vo nghiem ');
Readln;
End.
program gptbn;
uses crt;
var a,b:real;
begin
write('Nhap he so a,b cua phuong trinh: ');readln(a,b);
if a <> 0 then writeln('Phuong trinh co nghiem duy nhat x= ',-b/a:0:4)
else if b = 0 then writeln('Phuong trinh co vo so nghiem')
else writeln('Phuong trinh vo nghiem');
readln
end.
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;
Program So sanh;
Uses crt;
Var m, n= integer;
Begin
Clrscr;
Writeln('Hay nhap so m va n');
if m > n then writeln(m lon hon n);
if m < n then writeln(m nho hon n);
else writeln('m bang n');
readln
End.
co 4 loi sai
if a mod 2:=0 là sai ở chỗ :
writeln(a,'la so chan); là sai ở chỗ sau chữ n thiếu dấu '
writln sai ở chỗ thiếu chữ e
(a,'la so le') sai ở chỗ thiếu chấm phẩy sau cùng