Файловый тип

[D1mon]

Задание:
Дан файл f, компоненты которого являются действительные числами.Найти наибольшее из значений компонент
с нечетными номерами.
Вот мой код, подкаректируйте что не так делаю.. )

  
program f;
uses crt;
var
f:file of integer;
a,b,max:integer;
begin
clrscr;
assign(f,'C:/laba');
rewrite(f);
writeln('Vvedite Chisla:');
readln(a);
while A>=0 do begin
write(f,a);
read(a);
end;
reset(f);
max:=0;
while not eof(f) do
begin 
read(f,a);
if (b mod 2>0) then
if b>max then max:=b;
end;
writeln('Max=',max);
End.

[Serge_Bliznykov]

ну. задачка простая. Написано всё правильно... почти..
поэтому позволю себе помочь :-)

в программе НЕЛЬЗЯ использовать одинаковые идентификаторы (у Вас и программа f и файловая переменная f
измените имена, чтобы они стали разными(например, имя программы поменяйте!)

ещё ошибка - для определения максимума в какую переменную считываете значение?

read(f,a);

а какую сравниваете??

if b>max then max:=b;

кроме того, нечетность нужно проверять у порядкого НОМЕРА числа, а не у самого значения!
вот так:

  max := 0;
  b := 1;
  while not eof(f) do
  begin
    read(f, a);
    if (b mod 2 > 0) then
      if a > max then max := a;
    b := b + 1;
  end;

которого являются действительные числами.

действительные == вещественные.
Ошибка: - Вам нужно f: file of real;

имя файла для сохранения не очень наглядное..
рекомендую, хотя бы расширение добавить
assign(f, 'C:\laba.dat');


p.s. а почему при форматировании кода не используете отступы? Программа смотрится гораздо лучше. Да и наглядее код...

[D1mon]

Cпасибо, разобрался.

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

p.s. а почему при форматировании кода не используете отступы? Программа смотрится гораздо лучше. Да и наглядее код...

учту при следующем написании программ )

[D1mon]

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

program z;
uses crt;
var 
  f:text;
  i,min:integer;
  s:string;
begin
   assign (f, 'text.txt');
   rewrite(f);
   write('enter srtings');
   for i:=1 to 5 do
   readln(s);
   write(f,s);
   reset (f);
   Readln (f,s);
   min:=length(s);
      while not eof(f) do
 	 begin
 	    readln(f,s);   {Дальше не знаю как сделать -(}

[Serge_Bliznykov]

странное у Вас понятие об отступах в программе... :-)

вот. помимо длины ещё сохраняем порядковый номер найденной минимальной строки и саму строку:

program z;
var
  f: text;
  i, min, IMin: integer;
  s, SMin: string;
begin
  assign(f, 'text.txt');
  reset(f);
  min := MaxInt;
  i := 1;
  while not eof(f) do
  begin
    readln(f, s); {Дальше не знаю как сделать -(}
    if length(s) < min then begin
      SMin := s;
      min := length(s);
      IMin := i;
    end;
    i := i + 1;
  end;
  if min = MaxInt then WriteLn('Нет никаких строчек!')
  else begin
    WriteLn('Самая короткая строка - ', iMin: 1, '-я, с длиной ', min: 1, ' такая: ');
    WriteLn(SMin);
  end;
end.

[D1mon]

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

странное у Вас понятие об отступах в программе... :-)

вот. помимо длины ещё сохраняем порядковый номер найденной минимальной строки и саму строку:

program z;
var
  f: text;
  i, min, IMin: integer;
  s, SMin: string;
begin
  assign(f, 'text.txt');
  reset(f);
  min := MaxInt;
  i := 1;
  while not eof(f) do
  begin
    readln(f, s); {Дальше не знаю как сделать -(}
    if length(s) < min then begin
      SMin := s;
      min := length(s);
      IMin := i;
    end;
    i := i + 1;
  end;
  if min = MaxInt then WriteLn('Нет никаких строчек!')
  else begin
    WriteLn('Самая короткая строка - ', iMin: 1, '-я, с длиной ', min: 1, ' такая: ');
    WriteLn(SMin);
  end;
end.

Не могли бы вы еще раз помочь, оказывается требовалось написать эту программу без использования типа STRING