Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Ринаа
0 / 0 / 0
Регистрация: 18.11.2015
Сообщений: 21
1

Описать и проверить логическую функцию

03.05.2016, 14:34. Просмотров 236. Ответов 2
Метки нет (Все метки)

Type FR =file of real
Описать логическую функцию mid(f,m) которая определяет, имеет ли файл f типа FR нечетную длину, и если имеет, присваивает переменной m средний элемент этого файла.
Я не поняла, как понять и если имеет, присваивает переменной m средний элемент этого файла?
Вот мой код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
   FR = file of real;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 function mid(Test: string): boolean;
 var
 f: FR;
 begin
 AssignFile(f,'Test.txt');
  Reset(f);
  Result:= (FileSize(f) mod 2) = 1;
  CloseFile(f);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
m:real;
begin
if mid('Test.txt') = true then
begin
ShowMessage('Нечетно');
end
else
begin
ShowMessage('Четно')  ;
   end;
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.05.2016, 14:34
Ответы с готовыми решениями:

Описать логическую функцию 'Поиск'
Помогите пожалуйста написать программу. По моей программе есть похожие коды, но они не...

Описать логическую функцию Поиск(Т,К,Н) исходя из условия
const n =…; type запись = record ключ: integer; тело: string; end; таблица = array...

Описать логическую функцию, проверяющую на равенство файлы
Type время = record час:0..23; мин, сек:0..59 end; ФВ = file of время; Описать логическую функцию...

Описать логическую функцию eq(f,g), проверяющую на равенство файлы f и g типа ФВ.
написала программу, но она у меня не сравнивает, постоянно выводит, что "файлы не равны". а задание...

Описать логическую функцию, сравнивающую два рациональных числа а и b Delphi
Даны описания переменных: type рац= record число:integer; знам:1.maxint end; массив = array of...

2
harrybook
66 / 66 / 37
Регистрация: 27.04.2016
Сообщений: 254
03.05.2016, 16:04 2
Кликните здесь для просмотра всего текста
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
// генерировать файл
procedure CreateRandomRealFile(fname : string;r_count : integer);
 var
  f: FR;
  i : integer;
  R : real;
begin
  AssignFile(f,fname);
  Rewrite(f);
  for i:=1 to r_count do
   begin
    R := random(r_count);
    write(f,R);
   end;
  CloseFile(f);
end;
 
 
function mid(f_name: string;var m : real): boolean;
 var
  f : FR;
 begin
  AssignFile(f,f_name);
  Reset(f);
  Result:= (FileSize(f) mod 2) = 1;
  if Result then
    begin
     seek(f,FileSize(f) div 2);
     Read(f, m);
    end;
  CloseFile(f);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
 m : real;
begin
 CreateRandomRealFile('test',101);
 if mid('test',m) then
   ShowMessage(' Нечётно m= ' + FormatFloat('#0.00',m) )
 else
   ShowMessage('Чётно')  ;
end;
1
Ринаа
0 / 0 / 0
Регистрация: 18.11.2015
Сообщений: 21
03.05.2016, 16:39  [ТС] 3
harrybook, Спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.05.2016, 16:39

Описать логическую функцию less(w1,w2), проверяющую предшествует ли лексикографически слово w1 слову w2
tupe слово = file of string; описать логическую функцию less(w1,w2), проверяющую предшествует ли...

Описать логическую функцию Equal(f1,f2), проверяющую файлы f1 и f2 типа myfile на равенство.
type myfile = file of char; Описать логическую функцию Equal(f1,f2), проверяющую файлы f1 и f2...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru