program_lab2_2_v29.ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "# Спецификация к лабораторной работе №2\n",
    "# Типизированный файл, записи, перечисляемый тип\n",
    "# Вариант 29\n",
    "\n",
    "## Задание\n",
    "\n",
    "В типизированном файле, \n",
    "\n",
    "- хранящем записи вида $C1$, \n",
    "- найти (и вывести) $C2$, \n",
    "- и переставить её по правилу $C3$ \n",
    "\n",
    "(условия $C1$, $C2$ и $C3$ – см. в таблице ниже).\n",
    "\n",
    "Для создания типизированного файла предусмотреть две возможности: \n",
    "\n",
    "- а) считывание данных из заранее подготовленного нестандартного текстового файла, \n",
    "- б) добавление данных в типизированный файл в режиме диалога.\n",
    "\n",
    "Предусмотреть также возможность просмотра данных из типизированного файла.\n",
    "\n",
    "Для написания своей программы воспользуйтесь примером программы, приведенным ниже. \n",
    "\n",
    "Для выбора нужного действия в программе использовано меню."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 1,
   "metadata": {},
   "outputs": [],
   "source": [
    "%display ascii_art"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## 1. Условие задачи\n",
    "Считать данные из нестандартного текстового файла с данными $C1$, найти и вывести на экран $C2$, добавить данные $C3$ в режиме диалога.\n",
    "\n",
    "В столбце **Тип**: \n",
    "\n",
    "- п – перечисляемый, \n",
    "- с – строковый, \n",
    "- ч – числовой,\n",
    "- $*$ – по вашему выбору.\n",
    "\n",
    "$*$ Дату можно представить разными способами: \n",
    "\n",
    "- одной строкой ('31.12.2015' или '2015/12/31' и т.п.),\n",
    "- тремя целыми числами, \n",
    "- двумя числами и перечисляемым типом месяца, \n",
    "- типом TDataTime.\n",
    "\n",
    "## 2. Уточненное условие задачи\n",
    "\n",
    "| Тип | $C1$ | $C2$ | $C3$ |\n",
    "|:-:|:-:|:-:|:-:|\n",
    "| п | Тип (мобильный, городской, факс и т.д) | Последнюю запись с самым давним (по дате) платежом на сумму менее 200 | Перед первой записью файла (со сдвигом) |\n",
    "| с | Телефонный номер | - | - |\n",
    "| ч | Сумма платежа | - | - |\n",
    "| $*$ | Дата платежа | - | - |\n"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## 3. Пример программы с типизированным файлом\n",
    "Задача. \n",
    "Найти первого Ивана c первого курса бакалавриата с хотя бы одной пятеркой из трёх оценок и изменить все его оценки на 3."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {},
   "outputs": [],
   "source": [
    "program PrjLAB2;  // два параметра – 1) имя типизир. файла, 2) имя текстового файла\n",
    "{$APPTYPE CONSOLE}\n",
    " \n",
    "uses\n",
    "  SysUtils,     // ANSIUpperCase и др. -  смена регистра\n",
    "  Windows,   // SetConsoleCP - смена кодировки\n",
    "  UnLab2;   // свой модуль с типом и процедурами для решения задачи\n",
    " \n",
    "//--------------------главная программа - меню -------------------------\n",
    "var\n",
    "  ch: char;\n",
    "begin\n",
    "  SetConsoleCP(1251);      // из модуля Windows\n",
    "  SetConsoleOutputCP(1251);\n",
    " \n",
    "  repeat\n",
    "    writeln('--------------------------------------');\n",
    "    writeln('D - создать новый тип.файл в диалоге; ');\n",
    "    writeln('N - создать из текстового файла; ');\n",
    "    writeln('F - поиск и изменение; ');\n",
    "    writeln('V - просмотр;');\n",
    "    writeln('E - конец.');\n",
    "    write('Ваш выбор?'); readln(ch);\n",
    "    writeln('--------------------------------------');\n",
    " \n",
    "    ch:= UpCase(ch);  // символ в верхний регистр (латиница)\n",
    "    case ch of\n",
    "//--------------------------------------------------------------\n",
    "//----------первая часть: создание типизированного в диалоге ---\n",
    "    'D': CreateTypedFile1;  // вызов соответствующей процедуры для выбора D\n",
    "//----------вторая часть: создание типизированного файла из текстового\n",
    "    'N': CreateTypedFile2;\n",
    "//----------третья часть: поиск и редактирование ---------------\n",
    "    'F': FindIVAN;\n",
    "//-----------просмотр----------------------------------------------\n",
    "    'V': ViewFile;\n",
    "//-----------выход----------------------------------------------\n",
    "    'E': exit;\n",
    "//--------------------------------------------------------------\n",
    "      else\n",
    "        begin\n",
    "          writeln('Нет такой команды');\n",
    "          write('Press ENTER'); readln;\n",
    "        end;\n",
    "    end;\n",
    " \n",
    "  until ch='E';\n",
    "end.\n",
    "\n",
    "Исходный код модуля:\n",
    "Unit  UnLab2;   // файл  UnLab2.pas\n",
    "Interface\n",
    " \n",
    "Uses\n",
    "  SysUtils;     // ANSIUpperCase и др. -  смена регистра и обработка исключений\n",
    " \n",
    "Type\n",
    "  TKurs = (Bacalavr1, Bac2, Bac3, Bac4, Magistr1, Mag2); // с 0 до 5 по умолчанию\n",
    "  TStud = record\n",
    "    FIO: record\n",
    "      F, I, O: string[30]; // Только статические строки можно сохранить в файл\n",
    "      end;\n",
    "    Kurs: TKurs;\n",
    "    o1,o2,o3: byte;\n",
    "  end;\n",
    " \n",
    "//----------первая часть: создание типизированного файла в диалоге\n",
    "Procedure CreateTypedFile1();\n",
    " \n",
    "//----------вторая часть: создание типизированного файла из текстового\n",
    "Procedure CreateTypedFile2();\n",
    " \n",
    "//-------------- третья часть: поиск в типизированном файле ----\n",
    "Procedure FindIVAN();\n",
    " \n",
    "//-------------- просмотр типизированного файла ----\n",
    "Procedure ViewFile();\n",
    " \n",
    "Implementation // -----------реализационная часть-----------------\n",
    " \n",
    "//----------первая часть: создание типизированного файла в диалоге\n",
    "Procedure CreateTypedFile1();\n",
    "var\n",
    "  Stud: TStud;\n",
    "  fr: file of TStud; // типизированный файл - файл записей\n",
    "  n, kol: integer;\n",
    "  ch: char;\n",
    "  FileName:string[80];\n",
    "begin\n",
    "  if ParamCount<1 then\n",
    "  begin\n",
    "    writeln('Мало параметров '#13#10'Press enter');\n",
    "    readln;  exit\n",
    "  end;\n",
    "  FileName := ParamStr(1);\n",
    "// или простой диалог или через параметры программы при её вызове ParamStr(1)\n",
    "// writeln('Введите имя типизированного файла');\n",
    "// readln(FileName);\n",
    " \n",
    "  AssignFile(fr, FileName);\n",
    "  Try  ReWrite(fr);    //  или  {$I-} ReWrite(fr); {$I+} и if IOResult<>0 then <ошибка>\n",
    "  Except\n",
    "    writeln('Error: не удалось создать типизированный файл ',FileName);\n",
    "    write('Press ENTER'); readln;  exit\n",
    "  end;\n",
    " \n",
    "  kol:=0;\n",
    "  repeat\n",
    "    write('Фамилия =?');   readln(Stud.FIO.F);\n",
    "    write('Имя =?');       readln(Stud.FIO.I);\n",
    "    write('Отчество =?');  readln(Stud.FIO.O);\n",
    "// ввод значения перечисляемого типа (TKurs) через доп.переменную n целого типа\n",
    "    write('Курс(1-6) =?'); readln(n); Stud.Kurs:=TKurs(n-1);  // 1-6 → 0-5\n",
    "    write('Три оценки: ');\n",
    "    readln(Stud.o1, Stud.o2, Stud.o3);\n",
    " \n",
    "    write(fr, Stud);   // запись записи целиком в файл\n",
    "    inc(kol);\n",
    " \n",
    "    write('Ещё? (y/n)');\n",
    "    readln(ch)\n",
    "  until UpCase(ch)='N';\n",
    " \n",
    "  CloseFile(fr);\n",
    " \n",
    "  writeln('Создан типизированный файл из ',kol,' записей');\n",
    "  write('Press ENTER');\n",
    "  readln;\n",
    "end;\n",
    " \n",
    "//---------------------------------------------------------------------------------------\n",
    "//----------вторая часть: создание типизированного файла из текстового\n",
    "Procedure CreateTypedFile2();\n",
    "var\n",
    "  Stud: TStud;\n",
    "  ft: TextFile; // текстовый файл\n",
    "  fr: file of TStud; // типизированный файл - файл записей\n",
    "  n, kol: integer;\n",
    "  ch: char;\n",
    "  FileName:string[80];\n",
    "begin\n",
    "  if ParamCount<2 then\n",
    "  begin\n",
    "    writeln('Мало параметров '#13#10'Press enter');\n",
    "    readln;  exit\n",
    "  end;\n",
    " \n",
    "FileName:= Paramstr(2);\n",
    " // или простой диалог или через параметры программы при её вызове ParamStr(2)\n",
    "// writeln('Введите имя текстового файла');\n",
    "// readln(FileName); \n",
    " \n",
    " AssignFile(ft, FileName);\n",
    "  Try  Reset(ft);\n",
    "  Except\n",
    "    writeln('Error: не удалось открыть текстовый файл ',Paramstr(2));\n",
    "    write('Press ENTER'); readln;  exit\n",
    "  end;\n",
    " \n",
    " \n",
    "  //----------------- ЗАГЛУШКА --------------------\n",
    "  //------------ Напишите код сами, а пока в диалоге: ----------------\n",
    "              CreateTypedFile1; // заглушка - создание в диалоге –  заменить на свой код\n",
    " \n",
    "  CloseFile(ft);\n",
    " \n",
    "  write('Press ENTER');\n",
    "  readln;\n",
    "end;\n",
    " \n",
    "//--------------------------------------------------------------\n",
    "//-------------- третья часть: поиск в типизированном файле ----\n",
    "Procedure FindIVAN();\n",
    "var\n",
    "  Stud: TStud;\n",
    "  fr: file of TStud;\n",
    "  n, kol: integer;\n",
    "  FileName:string[80];\n",
    "begin\n",
    "  if ParamCount<1 then\n",
    "  begin\n",
    "    writeln('Мало параметров '#13#10'Press enter');\n",
    "    readln;  exit\n",
    "  end;\n",
    " \n",
    "  FileName := ParamStr(1);\n",
    "// или простой диалог или через параметры программы при её вызове ParamStr(1)\n",
    "// writeln('Введите имя типизированного файла');\n",
    "// readln(FileName); \n",
    " \n",
    "  AssignFile(fr, FileName);\n",
    "  Try  ReSet(fr);    //  или  {$I-} ReSet(fr); {$I+} if IOResult<>0 then\n",
    "  Except\n",
    "    writeln('Error: не удалось открыть типизированный файл ',FileName);\n",
    "    write('Press ENTER'); readln;  exit\n",
    "  end;\n",
    " \n",
    "  kol:=0;\n",
    "  while not eof(fr) and (kol=0) do\n",
    "  begin\n",
    "    read(fr, Stud); // считывание\n",
    "       // Если Иван c первого курса бакалавриата с хотя бы одной пятеркой\n",
    "    if ((Stud.o1=5) or (Stud.o2=5) or (Stud.o3=5)) and\n",
    "      (Stud.Kurs = Bacalavr1) and\n",
    "      (ANSIUpperCase(Stud.FIO.I) = 'ИВАН') then  // сравнение в верхнем регистре\n",
    "    begin\n",
    "      writeln('Найден ', Stud.FIO.I,' ',Stud.FIO.O,' ',Stud.FIO.F,\n",
    "      ' оценки ', Stud.o1, ' ', Stud.o2,' ', Stud.o3 );\n",
    "      inc(kol);\n",
    "      // Изменение считанного\n",
    "      Stud.o1:=3; Stud.o2:=3; Stud.o3:=3;\n",
    "      n:=FilePos(fr)-1; // позиция найденной записи – перед текущей\n",
    "      // запись изменений \"поверх\" предыдущей версии\n",
    "      seek(fr, n); // изменить тек.позицию в файле\n",
    "      write(fr, Stud);       // запись в файле изменена\n",
    "      writeln('В файле изменена запись номер ', n+1)\n",
    "    end;\n",
    "  end;\n",
    " \n",
    "  if kol=0 then\n",
    "    writeln('Данные, соответствующие запросу, не найдены');\n",
    " \n",
    "  CloseFile(fr);\n",
    " \n",
    "  write('Press ENTER');  readln;\n",
    "end;\n",
    "//--------------------------------------------------------------\n",
    "//-------------- просмотр типизированного файла ----\n",
    "Procedure ViewFile();\n",
    "var\n",
    "  Stud: TStud;\n",
    "  fr: file of TStud;\n",
    "  n, kol: integer;\n",
    "  FileName:string[80];\n",
    "begin\n",
    "  if ParamCount<1 then\n",
    "  begin\n",
    "    writeln('Мало параметров '#13#10'Press enter');\n",
    "    readln;  exit\n",
    "  end;\n",
    " \n",
    "  FileName := ParamStr(1);\n",
    "// или простой диалог или через параметры программы при её вызове ParamStr(1)\n",
    "// writeln('Введите имя типизированного файла');\n",
    "// readln(FileName); \n",
    " \n",
    "  AssignFile(fr, FileName);\n",
    "  Try  ReSet(fr);    //  или  {$I-} ReSet(fr); {$I+} if IOResult<>0 then\n",
    "  Except\n",
    "    writeln('Error: не удалось открыть типизированный файл ',FileName);\n",
    "    write('Press ENTER'); readln;  exit\n",
    "  end;\n",
    " \n",
    "  kol:=0;\n",
    "  while not eof(fr) do\n",
    "  begin\n",
    "    read(fr, Stud); // считывание\n",
    " \n",
    "      writeln('Найден ', Stud.FIO.I,' ',Stud.FIO.O,' ',Stud.FIO.F,\n",
    "      ' курс ', Ord(Stud.Kurs)+1,\n",
    "      ' оценки ', Stud.o1, ' ', Stud.o2,' ', Stud.o3 );\n",
    "      inc(kol);\n",
    "  end;\n",
    " \n",
    "  if kol=0 then\n",
    "    writeln('Данные не найдены')\n",
    "  else\n",
    "    writeln('Найдено ',kol, ' записей');\n",
    " \n",
    "  CloseFile(fr);\n",
    " \n",
    "  write('Press ENTER');  readln;\n",
    "end;\n",
    " \n",
    "End."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {},
   "outputs": [],
   "source": []
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {},
   "outputs": [],
   "source": []
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "SageMath 8.4",
   "language": "",
   "name": "sagemath"
  },
  "language_info": {
   "codemirror_mode": {
    "name": "ipython",
    "version": 2
   },
   "file_extension": ".py",
   "mimetype": "text/x-python",
   "name": "python",
   "nbconvert_exporter": "python",
   "pygments_lexer": "ipython2",
   "version": "2.7.15"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 2
}