Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

не могу разобраться с программой. Как разработать программу "Операторы"?

78K
21 ноября 2014 года
Гулнур Алматова
4 / / 18.11.2013
как разработать программу "операторы" в паскаль. Считывается файл, написанный на ЯВУ. найти все операторы присваивания
1.8K
23 ноября 2014 года
Kuzya
184 / / 19.03.2008
В своей программе, открываете файл с ЯВУ как обычный текст, и как в обычном текстовом файле делаете поиск на "=" или ":=" и с каждым успешным поиском увеличиваете счётчие на 1. В конце обработки файла, выводите количество найденых операторов присваивания.
465
24 ноября 2014 года
QWERYTY
595 / / 25.03.2012
Код:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
f: TEXTFILE;
Count: UINT64;
r, a: CHAR;


begin
  try
    { TODO -oUser -cConsole Main : Insert code here }

   AssignFile(f,'Расположение вашего ЯВА файла');
   FileMode := 0;
   Reset(f);
   Count := 0;

   while not Eof(f) do
   begin
     Read(f, r);
     if r = '=' then Inc(Count);
   end;

   CloseFile(f);

   WriteLn('Количество операторов присваивания:  ' + IntToStr(Count));

   Readln(a); // Это не нужно



  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.
Ну а дальше если что не так работает вы сами допилите
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог