3 5 8
0 15 23
Mn chỉ giúp mình cách đọc dữ liệu từ tệp này vs
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.
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la: ',max);
writeln('So nho nhat la: ',min);
readln;
end.
uses crt;
const fi='xau.txt';
var f1:text;
s:string;
i,d,kt:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,s);
d:=length(s);
kt:=0;
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=1;
if kt=0 then writeln('Xau doi xung')
else writeln('Xau khong doi xung');
readln;
end.
const fi='input.inp';
fo='output.out';
var a,b:integer;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
if a<b then writeln(f2,a)
else writeln(f2,b);
close(f1);
close(f2);
end.
const fi='hcn.inp';
fo='hcn.out';
var f1,f2:text;
a,b:array[1..100]of integer;
i,j,n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
inc(n);
readln(f1,a[n],b[n]);
end;
for i:=1 to n do
writeln(f2,2*(a[i]+b[i]),' ',a[i]*b[i]);
close(f1);
close(f2);
end.
gọi tệp này là so.inp
uses crt;
const fi='so.inp';
var f1:text;
a,b:array[1..3]of integer;
i,j:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
for i:=1 to 3 do
read(f1,a[i]);
readln(f1);
for j:=1 to 3 do
read(f1,b[j]);
{------------------------xuat------------------}
for i:=1 to 3 do
write(a[i]:4);
writeln;
for j:=1 to 3 do
write(b[j]:4);
close(f1);
readln;
end.
Em tham khảo cách sử dụng tệp tại link này nhé: https://hoc24.vn/hoi-dap/question/821614.html