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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Бездарь
0 / 0 / 0
Регистрация: 10.06.2010
Сообщений: 31
#1

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

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

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

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

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

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

Даны 3 целых числа. Найти сумму наибольшего и наименьшего - Turbo Pascal
даны 3 целых числа. Найти сумму наибольшего и наименьшего. для нахождения использовать функции

Поиск наибольшего и наименьшего значений функции - Turbo Pascal
Доброе время суток, нужно перевести програму с турбо паскаля в паскаль абс, програмный код: program Kursa4; uses crt; ...

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

6
Mиxaил
534 / 439 / 37
Регистрация: 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 / 0
Регистрация: 10.06.2010
Сообщений: 31
13.06.2010, 17:37  [ТС] #3
непашет
0
Puporev
Модератор
53860 / 41493 / 14596
Регистрация: 18.05.2008
Сообщений: 97,282
13.06.2010, 17:43 #4
непашет
Так это и не трактор чтобы пахать...
В чем проблема, какую ошибку выдает и в какой строке. Как экстрасенс, думаю что у Вас просто нет исходного файла в папке с программой.
0
Mиxaил
534 / 439 / 37
Регистрация: 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 / 0
Регистрация: 10.06.2010
Сообщений: 31
13.06.2010, 17:55  [ТС] #6
а какие цыфры прописать в TXT документе?
0
Puporev
Модератор
53860 / 41493 / 14596
Регистрация: 18.05.2008
Сообщений: 97,282
13.06.2010, 18:27 #7
Цитата Сообщение от Бездарь Посмотреть сообщение
дан файл F элементы которого являются действительными числами
значит в файле могут быть любые числа и целые и вещественные, например
2 3.5 -2.45 85 2.89 15
разделитель целой и дробной части обязательно точка, между числами пробел.
переменная для считывания и других операций вещественного типа
var a:real;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.06.2010, 18:27
Привет! Вот еще темы с ответами:

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

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

Найти сумму наибольшего и наименьшего из значений элементов каждой строки матрицы - Pascal
Дана действительная матрица размера n*m. Найти сумму наибольшего и наименьшего из значений элементов каждой строки. Отсортировать матрицу...

Найти сумму наибольшего и наименьшего из компонент файла - Pascal
1. Дан файл f, состоящий из действительных чисел. Найти сумму наибольшего и наименьшего из его компонент. 2. Дан целочисленный...


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

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

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