K
Khách

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.

18 tháng 2 2021

Program HOC24;

const fi='DL.INP';

fo='DL.OUT';

var s: string;

d,i: byte;

f: text;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,s);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

d:=0;

for i:=1 to length(s) do if s[i] in ['0'..'9'] then inc(d);

write(f,d);

close(f);

end;

begin

ip;

out;

end.

const fi='dl.inp';

fo='kq.out';

var f1,f2:text;

s:string;

d,i,dem:integer;

begin

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

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

readln(f1,s);

d:=length(s);

dem:=0;

for i:=1 to d do 

  if s[i] in ['0'..'9'] then inc(dem);

writeln(dem);

readln;

end.

uses crt;

const fi='songuyen.inp';

fo='songuyen2.out';

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

i,n,t1:integer;

f1,f2:text;

begin

clrscr;

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

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

readln(f1,n);

for i:=1 to n do readln(f1,a[i]);

t1:=0;

for i:=1 to n do if a[i] mod 2<>0 then t1:=t1+a[i];

writeln(t1);

writeln(f2,t1);

for i:=1 to n do 

  if a[i] mod 2<>0 then write(a[i]:4);

close(f1);

close(f2);

readln;

end.

const fi='vanban.inp';

fo='vanban.out';

var f1,f2:text;

dem,i:integer;

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

begin

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

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

dem:=0;

while not eof(f1) do 

begin

inc(dem);

readln(f1,a[dem]);

end;

writeln(f2,dem);

close(f1);

close(f2);

end.

Tập tin (viết tắt cho tập thông tin; còn được gọi là tệptệp tin); tiếng Anh: file; là một tập hợp của thông tin được đặt tên. Thông thường thì các tập tin này chứa trong các thiết bị lưu trữ như đĩa cứng, đĩa mềm, CD, DVD cũng như là các loại chip điện tử dùng kĩ thuật flash có thể thấy trong các ổ nhớ có giao diện USB

*suprise*

make friend with me

tệp tin ( file ) là tập hợp các thông tin có liên quan với nhau được lưu trữ trên bộ nhớ ngoài. Cụ thể tệp tin là các chương trình , dữ liệu được lưu trên đĩa . Để phân biệt các tệp tin với nhau thì mỗi cái có 1 tên

các loại tệp tin là âm thanh, hình ảnh, văn bản, chương trình

26 tháng 2 2021

Bài 1:

Program HOC24;

const fi='in.txt';

fo='out.txt';

var f: text;

i,n: integer;

t: longint;

procedure ip;

begin 

assign(f,fi);

reset(f);

read(f,n);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

t:=1;

for i:=1 to n do t:=t*i;

write(f,t);

close(f);

end;

begin

ip;

out;

end.

Bài 2:

 

Program HOC24;

const fi='in.txt';

fo='out.txt';

var f: text;

i: byte;

a: array[1..4] of string;

procedure ip;

begin 

assign(f,fi);

reset(f);

for i:=1 to 4 do readln(f,a[i]);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

for i:=1 to 4 do writeln(f,a[i]);

close(f);

end;

begin

ip;

out;

end.

1: 

const fi='inp.txt';

fo='out.txt';

var n,i:integer;

s:real;

begin

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

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

readln(f1,n);

s:=1;

for i:=1 to n do 

  s:=s*i;

writeln(f2,s:4:2);

close(f1);

close(f2);

end.

16 tháng 11 2017

- Tệp tin là đơn vị cơ bản để lưu trữ thông tin trên thiết bị lưu trữ

- Các loại tệp tin:

+ Tệp Hình ảnh, Ví dụ: Hình ảnh gia đình,….

+ Tệp âm thanh, Ví dụ: Bài nhạc,….

+ Tệp văn bản, Ví dụ: Bài thơ, bài báo,….

+ Các chương trình, Ví dụ: phần mềm học tập, phần mềm trò chơi, phần mềm ứng dụng.

const fi='mang.txt';

fo='tong.txt';

var f1,f2:text;

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

n,i,t:integer;

begin

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

assign(f2,fo); rewriteln(f2);

n:=0;

while not eof(f1) do 

  begin

inc(n);

read(f1,a[n]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,t);

close(f1);

close(f2);

end.

const fi='dulieu.txt';     

fo='ketqua.txt';

var f1,f2:text;   

a,b,c,d:array[1..100]of integer;   

i,n,dem,dem1:integer;

begin

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

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

n:=0;

while not eof(f1) do 

begin     

n:=n+1;     

readln(f1,a[n],b[n]); 

end;

dem:=0;

dem1:=0;

for i:=1 to n do 

if a[i]>b[i] then     

begin       

inc(dem);       

inc(dem1);       

c[dem]:=a[i];       

d[dem]:=b[i];     

end 

else begin         

inc(dem);         

inc(dem1);         

c[dem]:=b[i];         

d[dem]:=a[i];       

end;

for i:=1 to dem do 

write(f2,c[i]:4);

writeln(f2);

for i:=1 to dem1 do 

write(f2,d[i]:4);

close(f1);

close(f2);

end.