Ramzey
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[code=pas]
USES Crt;
CONST
LenReal = 6;
VAR
F : file of real;
i,Code : word;
Number,Max : real;
InStr : string;
FileName : string;
LenFile : word;
Nechet : boolean;
BEGIN
clrscr;
{имя файла задаем в командной строке}
if ParamCount<1 then
begin
writeln('Wrong parameters');
exit
end;
FileName:=ParamStr(1);
Assign(F,FileName);
{$I-}
ReWrite(F);
{$I+}
if IOResult<>0 then
begin
writeln('Can`t create file ',FileName);
exit
end;
Code:=0;
repeat
readln(InStr);
Val(InStr,Number,Code);
if Code=0 then write(F,Number);
until (Code<>0) or (InStr='');
close(F);
Assign(F,FileName);
{$I-}
ReSet(F);
{$I+}
if IOResult<>0 then
begin
writeln('Can`t open file ',FileName);
exit
end;
NeChet:=false;
read(F,Number);
Max:=Number;
while not EOF(F) do
begin
read(F,Number);
if Nechet and (Number>Max) then Max:=Number;
Nechet:=not Nechet;
end;
writeln(Max);
close(F);
repeat until keypressed;
END.
[/code]
|
Всего записей: 11 | Зарегистр. 10-12-2006 | Отправлено: 11:58 17-12-2006 | Исправлено: Ramzey, 15:28 17-12-2006 |
|
