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.
program bt;
uses crt;
var n,i,j:word;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n+1 do a[i]:=0;
a[1]:=1;
for i:=0 to n do
begin
for j:=i+1 downto 2 do a[j]:=a[j]+a[j-1];
for j:=1 to i+1 do write(a[j]:3);
writeln;
end;
readln;
end.
đây chỉ là bài ví dụ cho bạn áp dụng nhé:
var i,j,k,n,m:longint; f1,f2:text; S,St:string; function ktsnt(n:qword):boolean; var k:qword; begin ktsnt:=false; k:=2; if n<2 then exit; if n=2 then ktsnt:=true; while k*k <= n do begin if n mod k = 0 then exit; inc(k); end; ktsnt:=true; end; {---------------------------------------------------------------} function daonguoc(n:qword):boolean; begin str(n,S);St:=''; for i:=length(S) downto 1 do St:=St+S[i]; val(St,k); if ktsnt(k) then daonguoc:=true else daonguoc:=false; end; {---------------------------------------------------------------} begin assign(f1,'daonguoc.inp');reset(f1); assign(f2,'daonguoc.out');rewrite(f2); readln(f1,n,m); for j:=n to m do if daonguoc(j) then writeln(f2,j); close(f1);close(f2);end.
Từ khóa: program; uses; begin; end; writeln
Tên: CT_Dau_tien; Crt
Từ khóa: program, uses, begin, writeln, End.
Tên: CT_Dau_tien, Crt
soluong: Biến
Dongia: Biến
thanhtien: Biến
phi: Hằng
Tinh_tien: Không phải hằng hoặc biến
|
|
Hằng |
Biến |
Không phải hằng hoặc biến |
|
soluong |
|
x |
|
|
Dongia |
|
x |
|
|
thanhtien |
|
x |
|
|
phi |
x |
|
|
|
10000 |
|
|
x |
|
Tinh_tien |
|
|
x |
Kết quả in ra màn hình là x=9,y=7
Đây là câu lệnh để hoán vị giá trị của x và y cho nhau.
Bạn tham khảo chương trình này nhé!
program ma_hoa_va_giai_ma;
uses crt;
var s : string;
i,a : integer;
t : char;
BEGIN
clrscr;
repeat
write('Nhap 1 de ma hoa, 2 de giai ma'); readln(a);
if(a<>1) and (a<>2) then writeln('Moi ban nhap lai');
until (a=1) or(a=2);
if a=1 then
begin
write('Nhap xau can ma hoa: '); readln(s);
write('Xau ket qua la: ');
for i:=1 to length(s) do
begin
t:=upcase(s[i]);
if (ord(t) >= 65) and (ord(t) <= 90) then
write(chr(((ord(t)-58) mod 26)+65)) else write(t);
end;
end
else if a=2 then
begin
write('Nhap xau can giai ma: '); readln(s);
write('Xau ket qua la: ');
for i:= 1 to length(s) do
begin
t:=upcase(s[i]);
if (ord(t) >= 65) and (ord(t) <= 90) then
write(chr(((ord(t)-46) mod 26)+65))
else write(t);
end;
end;
readln;
END.
Cái này giống bảng mã ASCII đó bạn. Bạn chỉ cần sử dụng câu lệnh chr và ord thôi.
bạn gõ cho mình đoạn code nhé, please
bạn chạy chương trình được chưa
@nguyễn chơn nhân rồi bạn ạ
bn ơi bn có thể giải thích không? chổ chr(ord)-58)mod 26)+65 vs chr(ord)-46)mod 26)+65 vậy nếu đề là cho tăng them 5 thì sao