Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
CAZEB
1 / 1 / 0
Регистрация: 20.11.2012
Сообщений: 24
1

Найти в файле минимальное и максимальное числа и записать их в файл (Найти ошибку)

08.01.2013, 12:32. Просмотров 1394. Ответов 2
Метки нет (Все метки)

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

У меня всегда в текстовом файле output.txt выводит результат:
max=0
min=0

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
27
28
29
program maximini;
uses crt;
var g,r,max,min:integer;
    a:array[1..100] of integer;
    f:text;
begin
 clrscr;
 assign(f,'C:\Files\input.txt');
 reset(f);
 r:=0;
 g:=0;
 while not eof(f) do begin
  g:=g+1;
  readln(f,a[g]);
  r:=r+1;
 end;
  max:=a[1];
  for g:=1 to r do
   if a[g]>max then max:=a[g];
  min:=a[1];
  for g:=1 to r do
   if a[g]<min then min:=a[g];
 close(f);
 assign(f,'C:\Files\output.txt');
 rewrite(f);
 writeln(f,'max=',max);
 writeln(f,'min=',min);
 close(f);
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.01.2013, 12:32
Ответы с готовыми решениями:

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

Найти максимальное нечетное и минимальное четное числа
Помогите пожалуйста. Задачка по паскалю. Найти максимальное нечетное и минимальное четное числа. ...

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

Найти минимальное положительное и максимальное отрицательное числа, не входящие в вектор
Задание: в целочисленном векторе vector найти минимальное положительное и максимальное...

Найти максимальное и минимальное числа массива, и затем поменять их местами
Дан двумерный массив состоящий из чисел которые вводятся random.Найти максимальное и минимальное...

2
ermolay
3436 / 2375 / 2134
Регистрация: 04.12.2011
Сообщений: 3,965
08.01.2013, 13:45 2
вместо readln в 14 строке попробуйте read
0
CAZEB
1 / 1 / 0
Регистрация: 20.11.2012
Сообщений: 24
08.01.2013, 13:58  [ТС] 3
Я нашел. Все правильно. Я в текстовом файле input.txt забыл числа ввести.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.01.2013, 13:58

Определить вторые по значению минимальное и максимальное числа и их позиции в файле
Создать типизированный файл целых чисел. Записать в него с консоли последовательность целых чисел,...

Найти минимальное число, присвоить его значение первому элементу массива, а вместо минимального числа записать 10
Найти минимальное число, присвоить его значение первому элементу массива, а вместо минимального...

Дан файл, содержащий вещественные числа. Найти минимальное число
Дан файл, содержащий вещественные числа. Найти минимальное число.


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

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

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