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

Câu 4: 

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem;

int main()

{

freopen("songuyen3.inp","r",stdin);

freopen("snduong.out","w",stdout);

cin>>n;

dem=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x>0) dem++;

}

cout<<dem;

return 0;

}

uses crt;

var a,b,c,d:integer;

{-------------------chuong-trinh-con-----------------------}

function max(x,y:integer):integer;

begin

if x<y then max:=y

else max:=x;

end;

{----------------------chuong-trinh-chinh----------------------}

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

write('d='); readln(d);

writeln(max(a,max(b,max(c,d))));

readln;

end.

uses crt;

const fi='dulieuvao.dat'

var f1:text;

a,b,c,d,e:array[1.1.00]of integer;

n,m,d,x,v,t,t1,t2,t3,t4,t5,i:integer;

begin

clrscr;

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

n:=0;

while not eoln(f1) do 

  begin

n:=n+1;

read(f1,a[n]);

end;

readln(f1);

m:=0;

while not eoln(f1) do 

 begin

inc(m);

read(f1,b[m]);

end;

readln(f1);

d:=0;

while not eoln(f1) do 

 begin

inc(d);

read(f1,c[d]);

end;

readln(f1);

x:=0;

while not eoln(f1) do 

 begin

inc(x);

read(f1,d[x]);

end;

readln(f1);

v:=0;

while not eoln(f1) do 

 begin

inc(v);

read(f1,e[v]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Tong cua day 1 la: ',t);

t1:=0;

for i:=1 to m do 

  t1:=1+b[i];

writeln('Tong cua day 2 la: ',t1);

t2:=0;

for i:=1 to d do 

  t2:=t2+c[i];

writeln('Tong cua day 3 la: ',t2);

t3:=0;

for i:=1 to x do 

  t3:=t3+d[i];

writeln('Tong cua day 4 la: ',t3);

t4:=0;

for i:=1 to v do 

  t4:=t4+e[i];

writeln('Tong cua day 5 la: ',t4);

close(f1);

readln;

end.

Mạng cục bộ (LAN-Local Area NetWork) là mạng kết nối các máy tính ở gần nhau, chẳng hạn như 1 phòng ,1 tòa nhà, 1 xí nghiệp, 1 trường học…

một file văn bản trênđĩa có tên là INPUT.DAT chứa hqi dòng dữ liệu, dòng đầu tiên chứa số dương a(a>7), dòng thứ 2 là dãy gồm a số nguyên.

const fi='input.txt'

fo='output.txt'

var f1,f2:text;

n:integer;

begin

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

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

readln(f1,n);

if n<0 then writeln(f2,n,' la so am')

else if n=0 then writeln(f2,n,' khong la so am cung khong la so duong')

else writeln(f2,n,' la so duong');

close(f1);

close(f2);

end.