[Первокурсница]

Доброго всем вечерочка, дорогие программисты!
Не откажите в помощи слабой и беззащитной девочке...
1 просьба: перевести из паскаля на делфи (с использованием формы) следующую программу:

Код:

uses crt;
var f:file of integer;
    a,mx,k:integer;
begin
clrscr;
assign(f,'file1');
rewrite(f);
writeln('Введите целые числа в файл f, окончание ввода 0:');
repeat
write('a=');
readln(a);
write(f,a);
until a=0;
clrscr;
writeln('Содержание файла f:');
reset(f);
read(f,mx);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
  if a>mx then mx:=a;
 end;
writeln;
close(f);
reset(f);
k:=0;
reset(f);
while not eof(f) do
 begin
  read(f,a);
  if a=mx then k:=k+1;
 end;
close(f);
write('Максимум =',mx,'  количество=',k);
readln
end.

Задание по которому я это писала: Дан файл f1 целых чисел. Определить, сколько раз в нем повторяется максимальное значение.
2 просьба: Дан файл f1 целых чисел. Определить наименьшее из нечетных чисел и наибольшее из чисел, принадлежащих интервалу [a, b]. Тоже на делфи.

Буду премного благодарна!

[Страдалецъ]

Дельфи вполне нормально справляется с таким кодом почти без переделок. Попробуйте так:

Код:

{$APPTYPE CONSOLE}
uses
  Windows;

var f:file of integer;
    a,mx,k:integer;
begin
SetConsoleOutputCP(1251);
assignfile(f,'file1');
rewrite(f);
writeln('Введите целые числа в файл f, окончание ввода 0:');
repeat
write('a=');
readln(a);
write(f,a);
until a=0;
writeln('Содержание файла f:');
reset(f);
read(f,mx);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
  if a>mx then mx:=a;
 end;
writeln;
close(f);
reset(f);
k:=0;
reset(f);
while not eof(f) do
 begin
  read(f,a);
  if a=mx then k:=k+1;
 end;
close(f);
write('Максимум =',mx,'  количество=',k);
readln
end.

[Первокурсница]

Спасибо тебе большое

[Ultras]

эх опоздал я )) а так люблю знакомицца с девушками-программистами ))

[Aristarh Dark]

Ultras, а ты подпись подправь, и будут у тебя деффушки

[Ultras]

Сообщение от Aristarh Dark

Ultras, а ты подпись подправь, и будут у тебя деффушки

та вроде нормальная подпись