Tệp và thao tác với tệp

-  Tham số hình thức: Là tham số được đưa vào khi định nghĩa chương trình con.

- Tham số thực sự: Là tham số được viết trong lời gọi chương trình con.

- Biến toàn cục : là biến được khai báo trong chương trình chính. 

- Biến cục bộ: Là các biến được khai báo trong chương trình con.

- Tham số biến: là tham số hình thức được thay bằng tham số thực sự tương ứng là tên các biến và được khai báo sau từ khóa var.

 -  Tham số giá trị: là tham số hình thức được thay bằng tham số thực sự tương ứng là các giá trị cụ thể và không được khai báo sau từ khóa var.

-  Tham số hình thức: Là tham số được đưa vào khi định nghĩa chương trình con.

- Tham số thực sự: Là tham số được viết trong lời gọi chương trình con.

- Biến toàn cục : là biến được khai báo trong chương trình chính. 

- Biến cục bộ: Là các biến được khai báo trong chương trình con.

- Tham số biến: là tham số hình thức được thay bằng tham số thực sự tương ứng là tên các biến và được khai báo sau từ khóa var.

 -  Tham số giá trị: là tham số hình thức được thay bằng tham số thực sự tương ứng là các giá trị cụ thể và không được khai báo sau từ khóa var.

Tham số hình thức: Là tham số được đưa vào khi định nghĩa chương trình con.

Uses crt;

Const fi='input.txt'

Fo='output.txt'

Var f1,f2:text;

A,b:array[1..100] of integer;

I,n:integer;

Begin

Clrscr;

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

  Begin

Writeln('Chu vi hinh chu nhat thu ',i,' la: ',(a[i]+b[i])*2);

Writeln(f2,Chu vi hinh chu nhat thu ',i,' la: ',(a[i]+b[i])*2);

End;

Close(f1);

Close(f2);

Readln;

End.

const fi='mk.inp'

fo='mk.out'

var f1,f2:text;

st:string;

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

begin

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

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

readln(f1,st);

d:=length(st);

t:=0;

for i:=1 to d do  

begin

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

t:=t+x;

end;

writeln(f2,t);

close(f1);

close(f2);

end.

Code (C++): https://gist.github.com/minotour4869/f0228185c609ce10e5e7e64ebdb52f84

Chúc bạn học tốt nha 😉.

uses crt;

const fi='data.txt'

var f1:text;

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

n,i:integer;

begin

clrscr;

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

n:=0;

while not eof(f1) do 

  begin

n:=n+1;

read(f1,a[n]);

end;

for i:=1 to n do 

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

close(f1);

readln;

end.

Giống nhau: Đều là hai kiểu dữ liệu có thể chứa được nhiều dữ liệu

const fi='sn.inp'

fo='sn.out'

var f1,f2:text;

a,b:integer;

begin

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

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

readln(f1,a,b);

writeln(f2,a-b);

close(f1);

close(f2);

end.

const fi='sn.inp'

fo='sn.out'

var f1,f2:text;

a,b:integer;

begin

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

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

readln(f1,a,b);

writeln(f2,a-b);

close(f1);

close(f2);

end.

Program HOC24;

const fi='INPUTC2.TXT'

var s,r: real;

f: text;

procedure ip;

begin 

assign(f,fi);

reset(f);

read(f,r);

s:=r*r*pi;

close(f);

end;

begin

ip;

write('S= ',s:1:2);

readln

end.