Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Бездарь
0 / 0 / 1
Регистрация: 10.06.2010
Сообщений: 31
1

Найти сумму наибольшего и наименьшего из значений файла

13.06.2010, 16:52. Просмотров 783. Ответов 6
Метки нет (Все метки)

программа на файл
дан файл F элементы которого являются действительными числами
1)Сумму наибольшего и наименьшего из значений элементов
2)определить в файле F имеется слов состоящих из одного двух и.т.д символов
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2010, 16:52
Ответы с готовыми решениями:

Найти среднее арифметическое наибольшего и наименьшего значений элементов матрицы
Дана действительная матрица a 6*9 . Найти среднее арифметическое наибольшего и...

Найти среднее арифметическое наибольшего и наименьшего значений элементов матрицы
Дана действительная матрица размера 69. Найти среднее арифметическое...

Действительная матрица. Найти среднее арифметическое наибольшего и наименьшего значений ее элементов
Дана действительная матрица размера 6x9.Найдите среднее арифметическое...

Даны 3 целых числа. Найти сумму наибольшего и наименьшего
даны 3 целых числа. Найти сумму наибольшего и наименьшего. для нахождения...

Поиск наибольшего и наименьшего значений функции
Доброе время суток, нужно перевести програму с турбо паскаля в паскаль абс,...

6
Mиxaил
534 / 439 / 162
Регистрация: 10.12.2009
Сообщений: 1,857
13.06.2010, 17:11 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var f:text;
    a,i,max,min,sum:integer;
begin
assign(f,'file1.txt');
reset(f);
max:=-MaxInt;
min:=MaxInt;
while not eof(f) do
  begin
    read(f,a);
    if a>max then max:=a;
    if a<min then min:=a;
  end;
close(f);
sum:=max+min;
writeln(sum);
readln;
end.
1
Бездарь
0 / 0 / 1
Регистрация: 10.06.2010
Сообщений: 31
13.06.2010, 17:37  [ТС] 3
непашет
0
Puporev
Модератор
54575 / 42085 / 29057
Регистрация: 18.05.2008
Сообщений: 99,253
13.06.2010, 17:43 4
непашет
Так это и не трактор чтобы пахать...
В чем проблема, какую ошибку выдает и в какой строке. Как экстрасенс, думаю что у Вас просто нет исходного файла в папке с программой.
0
Mиxaил
534 / 439 / 162
Регистрация: 10.12.2009
Сообщений: 1,857
13.06.2010, 17:43 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

попробуй так:
Pascal
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
var f:text;
    a,i,max,min,sum:integer;  
    n:byte;
    b:array[1..50] of integer;
begin
assign(f,'file1.txt');
reset(f);
n:=0;
while not eof(f) do
  begin
    read(f,a);
    inc(n);
    b[n]:=a;
  end;
max:=-MaxInt;
min:=MaxInt;
  for i:=1 to n do
    begin
      if b[i]>max then max:=b[i];
      if b[i]<min then min:=b[i];
    end;
close(f);
sum:=max+min;
writeln(sum);
readln;
end.
1
Бездарь
0 / 0 / 1
Регистрация: 10.06.2010
Сообщений: 31
13.06.2010, 17:55  [ТС] 6
а какие цыфры прописать в TXT документе?
0
Puporev
Модератор
54575 / 42085 / 29057
Регистрация: 18.05.2008
Сообщений: 99,253
13.06.2010, 18:27 7
Цитата Сообщение от Бездарь Посмотреть сообщение
дан файл F элементы которого являются действительными числами
значит в файле могут быть любые числа и целые и вещественные, например
2 3.5 -2.45 85 2.89 15
разделитель целой и дробной части обязательно точка, между числами пробел.
переменная для считывания и других операций вещественного типа
var a:real;
1
13.06.2010, 18:27
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.06.2010, 18:27

Среднее арифметическое наибольшего и наименьшего значений элементов матрицы ниже главной диагонали
Пусть дана вещественная матрица размером n*m. Найдите среднее арифметическое...

Найти сумму значений элементов, которые меньше полусуммы наименьшего и наибольшего значений
Помогите пожалуйста с задачей Дан целочисленный массив A(N), заданный датчиком...

Определить сумму и произведение наибольшего и наименьшего из значений компонент файла
Ребят, кому не трудно помочь, напишите пожалуйста. Сформировать файл F....


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

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

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