ndruhazp
Новичок
|
     
Все работает, но нужно чтобы выдавался автоматически на екране после компиляции файл для ввода данных, а так у меня изначально данные сами вводяться!
uses crt;
const N = 20;{кол-во цифр}
var{пусть будут глобальные..}
F:file of integer;
i:byte;
arr:array[1..N] of integer;{массив для наглядности, в него считываем из файла}
procedure FileWrite(filename:string);
begin
assign(f,filename);
rewrite(f);
randomize;
for i:= 1 to N do
write(f,random(100));
close(f);
end;
procedure FileRead(filename:string);
begin
assign(f,filename);
reset(f);
writeln(filename,' source:');
for i:= 1 to N do
begin
read(f,arr);
writeln('arr[',i,'] = ',arr,'; ');
end;
close(f);
end;
begin
clrscr;
FileWrite('file.txt');{заранее создай этот файл сам}
FileRead('file.txt');
writeln('Четные:');
for i:= 1 to N do
if arr mod 2 = 0 then
writeln(arr);
writeln('div 3, not div 7:');
for i:= 1 to N do
if (arr mod 3 = 0) and (arr mod 7 <> 0) then
writeln(arr);
readkey;
end.
(Сообщение отредактировал ndruhazp 18 апр. 2012 23:14)
|
Форум
Помогите пожалуйста с програмкой по теми работа с файлами!
