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.
Câu 1: Để tính diện tích của hình thang, lệnh gán nào sau đây là đúng?
\n\nA. S: (a+b)*H/2; B. S=(a+b)*H/2; C. S:=(a+b)*H/2 ;D. S;= (a+b)*H/2;
\n\nCâu 2: Biến T có thể nhận các giá trị 5,5; 7,3; 8,9; 34; 12. Ta có thể khai báo T thuộc kiểu dữ liệu gì?
\n\nA. Byte B. Word C. Real D. Integer
\n\nCâu 3: Để nhập giá trị vào và gán cho biến x ta thực hiện lệnh nào sau đây ?
\n\nA. Write(x); B. Real(x); C. Writeln(x); D. Readln(x);
\n\nCâu 4: Trong Pascal, biểu thức nào biểu diễn biểu thức tính chu vi hình chữ nhật với 2 cạnh a và b?
\n\nA. a*b B. a+b*2 C. (a+b)*2 D. a*b*2
\n\nCâu 5: Biểu thức Logic nào sau đây dùng để kiểm tra N là số chẵn hay lẽ?
\n\nA. N mod 2 <> 0 B. N div 2 <> 0 C. N > 0 D. N – 2 > 0
\n
- crt: khai báo thư viện crt
- clrscr: xóa màn hình keét quả
- readln: dừng chương trình
- var: khai báo biến
- write: in ra màn hình
P/s: Ko chăc
uses crt;
var n,a,b,q:integer;
begin
clrscr;
write('n='); readln(n);
for a:=1 to n do
for b:=a to n do
if trunc(sqrt(sqr(a)+sqr(b)))=sqrt(sqr(a)+sqr(b)) then writeln(a,' ',b);
readln;
end.
uses crt: thư viện crt;
var a,b,c:real có nghĩa là khai báo a,b,c kiểu số thực
d,x1,x2: real là khai báo d,x1,x2 kiểu số thực
begin: bắt đầu
write('a,b,c:'); : viết(a,b,c)
readln(a,b,c); : đọc(a,b,c)
d:=b*b-4*a*c; : delta được gán bằng b bình -4 nhân a nhân c
if d<0 then writeln('phuong trinh vo nghiem'): nếu d<0 thì viết('phuong trinh vo nghiem')
else: ngược lại
gán x1,x2 lần lượt là hai nghiệm của phương trình
xuất hai nghiệm đó ra màn hình
xong rồi readln; end. có nghĩa là kết thúc chương trình
Bài 1:
program pstg;
uses crt;
var a,b,i,u : integer;
f : text;
BEGIN
clrscr;
assign(f,'PSTG.INP');
reset(f);
read(f, a);
read(f, b);
u:=1;
for i:= 1 to a do if ((a mod i)=0) and ((b mod i)=0) and (i>u) then u:=i;
a:= a div u;
b:= b div u;
assign(f,'PSTG.OUT');
rewrite(f);
write(f, a,' ',b);
close(f);
END.
bài 4 dễ ẹt à
uses crt;
const fi='quediem.inp';
fo='quediem.out';
var i,m,n,d,x,j,csc:longint;
a,b:array[1..1000]of integer;
f1,f2:text;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
{-------------------------tim-so-lon-nhat--------------------------}
write(f2,'so lon nhat la: ');
m:=n;
if m mod 2=0 then
begin
for i:=1 to n div 2 do
write(f2,'1');
end
else begin
write(f2,'7');
for i:=2 to n div 2 do
write(f2,'1');
end;
{----------------------------tim-so-nho-nhat------------------------}
writeln(f2);
a[1]:=2; b[1]:=1;
a[2]:=5; b[2]:=2;
a[3]:=4; b[3]:=4;
a[4]:=6; b[4]:=6;
a[5]:=3; b[5]:=7;
a[6]:=7; b[6]:=8;
d:=(n div 7)+1;
if n mod 7=0 then d:=d-1;
if d=1 then begin
case n of
2:write(f2,'so nho nhat la: ',1);
3:write(f2,'so nho nhat la: ',7);
4:write(f2,'so nho nhat la: ',4);
5:write(f2,'so nho nhat la: ',2);
6:write(f2,'so nho nhat la: ',0);
7:write(f2,'so nho nhat la: ',8);
end;
end;
if d>1 then
begin
write(f2,'so nho nhat la: ');
for i:=1 to d do
if i=1 then begin
b[4]:=6;
for j:=1 to 6 do
begin
x:=n;
x:=x-a[j];
csc:=x div 7+1;
if x mod 7=0 then csc:=csc-1;
if csc=d-i then begin
write(f2,b[j]);
n:=x;
break;
end;
end;
end
else begin
a[1]:=6; b[1]:=0;
a[2]:=2; b[2]:=1;
a[3]:=5; b[3]:=2;
a[4]:=4; b[4]:=4;
a[5]:=3; b[5]:=7;
a[6]:=7; b[6]:=8;
for j:=1 to 6 do
begin
x:=n;
x:=x-a[j];
csc:=(x div 7)+1;
if x mod 7=0 then csc:=csc-1;
if csc=d-i then begin
write(f2,b[j]);
n:=x;
break;
end;
end;
end;
end;
close(f1);
close(f2);
readln;
end.
Đáp án đúng : C