Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.03.2012, 16:47   #1
petrower
 
Регистрация: 05.01.2012
Сообщений: 4
Радость Методом индуктивной функции вычислить среднюю длину ...

Дана последовательность символов, заданная в типизированном файле.
Методом индуктивной функции вычислить среднюю длину символьных представлений натуральных чисел, начинающихся с 9. ( Паскаль )

Я написал, но вот, что то на практике не фурычит

Код:
uses crt;

Type
   TFile = file of char;
   TInt = Integer;
   TReal = Single;

Function One(var f: TFile; var Res: TReal): boolean;

var
  i, count: TInt;
  ok: boolean;
  f1, f2: boolean;
  t: char;

Const
    Dig = ['0'..'9'];

begin
    ok:= true;
    reset(f);
If IOResult <> 0 then ok:= false else
 begin
   i:= 0;
   count:= 0;
   f1:= false;
   f2:= false;
   while (not ok) or eof(f) do
     begin
      {$I-}
      read(f,t);
      {$I+}
       If IOResult <> 0 then ok:= false;
       If t = '9' then
       f1:= true;
       If f2 = true then
        begin
          count:= count + 1;
          f2:= false;
          end;end;
   If (t in Dig) and f1 then begin
   i:= i + 1
   end else
   If f2 then begin
     count:= count + 1; f2:= false; end;
   If (ok = true) and (I <> 0) then res:= I/count; one:= ok;
   end;
end;

var
  name: string;
  err: boolean;
  f: TFile;
  res: TReal;
  count, i: TInt;
begin
clrscr;
writeln('Enter name of file');
   readln(name);
   assign(f, name);
   err:= one(f, res);
   If err then writeln('res=', count) else writeln('error');
   {writeln(i);
   writeln(Count);}
   readln;


end.
petrower вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
символы в типизиртванном файле найти методом индуктивной функции среднее значение символьных представлений натур чисел начиная с 9 calimdor Помощь студентам 0 15.02.2012 15:49
Вычислить интеграл методом трапеций alex55 Общие вопросы Delphi 0 11.12.2011 21:48
найти среднюю длину слов в массиве строк и заменить нею слова последней строки (размерность массива 12) INZA Паскаль, Turbo Pascal, PascalABC.NET 0 20.12.2010 19:45
ПОСЛЕДНЯЯ МОЯ ТЕМА НА ЭТОМ ФОРУМЕ. TurboPascal: теория графов, определить длину минимального пути методом ulala Помощь студентам 8 23.12.2009 18:55
вычислить определенный интеграл методом прямоугольников ronn Помощь студентам 3 27.05.2009 19:44