Процедуры и функции обработки файлов

@Владимир199 · Регистрация: 17.05.2015

Author24 — интернет-сервис помощи студентам

Сформировать файл последовательности 15 чисел, в котором каждый i-й компонент определяется по формуле: Название: 2018-04-15_22-26-04.png
Просмотров: 24

Размер: 5.4 Кб

Название: 2018-04-15_22-26-04.png
Просмотров: 24

Размер: 5.4 Кб

определить количество отрицательных значение, содержащихся в сформированном файле.

@Puporev · 15.04.2018, 07:49

Pascal

uses crt;
type tfile=file of real;
procedure WriteFile(var f:tfile);
var i:integer;
    y:real;
begin
assign(f,'result');
rewrite(f);
for i:=1 to 15 do
 begin
  if i<=8 then y:=sin(i*pi/8)
  else y:=4*cos(i*(pi+1)/5);
  write(f,y);
 end;
end;
procedure ReadFile(var f:tfile);
var y:real;
begin
writeln('Содержание созданного файла');
reset(f);
while not eof(f) do
 begin
  read(f,y);
  write(y:5:2);
 end;
writeln;
end;
function KolOtr(var f:tfile):integer;
var y:real;
    k:integer;
begin
reset(f);
k:=0;
while not eof(f) do
 begin
  read(f,y);
  if y<0 then inc(k);
 end;
close(f);
KolOtr:=k;
end;
var f:tfile;
begin
clrscr;
WriteFile(f);
ReadFile(f);
write('Количество отрицательных=',KolOtr(f));
readln
end.

Количество отрицательных можно и во второй процедуре написать, но раз тема такая, то максимально разбил на процедуры и функции.

@Владимир199 · 15.04.2018, 20:03 **[ТС]**

у меня вот какой вопрос в этом коде не создается файла ? а как сделать чтобы создавался ????

Добавлено через 6 минут
или тут описан типизированный файл??????

@Puporev · 15.04.2018, 20:05

Или. У Вас же не написан тип файла.

@Владимир199 · 15.04.2018, 20:06 **[ТС]**

нет не написан=((((

@Puporev · 15.04.2018, 20:12

Если нужно текстовый уберите строку 2, замените везде tfile на text и вывод в файл

Pascal

1	write(f,' ',y);

@Владимир199 · 15.04.2018, 20:14 **[ТС]**

спасибо Огромное за объяснение =)))))

@Владимир199 · 17.04.2018, 20:34 **[ТС]**

Pascal

uses crt;
procedure WriteFile(var f:text);
var i:integer;
    y:real;
begin
assign(f,'result');
rewrite(f);
for i:=1 to 15 do
 begin
  if i<=8 then y:=sin(i*pi/8)
  else y:=4*cos(i*(pi+1)/5);
  write(f,y);
 end;
end;
procedure ReadFile(var f:text);
var y:real;
begin
writeln('Содержание созданного файла');
reset(f);
while not eof(f) do
 begin
  read(f,y);
  write(y:5:2);
 end;
writeln;
end;
function KolOtr(var f:text):integer;
var y:real;
    k:integer;
begin
reset(f);
k:=0;
while not eof(f) do
 begin
  read(f,y);
  if y<0 then inc(k);
 end;
close(f);
KolOtr:=k;
end;
var f:text;
begin
clrscr;
WriteFile(f);
ReadFile(f);
write('Количество отрицательных=',KolOtr(f));
readln
end.

Подскажите что я делаю не правильно ???? у меня не компилируется

@Puporev · 17.04.2018, 20:44

лучше, так, хоть и не ошибка.

Pascal

1	assign(f,'result.txt');

чтобы посмотреть файл, а то у Вас там числа слиплись, напишите ввод и вывод так

Pascal

1
2
3

write(f,y:6:2);
.................
 write(f,y:6:2);

@Владимир199 · 17.04.2018, 20:50 **[ТС]**

Pascal

1	write(y:5:2);

он почемуто ругается здесь. Пишить файл не открыт для вывода.

@Puporev · 18.04.2018, 06:36

Господи, да скопируйте код и лезьте в него своими кривыми руками.

Pascal

uses crt;
procedure WriteFile(var f:text);
var i:integer;
    y:real;
begin
assign(f,'result');
rewrite(f);
for i:=1 to 15 do
 begin
  if i<=8 then y:=sin(i*pi/8)
  else y:=4*cos(i*(pi+1)/5);
  write(f,y:6:2);
 end;
end;
procedure ReadFile(var f:text);
var y:real;
begin
writeln('Содержание созданного файла');
reset(f);
while not eof(f) do
 begin
  read(f,y);
  write(y:6:2);
 end;
writeln;
end;
function KolOtr(var f:text):integer;
var y:real;
    k:integer;
begin
reset(f);
k:=0;
while not eof(f) do
 begin
  read(f,y);
  if y<0 then inc(k);
 end;
close(f);
KolOtr:=k;
end;
var f:text;
begin
clrscr;
WriteFile(f);
ReadFile(f);
write('Количество отрицательных=',KolOtr(f));
readln
end.

@Владимир199 1 / 1 / 0 Регистрация: 17.05.2015 Сообщений: 67
		1
	Процедуры и функции обработки файлов 14.04.2018, 22:32. Показов 1433. Ответов 10 Метки нет (Все метки) Сформировать файл последовательности 15 чисел, в котором каждый i-й компонент определяется по формуле: определить количество отрицательных значение, содержащихся в сформированном файле. 0

@Владимир199 1 / 1 / 0 Регистрация: 17.05.2015 Сообщений: 67
	15.04.2018, 20:03 [ТС]	3
	у меня вот какой вопрос в этом коде не создается файла ? а как сделать чтобы создавался ???? Добавлено через 6 минут или тут описан типизированный файл?????? 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.04.2018, 20:05	4
	Или. У Вас же не написан тип файла. 1

@Владимир199 1 / 1 / 0 Регистрация: 17.05.2015 Сообщений: 67
	15.04.2018, 20:06 [ТС]	5
	нет не написан=(((( 0

@Владимир199 1 / 1 / 0 Регистрация: 17.05.2015 Сообщений: 67
	15.04.2018, 20:14 [ТС]	7
	спасибо Огромное за объяснение =))))) 0

	18.04.2018, 06:36

Процедуры и функции обработки файлов

Решение