Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.68/47: Рейтинг темы: голосов - 47, средняя оценка - 4.68
0 / 0 / 0
Регистрация: 21.02.2012
Сообщений: 21
1

Файлы. В файл output.txt записать максимальное и минимальное числа из файла input.txt

13.04.2012, 18:42. Показов 8832. Ответов 6
Метки нет (Все метки)

Нужна программа, которая выпишет максимальное и минимальное числа из файла input.txt, содержащего небольшой ряд чисел. И запишет их в новом файле output.txt.

Заранее благодарен.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.04.2012, 18:42
Ответы с готовыми решениями:

Найти минимальное и максимальное числа и записать их в файл output.txt.
Здравствуйте! Помогите пожалуйста. В файле input.txt записаны числа, сколько их – неизвестно....

Найти минимальное и максимальное из четных чисел и записать их в файл output.txt
1В файле data.txt записаны числа, сколько их – неизвестно.Найти минимальное и максимальное из...

Сколько различных символов Данные вводятся с клавиатуры или из файла input.txt, выводятся на экран или в файл output.txt
Ограничение по времени, сек 2 Ограничение по памяти, мегабайт 64 Напишите программу, которая...

Переписать данные файла input.txt в файл output.txt, отсортировав их по убыванию суммы оценок методом "пузырька"
(сумму оценко вывести в файл output.txt для каждого студента)

__________________
6
Pascal +
133 / 132 / 127
Регистрация: 16.03.2011
Сообщений: 461
13.04.2012, 21:37 2
Цитата Сообщение от Anolis Посмотреть сообщение
Нужна программа, которая выпишет максимальное и минимальное числа из файла input.txt, содержащего небольшой ряд чисел. И запишет их в новом файле output.txt
Код:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var s, x,max,min: integer;
    f: text;
begin
   assign(f, 'input.txt');
   reset(f);
   max:=1;
   min:=1;
while not eof(f) do begin
readln(x);
 if x>max then x:=max;
 if x<min then x:=min
end;
 close(f);
assign(f, 'output.txt');
rewrite(f);
writeln(f, 'MAX ', x);
writeln(f,'min',x);
close(f);
end.
1
0 / 0 / 0
Регистрация: 21.02.2012
Сообщений: 21
14.04.2012, 14:57  [ТС] 3
Большое спасибо UserABC!

Добавлено через 14 часов 47 минут
я наверно слегка поторопился с благодарностями, поскольку в первый раз включил вроде работает. Скопировал во второй раз: просит ввода чего-то..., выдает ошибку "Внимание! После окончания работы программы не закрыто файлов: 1" и вообще не создает новый файл.

Для справки: программа должна прочесть файл "input.txt" и вывести наиб. и наим. в файле "output.txt"
0
Почетный модератор
7957 / 3928 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
14.04.2012, 15:36 4
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
var x,max,min,i: integer;
    f: text;
begin
assign(f, 'C:\input.txt');
reset(f);
while not (eof(f)) do
      begin
      inc(i);
      readln(f,x);
      if i=1 then
         begin
         max:=x; min:=x;
         end else
         begin
         if x>max then max:=x;
         if x<min then min:=x;
         end;
      end;
 close(f);
assign(f, 'C:\output.txt');
rewrite(f);
writeln(f,'max ',max);
writeln(f,'min ',min);
close(f);
end.
1
0 / 0 / 0
Регистрация: 21.02.2012
Сообщений: 21
14.04.2012, 16:15  [ТС] 5
КонецСвета в таком случае в ответе пишется первая цифра ряда чисел из файла.
0
Почетный модератор
7957 / 3928 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
14.04.2012, 17:29 6
описанный выше случай - если одно число на одной строке...
вот для случая, если в каждой строчке файла несколько чисел
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var f,g:text;
    a,max,min:integer;
begin
assign(f,'C:\in.txt');
assign(g,'C:\out.txt');
reset(f);
rewrite(g);
max:=0;
min:=0;
reset(f);
while not eof(f) do
      begin
      read(f,a);
      if a>max then max:=a;
      if a<min then min:=a;
      end;
writeln(g,'max ',max);
writeln(g,'min ',min);
close(f);
close(g);
end.
2
0 / 0 / 0
Регистрация: 21.02.2012
Сообщений: 21
14.04.2012, 20:10  [ТС] 7
КонецСвета спасибо!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.04.2012, 20:10

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

В input.txt есть числа в столбик, найти min и max и записать их в output.txt.
Уважаемые знатоки, напишите программку, пожалуйста. В input.txt есть числа в столбик, найти min и...

Считать текст из файла Input.txt и вывести в файл Output.txt все предложения в обратном порядке
написать программу, которая считывает текст из файла Input.txt и выводит в файл Output.txt все...

Найти среднеарифметическое всех чисел(файлы input.txt, output.txt)
В файле input.txt записать числа, сколько их - неизвестно (произвольно ввести в созданный файл...

Найти минимальное и максимальное числа из input.txt и записать его в файл output.txt
Еще раз приветствую дорогие программисты.Надеюсь на вашу помощь. Найти минимальное и максимальное...


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

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

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