Описать логическую функцию, которая определяет, имеет ли файл f типа FR нечетную длину

@diskr · Регистрация: 22.04.2011

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

плиз, помогите написать программу на паскале

type FR=file of real;

Описать логическую функцию mid (f, m), которая определяет, имеет ли файл f типа FR нечетную длину, и, если имеет, присваивает параметру m средний элемент этого файла.

@SuPeR XaKer · 22.04.2011, 18:50

и, если имеет, присваивает параметру m средний элемент этого файла.

А если не имеет?

@diskr · 22.04.2011, 19:24 **[ТС]**

если не имеет,то вывести,что четное

@SuPeR XaKer · 22.04.2011, 20:09

Pascal

Function mid(Var f:fr;Var l:real):string;
Var
 k:real;
begin
reset(f);
mid:='';
if odd(filesize(f)) then
begin
 seek(f,filesize(f) div 2);
 read(f,k);
 l:=k;
end
else mid:='×¸òíàÿ äëèíà';
Close(f);
end;

её вызов в основном теле:

Pascal

1 2	if mid(f,m)='' then write(m) else write(mid(f,m));

@diskr · 23.04.2011, 16:07 **[ТС]**

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

@SuPeR XaKer · 23.04.2011, 16:21

показывай как код дописывала.

@diskr · 25.04.2011, 12:50 **[ТС]**

Pascal

uses crt;
type fr=file of real;
 
Function mid(Var f:fr;Var l:real):string;
Var
 k:real;
begin
reset(f);
mid:='';
if odd(filesize(f)) then
begin
 seek(f,filesize(f) div 2);
 read(f,k);
 l:=k; mid:='ne chetnaya dlina';
end
else mid:='chetnaya dlina';
Close(f);
end;
var f:fr;l:real;
begin clrscr;
assign(f,'E:\1\lala.bak');
if mid(f,l)='ne chetnaya dlina' then write(l)
else write(mid(f,l)); readln;
end.

@SuPeR XaKer · 25.04.2011, 20:17

Во первых взгляните на этот код и мой.А во вторых файл надо программно заполнить а не вручную.

@diskr 0 / 0 / 0 Регистрация: 22.04.2011 Сообщений: 6
		1
	Описать логическую функцию, которая определяет, имеет ли файл f типа FR нечетную длину 22.04.2011, 18:28. Показов 2729. Ответов 7 Метки нет (Все метки) плиз, помогите написать программу на паскале type FR=file of real; Описать логическую функцию mid (f, m), которая определяет, имеет ли файл f типа FR нечетную длину, и, если имеет, присваивает параметру m средний элемент этого файла. 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	22.04.2011, 18:50	2
	и, если имеет, присваивает параметру m средний элемент этого файла. А если не имеет? 0

@diskr 0 / 0 / 0 Регистрация: 22.04.2011 Сообщений: 6
	22.04.2011, 19:24 [ТС]	3
	если не имеет,то вывести,что четное 0

@diskr 0 / 0 / 0 Регистрация: 22.04.2011 Сообщений: 6
	23.04.2011, 16:07 [ТС]	5
	я запустила, а программа в каждом случае выдает, что в файле четное количество элементов.не могу понять почему. 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	23.04.2011, 16:21	6
	показывай как код дописывала. 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	25.04.2011, 20:17	8
	Во первых взгляните на этот код и мой.А во вторых файл надо программно заполнить а не вручную. 0

Опции темы

Описать логическую функцию, которая определяет, имеет ли файл f типа FR нечетную длину

Решение