Bài 14: Kiểu dữ liệu tệp

a)

PROGRAM BAI1a;

VAR N, Tle, Tchan: integer;

BEGIN

          Write ('Nhap N =');

          Readln (N);

          If (N mod 2) = 0 Then

          Tle := N*((N - 2)/2 + 1)/2;

          Tchan := (N + 2)*((N - 2)/2 + 1)/2;

          If (N mod 2) = 1 Then

          Tle := (N + 1)*((N-1)/2 +1)/2;

          Tchan := (N + 1)*((N - 3)/2 + 1)/2;

          WRITELN ('Sle =', Sle, 'Schan =', Schan);

          READLN;

          END.

uses crt;

const fi='tong5.txt'

var f1:text;

n,i,t:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do

  if i mod 5=0 then t:=t+i;

writeln(f1,t);

close(f1);

readln;

end.

Program HOC24;

var i,n,d,b,t: integer;

begin

write('Nhap so tu nhien N: '); readln(n);

d:=0; t:=0;

while n<>0 do

begin

b:=n mod 10;

d:=d+1;

t:=t+b;

n:=n div 10;

end;

writeln(n,' co ',d,' chu so');

write('Tong cac chu so chu n la: ',t);

readln

end.

*Cách khác

uses crt;

var n,i,d,x,y,t:integer;

st:string;

begin

clrscr;

write('Nhap n='); readln(n);

str(n,st);

d:=length(st);

writeln('So chu so cua ',n,' la: ',d);

t:=0;

for i:=1 to d do

  begin

val(st[i],x,y);

t:=t+x;

end;

writeln('Tong cac chu so cua ',n,' la: ',t);

readln;

end.

const fi='bai25.inp'

fo='bai25.out'

var f1,f2:text;

a:array[1..1000]of integer;

i,n,dem,dem1,d:integer;

kt:boolean;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

dem:=0;

dem1:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then inc(dem)

else inc(dem1);

writeln(f2,'So luong so chan la: ',dem);

writeln(f2,'So luong so le la: ',dem1);

d:=abs(a[2]-a[1]);

kt:=true;

for i:=2 to n do

  if abs(a[i]-a[i-1])<>d then

begin

kt:=false;

break;

end;

if kt=true then writeln(f2,'Day la day cap so cong')

else writeln(f2,'Day khong la day cap so cong');

close(f1);

close(f2);

end.

Program HOC24;

const fi='bai24.inp'

fo='bai24.out'

var f: text;

s: string;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,s);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

if s='palindrome' then write(f,'La xau palindrome') else write(f,'Khong phai xau palindrome');

close(f);

end;

begin

ip;

out;

end.

const fi='bai24.inp'

fo='bai24.out'

var f1,f2:text;

s:string;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,s);

if s='palindrome' then writeln(f2,'Phai')

else writeln(f2,'Khong phai');

close(f1);

close(f2);

end.

Câu 24: A

Câu 25: A

Câu 1. Xét theo cách thức truy cập dữ liệu, tệp được phân thành những loại nào?

A.  Tệp truy cập tuần tự và tệp truy cập trực tiếp.

B.  Tệp văn bản và tệp có cấu trúc.

C.  Tệp truy cập tuần tự, tệp truy cập trực tiếp và tệp có cấu trúc.

D.  Tệp văn bản, tệp có cấu trúc và tệp số nguyên.

Câu 2. Để khai báo biến tệp văn bản, ta dùng cú pháp:

A. var <tên biến tệp>: text;                             B. var <tên tệp>: text;

C. var <tên biến tệp, tên tệp>: text;                  D. var <tên biến tệp>: string;

Câu 4. Cú pháp của câu lệnh gắn tên tệp cho biến tệp:

A. assign(<biến tệp>, <tên tệp>);                     B. assign(<tên tệp>, <biến tệp>);

C. assign(<biến tệp>; <tên tệp>);                     D. assign(<tên tệp>);

Câu 1: B

Câu 2: A

Câu 3: D

Câu 4: B

Câu 5: Không có câu nào đúng

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.

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.

Bạn nào giỏi về cái này giúp mình với ạ

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Day A=');

for i:=1 to n do 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do

  if a[i] mod 2=0 then t:=t+a[i];

writeln('Tong cac so chan la: ',t);

readln;

end.

program bai_tap;
var i,d:integer;
begin
d:=0;
for i:= 100 to 999 do
begin
if (i mod 2 = 0) and (i mod 3 = 0) and (i mod 5 = 0 ) then
begin
write(i,' ');
inc(d);
end;
if d = 5 then
begin
d:=0;
writeln;
end;
end;
readln
end.

program bai1;

var a,b,c:longint;

begin

for a:=1 to 9 do

for b:=0 to 9 do

for c:=0 to 9 do

if (((a*100+b*10+c) mod 2=0) and ((a*100+b*10+c) mod 3=0) and ((a*100+b*10+c) mod 5=0)) then write(a*100+b*10+c);

readln

end.

thiếu xuống dòng

thêm ở chỗ if........ then

begin

dem:=0;

write(a*100+b*10+c);

if dem=5 then writeln;