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

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

16.06.2014, 07:14. Показов 1781. Ответов 2
Метки нет (Все метки)

Дан файл f ,компоненты которого являются действительными числами . Найти сумму наибольшого и наименьшого компонет.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.06.2014, 07:14
Ответы с готовыми решениями:

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

Найти сумму наибольшего и наименьшего чисел; количество чисел в файле
Ребята, вот задание: Дан файл, в котором записаны вещественные числа. Найти: сумму наибольшего и...

Дан файл f, компоненты которого являются целыми. Найти количество удвоенных нечетных чисел среди компонент
Дан файл f, компоненты которого являются целыми. Найти количество удвоенных нечетных чисел среди...

Дан файл f, компоненты которого являются целыми числами. Найти количество удвоенных нечетных чисел среди компонент
Дан файл f, компоненты которого являются целыми числами. Найти количество удвоенных нечетных чисел...

2
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
16.06.2014, 08:49 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
44
45
46
47
48
49
const fname='fileF';//имя файла
var
  Form1: TForm1;
  f:file of real; //типизированный файл целого типа
implementation
 
{$R *.dfm}
//создание файла
procedure TForm1.Button1Click(Sender: TObject);
var a:real;
    i:integer;
begin
randomize;
assignfile(f,fname);
rewrite(f);
for i:=1 to 15 do
 begin
  a:=10*random;
  write(f,a);
 end;
ShowMessage('Файл создан') 
end;
//чтение файла и решение задачи
procedure TForm1.Button2Click(Sender: TObject);
var a,mn,mx,s:real;
begin
if not fileexists(fname) then
 begin
  ShowMessage('Файл еще не создан, вернитесь к пункту 1');
  exit
 end;
Memo1.Clear;
seek(f,0);
read(f,mn);
mx:=mn;
while not eof(f) do
 begin
  read(f,a);
  Memo1.Lines.Add(floattostrF(a,ffFixed,6,2));
  if a<mn then mn:=a
  else if a>mx then mx:=a
 end;
closefile(f);
s:=mn+mx;
Memo1.Lines.Add('Минимум='+floattostrF(mn,ffFixed,6,2));
Memo1.Lines.Add('Максимум='+floattostrF(mx,ffFixed,6,2));
Memo1.Lines.Add('Сумма='+floattostrF(s,ffFixed,6,2));
 
end;
1
0 / 0 / 0
Регистрация: 20.10.2013
Сообщений: 43
16.06.2014, 21:08  [ТС] 3
Спасибо большое .
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.06.2014, 21:08

Дан вектор А Вещественных чисел. Записать вместо максимального ее элемента, сумму положительных компонент.
Дан вектор А Вещественных чисел. Записать вместо максимального ее элемента, сумму положительных...

Нахождение наибольшего и наименьшего из трех чисел
Надо написать программу нахождение суммы наибольшего и наименьшего из трех чисел.С помощью...

Составить программу нахождения из трех чисел наибольшего и наименьшего.
...................

Текстовый файл. Заполнить файл последовательность случайных чисел. Найти сумму наибольшего и наименьшего из них и записать в новый файл
Заполнить файл последовательность случайных чисел. Найти сумму наибольшего и наименьшего из них и...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru