Две задачи для первого курса,Delphi

← →
Первокурсница © (2010-02-27 22:09) [0]

Доброго всем вечерочка, дорогие программисты!
Не откажите в помощи слабой и беззащитной девочке...
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]. Тоже на делфи.

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

← →
KilkennyCat © (2010-02-27 22:17) [1]

Готов помочь за взаимность: готовишь мне обед и гладишь две рубашки.
но сначала пришли фото

← →
KilkennyCat © (2010-02-27 22:21) [2]

> 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);

здесь можно за один проход по файлу определить и максимальное число, и сколько раз встречается:

read(f,a) if a > mx then begin k := 1; mx := a; end else if a = mx then inc(k, 1);

← →
Первокурсница © (2010-02-27 22:21) [3]

А где гарантия того что вы мне поможете? :)

← →
Первокурсница © (2010-02-27 22:23) [4]

Мда... тут всё гораздо сложнее чем я думала :( Cgfcb,j вам огромное, выручили :*

← →
Первокурсница © (2010-02-27 22:24) [5]

ТО есть спасибо

← →
KilkennyCat © (2010-02-27 22:27) [6]

> А где гарантия

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

> тут всё гораздо сложнее чем я думала

абсолютно нет. я лишь оптимизировал.

← →
Первокурсница © (2010-02-27 22:30) [7]

У меня с дельфи нет взаимопонимания... как говорится, ботики жмут и нам не по пути

← →
KilkennyCat © (2010-02-27 22:32) [8]

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

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

> Первокурсница © (27.02.10 22:30) [7]

а у меня нет взаимпонимания с обедом и рубашками (а если честно, то лень варить и гладить). Ну так что, договариваемся?

Постараюсь понять. Спасибо.

Как же я вам буду варить и гладить? :) Через Web-money? Если вы профессиональный программист и сделаете программы целиком как говорится от бегина до енд то о цене можем договориться.

Я не могу брать деньги с женщин.

Две задачи для первого курса,Delphi Найти похожие ветки