Определить, больше ли минимальное значение первого файла, чем максимальное значение второго

@_Lesechka_ · Регистрация: 10.03.2011

Author24 — интернет-сервис помощи студентам

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

Pascal

program z1;
var f1,f2: text;
     min,max,n: integer;
begin  
Assign(f1, '1.txt'); 
Reset(f1);  
min:=32000;  
While not Eof(f1) do begin    
Read(f1, n);    
if (n<min) then min:=n;  
end;  
Close(f1);  
Assign(f2, '2.txt'); 
Reset(f2);  
max:=-32000;  
While not Eof(f2) do begin    
Read(f2, n);
if (n>max) then max:=n;
end;  
Close(f2);  
Writeln('Min znachenie 1-ogo fayla = ',min);  
Writeln('Max znachenie 2-ogo fayla = ',max);  
if min>max    then 
Writeln('Min znach 1-ogo fayla bolshe chem max znach 2-ogo fayla')    
else 
Writeln('Max znach 2-ogo fayla bolshe chem min znach 1-ogo fayla');  
Readln;
end.

________________
мне сделали замечание по поводу того, что если будут числа меньше -32000 и больше 32000, то как тогда....и я что-то не могу теперь исправить....помогите, что нужно изменить, пожалуйста)
Заранее спасибо))

@DedBoroda · 10.04.2011, 00:22

Сообщение от _Lesechka_

мне сделали замечание по поводу того, что если будут числа меньше -32000 и больше 32000

Присвой min и max значения первых элементов, а не +-32000.

Pascal

Assign(f1, '1.txt'); 
Reset(f1);
Read(f1, min);
While not Eof(f1) do begin 
Read(f1, n); 
if (n<min) then min:=n; 
end; 
Close(f1);
 
//для max соответственно

А еще ты ошибся разделом

@i8085 · 10.04.2011, 00:33

_Lesechka_, при нахождении минимума или максимума в массиве (или в файле) надо присвоить начальное значение равным первому элементу. В общем-то можно и любому элементу массива, просто первому - удобнее. Главное - значение обязательно должно быть из массива. Нельзя брать произвольное значение, так как такого может вообще не оказаться в массиве. Например, вы берёте начальное значение минимума равным 32000. А в массиве числа от 45000 до 50000. Получите ошибочный результат.

Второе соображение. (Ваш препод вроде не въехал, но надо быть готовым к такому вопросу)
Для представления числа вы используете тип integer, то есть 32 бита со знаком. Но этот тип может представить только числа из ограниченного диапазона от -2147483648 до 2147483647. То же самое справедливо и для любого другого типа - диапазон чисел может и побольше, но ограничен.
Как быть, если вам захочется ввести 2147483648?
Для решения этой проблемы числа надо представлять текстовой строкой символов-цифр и соответственно обрабатывать.
Кстати, тут на форуме встречались обсуждения и с такими примерами.

@DedBoroda · 10.04.2011, 00:36

Сообщение от i8085

integer, то есть 32 бита со знаком

16 бит = 65535. В integer это от -32768 до 32767

@i8085 · 10.04.2011, 00:44

DedBoroda, из Хелпа:

Код

Integer types
Topic    Groups	     See Also
_______________________________
An integer type represents a subset of the whole numbers. The generic integer types are Integer and Cardinal; use these whenever possible, since they result in the best performance for the underlying CPU and operating system. The table below gives their ranges and storage formats for the current 32-bit Delphi compiler.

Generic integer types for 32-bit implementations of Delphi  
Type	  Range	                              Format
Integer   -2147483648..2147483647           signed 32-bit
Cardina   0..4294967295                     unsigned 32-bit

@DedBoroda · 10.04.2011, 00:47

i8085,

Сообщение от DedBoroda

А еще ты ошибся разделом

П.С.: с дельфи тут нет ничего общего

@i8085 3359 / 2453 / 559 Регистрация: 11.09.2009 Сообщений: 8,899
	10.04.2011, 00:33	3
	_Lesechka_, при нахождении минимума или максимума в массиве (или в файле) надо присвоить начальное значение равным первому элементу. В общем-то можно и любому элементу массива, просто первому - удобнее. Главное - значение обязательно должно быть из массива. Нельзя брать произвольное значение, так как такого может вообще не оказаться в массиве. Например, вы берёте начальное значение минимума равным 32000. А в массиве числа от 45000 до 50000. Получите ошибочный результат. Второе соображение. (Ваш препод вроде не въехал, но надо быть готовым к такому вопросу) Для представления числа вы используете тип integer, то есть 32 бита со знаком. Но этот тип может представить только числа из ограниченного диапазона от -2147483648 до 2147483647. То же самое справедливо и для любого другого типа - диапазон чисел может и побольше, но ограничен. Как быть, если вам захочется ввести 2147483648? Для решения этой проблемы числа надо представлять текстовой строкой символов-цифр и соответственно обрабатывать. Кстати, тут на форуме встречались обсуждения и с такими примерами. 0

@DedBoroda ComfyMobile 89 / 89 / 8 Регистрация: 04.11.2010 Сообщений: 376
	10.04.2011, 00:36	4
	Сообщение от i8085 integer, то есть 32 бита со знаком 16 бит = 65535. В integer это от -32768 до 32767 0

@DedBoroda ComfyMobile 89 / 89 / 8 Регистрация: 04.11.2010 Сообщений: 376
	10.04.2011, 00:47	6
	i8085, Сообщение от DedBoroda А еще ты ошибся разделом П.С.: с дельфи тут нет ничего общего 0