| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Две задачи для первого курса,Delphi [D7, XP]
Первокурсница © (2010-02-27 22:09:00)Доброго всем вечерочка, дорогие программисты!
Не откажите в помощи слабой и беззащитной девочке...
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:38:00) [1]Я не могу брать деньги с женщин.
Первокурсница (2010-02-27 22:35:00) [2]Как же я вам буду варить и гладить? :) Через Web-money? Если вы профессиональный программист и сделаете программы целиком как говорится от бегина до енд то о цене можем договориться.
KilkennyCat (2010-02-27 22:33:00) [3]
> Первокурсница © (27.02.10 22:30) [7]
а у меня нет взаимпонимания с обедом и рубашками (а если честно, то лень варить и гладить). Ну так что, договариваемся?
Первокурсница (2010-02-27 22:33:00) [4]Постараюсь понять. Спасибо.
KilkennyCat (2010-02-27 22:32:00) [5]
> 2 просьба: Дан файл f1 целых чисел. Определить наименьшее
> из нечетных чисел и наибольшее из чисел, принадлежащих интервалу
> [a, b].
ну а эта задача легко разбивается на подзадачи, равные первому заданию. новое добавляется лишь определение нечетности.
Первокурсница (2010-02-27 22:30:00) [6]У меня с дельфи нет взаимопонимания... как говорится, ботики жмут и нам не по пути
KilkennyCat (2010-02-27 22:27:00) [7]
> А где гарантия
гарантией является выгода для меня.
> тут всё гораздо сложнее чем я думала
абсолютно нет. я лишь оптимизировал.
Первокурсница (2010-02-27 22:24:00) [8]ТО есть спасибо
Первокурсница (2010-02-27 22:23:00) [9]Мда... тут всё гораздо сложнее чем я думала :( Cgfcb,j вам огромное, выручили :*
KilkennyCat (2010-02-27 22:21:00) [10]
> 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:00) [11]А где гарантия того что вы мне поможете? :)
KilkennyCat (2010-02-27 22:17:00) [12]Готов помочь за взаимность: готовишь мне обед и гладишь две рубашки.
но сначала пришли фото
| |
