Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Две задачи для первого курса,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].

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


 
KilkennyCat ©   (2010-02-27 22:33) [9]


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

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


 
Первокурсница ©   (2010-02-27 22:33) [10]

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


 
Первокурсница ©   (2010-02-27 22:35) [11]

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


 
KilkennyCat ©   (2010-02-27 22:38) [12]

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



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.111 c
8-1204980627
DeBUGger13
2008-03-08 15:50
2010.08.27
Теги OGG и WMA.


2-1272351299
noob_one
2010-04-27 10:54
2010.08.27
ВЫзвываю форму из библиотеки. Она отображается отдельной


6-1224232718
DVM
2008-10-17 12:38
2010.08.27
Active Directory и самописный сервер. Авторизация.


9-1185035010
Evgraf
2007-07-21 20:23
2010.08.27
Подскажите


2-1272386845
romario
2010-04-27 20:47
2010.08.27
Как передать данные из одной процедуры в другую