Guardar Arquivos
1
7/23/2019 Guardar Arquivos http://slidepdf.com/reader/full/guardar-arquivos 1/1 Program numeros ; var i: integer; numero: array [1..10] of integer; mult: array [1..9] of integer; UserFile: text; Begin assign( UserFile , 'C:\pascalzim\dados.txt' ) ; rewrite( UserFile ) ; writeln ('Digite os numeros: '); for i := 1 to 10 do begin readln (numero[i]); end; clrscr ; for i := 1 to 9 do begin mult[i]:= numero[i]*numero[i+1]; end; for i := 1 to 9 do begin writeln (UserFile,mult[i]); end; close( UserFile ) ; End. -------------------------------------------------------------------------------- --- Program numeros2 ; var UserFile: text; num: integer; Begin assign( UserFile , 'C:\pascalzim\dados.txt' ) ; reset( UserFile ) ; repeat readln (UserFile, num); writeln (num, ' = ' ,sqrt(num)); until EOF (UserFile ); close( UserFile ) ; End.
-
Upload
julia-marques -
Category
Documents
-
view
216 -
download
0
Transcript of Guardar Arquivos
7/23/2019 Guardar Arquivos
http://slidepdf.com/reader/full/guardar-arquivos 1/1
Program numeros ;var i: integer;numero: array [1..10] of integer;mult: array [1..9] of integer;UserFile: text; Begin assign( UserFile , 'C:\pascalzim\dados.txt' ) ;
rewrite( UserFile ) ; writeln ('Digite os numeros: '); for i := 1 to 10 do begin readln (numero[i]); end; clrscr ;for i := 1 to 9 do
begin mult[i]:= numero[i]*numero[i+1]; end; for i := 1 to 9 do
begin writeln (UserFile,mult[i]); end; close( UserFile ) ; End.
-----------------------------------------------------------------------------------
Program numeros2 ;var UserFile: text;num: integer; Begin
assign( UserFile , 'C:\pascalzim\dados.txt' ) ; reset( UserFile ) ; repeat readln (UserFile, num); writeln (num, ' = ' ,sqrt(num)); until EOF (UserFile ); close( UserFile ) ; End.
