Hic, không ai giúp em à
........................
Type: Posts; User: nhat_truong; Keyword(s):
Hic, không ai giúp em à
........................
Lệnh blockread có 2 dạng: dạng đủ và dạng thiếu:
1. Blockread(var F: file; var Buffer; NumRec: Integer; Var RecRead: Integer)
2. Blockread(var F: file; var Buffer; NumRec: Integer);
F: Biến File...
thì chủ yếu là bạn ấy muốn máy tự chọn n phù hợp mà, tất nhiên là không được rồi
các bác giúp em giải bài chia kẹo cho 3 người với.
em chỉ giải được bài chia kẹo cho 2 người, còn 3 người thì chịu.
mong được giúp đỡ
thân
bạn hiểu sai ý của tuananh rồi
ý bạn ấy hỏi có cú pháp write(x:n:1) để in ra số x với độ dài n thay đổi phụ thuộc x.
ví dụ: x=345.23 --> n=5 và in ra '345.2' (không có khoảng trắng phía trước)
rất...
to etc2012
uses crt;
var n, i, j: integer;
begin
clrscr;
write('Nhap N: ');
readln(N);
for i:=N downto 1 do
var N, i, j, s, lmax, imax, jmax: integer;
begin
write('Nhap N: ');
readln(N);
lmax:=0;
for i:=1 to N div 2 do
begin
s:=i; j:=i;
while s<=N do...
const fi = 'BCNN.INP';
fo = 'BCNN.OUT';
var m, n: integer;
function UCLN(a, b: integer): integer;
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
UCLN:=a;
end;
bài 2
var st: string;
ch: char;
i : byte;
begin
write('Nhap xau st: ');
readln(st);
write('Nhap ki tu ch: ');
Giải thích các lệnh:
1. reset(f,30); ---> mở file không kiểu f với kích thước bản ghi là 30 byte
2. blockread(f,buf,2); ---> đọc 2 bản ghi từ file f vào vùng đệm buf
==> Số byte đọc đươc từ...