Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ex
Language: PASCAL
Code:
Program ex1;
uses wincrt; 
type tab = array[1..30] of integer;
var f:file of integer;
    i,x,N,K:integer;
    t:tab;

Procedure remplir(var n:integer ; var f:fiche)
  begin
    reset(f);
    for i := 1 to n do
      writeln('Donner un entier: ');
      readln(x);
    repeat
      readln(N);
    until (n >= 5) a,d (n <= 20);
  end;

Procedure compter(N:integer ; var f:fiche):integer;
  begin
    reset(f);
    k := 0;
    for i := 1 to n do
     begin
      read(f,x);
      if x = 0 then k := k + 1;
     end;
    close(f);
  end;

Procedure nettoyer(var n:integer ; var f:fiche)
 begin
  reset(f);
  N := 0;
  for i := 1 to filesize(f) do
   begin
    read(f,x);
    if x <> 0 then n := n +1; t[N] := x; 
   end;
  close(f);
  delete(f);
  rewrite(f)
  for i := 1 to n do
 write(f,T[i]);
close(f);
 end;  

begin
assign(f,'C:\nettoyer.dat');
rewrite(f);
remplir(n,f);
k := compter(n,f);
writeln('Le nombre de valeur nulle est: ',k)
nettoyer(n,f);
affiche(n,f);
end.
Comments: