Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Ринаа
0 / 0 / 0
Регистрация: 18.11.2015
Сообщений: 21
#1

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

03.05.2016, 14:34. Просмотров 193. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Описать и проверить логическую функцию (Delphi):

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

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

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

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

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

Описать логическую функцию mid(f) которая определяет, имеет ли файл f Типа FR четную длину - Delphi
Задание: Описать логическую функцию mid(f) которая определяет, имеет ли файл f Типа FR четную длину. Type FR =file of real; Var f: FR ...

2
harrybook
66 / 66 / 26
Регистрация: 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
Привет! Вот еще темы с ответами:

Описать и проверить процедуру или функцию, которая переносит в начало непустого списка L его последний элемент. - Delphi
type TЭ=…; {тип элементов списка} {выбирается по желанию} список= ^звено; звено: record элем: TЭ; ...

Описать и проверить процедуру или функцию, которая вставляет в список L за первым вхождением элемента Е все элементы списка L1, если Е входит в L1. - Delphi
type TЭ=…; {тип элементов списка} {выбирается по желанию} список= ^звено; звено: record элем: TЭ; ...

Описать логическую фунцию, показывающую, равна ли правая цифра очередной кости левой цифре следующей кости домино - Delphi
type костьдомино = record лев,правый:0..6 end; ряд= array of костьдомино. Описать логическую фунцию правильный ряд (r) (равна ли правая...

Описать логическую функцию Одинрост(ГР) - Delphi
Описать логическую функцию Одинрост(ГР), проверяющую, есть ли в группе Гр хотя бы два человека одного роста. type name=(Валя, Юля,...


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

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

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