Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
green_manalishi
-13 / 0 / 3
Регистрация: 26.03.2015
Сообщений: 45
1

Найти последний локальный максимум в файле вещественных чисел

14.10.2015, 17:46. Просмотров 897. Ответов 2
Метки нет (Все метки)

1. Дан файл вещественных чисел. Найти его последний локальный максимум (вывести на экран его номер и значение).
Указания:
а) сначала с помощью своей программы создать типизированный файл на базе текстового числового файла
б) локальный максимум - элемент, который больше своих ближайших соседей
2. Пользуясь найденным номером, пoменять местами последний локальный максимум с первым элементом типизированного
файла и переписать полученный типизированный файл в текстовый файл с именем "фамилия учащегося(<=8 латинских букв)".txt
Подсказка: использовать процедуру прямого доступа SEEK и функцию FILESIZE
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.10.2015, 17:46
Ответы с готовыми решениями:

Дан файл вещественных чисел. Найти его последний локальный максимум
1. Дан файл вещественных чисел. Найти его последний локальный максимум (вывести на экран его номер...

Найти максимум из девяти чисел(максимум из трех чисел(максимум из двух чисел)
Сделал кароч ток не знаю что в конце писать вот код: function maks_2(a,b:real):real; begin if...

Найти сумму целых,вещественных чисел и их количество в txt файле
Поломал уже всю голову над тем,как реализовать данную задачу : Дан текстовый файл, каждая...

В файле из 10 вещественных чисел сделать первые пять чисел последними и наоборот
В файле из 10 вещественных чисел сделать первые пять чисел последними и наоборот.

Замените в файле вещественных чисел все элементы на их квадраты
Дан файл вещественных чисел. Замените в нём все элемен-ты на их квадраты.

2
magirus
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
27987 / 15715 / 966
Регистрация: 15.09.2009
Сообщений: 67,815
Записей в блоге: 78
14.10.2015, 17:47 2
Цитата Сообщение от green_manalishi Посмотреть сообщение
Указания:
все чаще начинают с указаний.
сами что то сделали?
0
green_manalishi
-13 / 0 / 3
Регистрация: 26.03.2015
Сообщений: 45
14.10.2015, 18:17  [ТС] 3
Лучший ответ Сообщение было отмечено green_manalishi как решение

Решение

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Memo1: TMemo;
    Label2: TLabel;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
procedure texttotype(var s:string);
var f:textfile;
    tf:file of real;
    v:string;
begin
s:=Edit1.text;
assignfile(f,s);
assignfile(tf,'');
reset(f);
Rewrite(tf);
  {перезапись в типизированный файл}
  while not Eof(f) do begin
  read(f,s);
  write(tf,strtofloat(s);
  end;
  CloseFile(tf);
  end;
 
    function lastlocalmax(var f:file of Real;):real;
    var a,b,c:Real;
    i:Byte;
    begin
      AssignFile(f,'');
      Reset(f);
      i:=3;
      repeat
      Seek((filesize-i));
      read(f,a);
      read(f,b);
      read(f,c);
      if b>a and b>c then lastlocalmax:=b else
      i:=i+3;
      until i=FileSize(f)-3;
 
    end;
 
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var f1:file of Real;
    n:byte;
    v,rd:real;
    txt:textfile;
begin
texttotype(edit1.text);
    assignfile(f1,'');
    Reset(f1);
    while not Eof(f1) do begin
      Seek(f1,n);
      read(f1,v);
      memo1.Lines.Add(flotatostr(v));
      Inc(n);
    end;
    Edit2.Text:=flotatostr(lastlocalmax(f1));
    CloseFile(f1);
    AssignFile(txt,'');
    Rewrite(txt);
    read(txt,flotatostr(lastlocalmax(f1)));
    assignfile(f1,'');
    Reset(f1);
    Seek(2);
    while not Eof(f1)do begin
      read(f1,rd);
      write(txt, floattostr(rd));
    end;
 
end;
 
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.10.2015, 18:17

Дан файл вещественных чисел. Найти его последний локальный максимум
Дан файл вещественных чисел. Найти его последний локальный максимум (локальным максимумом...

В файле действительных чисел найти его последний локальный максимум
Данный файл действительных чисел. Найти его последний локальный максимум (локальным максимумом...

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


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

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

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