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.
!!!!!!!!!
const
fi='botri.inp';
fo='botri.out';
var
f:text;
i,n,t:integer;
procedure inp;
begin
assign(f,fi);
reset(f);
read(F,n);
closE(F);
end;
procedure out;
begin
assign(f,fo);
rewrite(F);
t:=1;
for i:=n-1 downto 1 do
t:=t*i;
t:=t*2;
write(f,t);
closE(F);
end;
BEGIN
INP;
OUT;
END.
vd:
Program chuongtrinhnhapmang;
var n:integer;
begin
write('Nhap n='); readln(n);
end;
Những từ in đậm là từ khóa
in nghiêng là tên chương trình
Program là từ khóa;
CT_dau_tien là tên;
begin là từ khóa;
writeln là từ khóa;
1B 4C
2A 5A
3C 6C
7.
program TBC;
uses crt;
var a,b,tbc:real;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
tbc:=(a+b):2;
writeln('tbc cua hai so a va b la:',tbc:6:2);
readln;
end.
Nó là từ khóa ( không bắt buộc có thể thay)
Crt là tên thứ viện
Clrscr dùng để xóa hết và hiện thứ cái mới sau khi mở lại lần nữa
Write dấu này | sẽ đc hiện thị ở cuối dòng
Writeln dấu này | sẽ qua dòng tiếp theo( nếu có)
Dừng lại để đọc để ở cuối phần trình bày trên chữ End. ( ko phải End;) or để chỉnh lại câu lại có trong ngoặc readln(x)
Sơn nhiều người hiểu lầm thì End; ở đây xuất hiện khi mở thêm 1 lệnh begin khi cần, học kì 2 lớp 8 sẽ đc học ở phần sau nữau
crt: tên chuẩn
clrscr: từ khóa
write: từ khóa
writeln: từ khóa
readln: từ khóa
const
fi='botri.inp';
fo='botri.out';
var
f:text;
i,n,t:integer;
procedure inp;
begin
assign(f,fi);
reset(f);
read(F,n);
closE(F);
end;
procedure out;
begin
assign(f,fo);
rewrite(F);
t:=1;
for i:=n-1 downto 1 do
t:=t*i;
t:=t*2;
write(f,t);
closE(F);
end;
BEGIN
INP;
OUT;
END.
tại sao lại có :
for i:=n-1 downto 1 do
t:=t*i;
t:=t*2
vậy bạn?