Контрольная работа: Разработка программы представления табличных данных в виде диаграммы прямоугольников

Формализация задачи

Словесное описание алгоритма

Листинг программы

Тестирование

Отладка

Формализация задачи

Разработка программы представления табличных данных в виде диаграммы прямоугольников.

Словесное описание алгоритма

Нажатием кнопки «Новый» производится создание нового типизированного (nrec) файла: выводится диалоговое окно с текстовым полем для имени файла, затем это имя устанавливается в соответствие файловой переменной (fdata). Файл открывается процедурой Rewrite, затем производится проверка на наличие ошибок при открытии файла. Если открытие было успешным, то флаг is_open присваивается значение true, становятся доступными элементы для ввода записей.

Нажатием кнопки «Открыть» производится открытие файла для чтения процедурой Reset. Если файл открыт, производится считывание всех записей из этого файла и помещение их в таблицу (SG), флаг is_open устанавливается в true.

Нажатием кнопки «Ввод» проверяется не пусты ли текстовые поля EKEY и EVAL. Если «нет»б проверяются данные в поле EVAL. Если эти данные являются числом, то данные из EKEY и EVAL записываются в таблицу.

Диаграмма (GR) строится нажатием кнопки «Построить»: очищаются значения диаграммы, если в таблице значений не больше чем два, построение не выполняется.

Кнопка «Сохранить» перемещает указатель на начало файла и записывает все данные из таблицы в открытый файл.

Листинг программы

{ Листинг файла Kmain.pas }

unit Kmain;

interface

uses

KDialog,

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Series;

type nrec = record

key:string[20];

val:real

end;

type

TFMAIN = class(TForm)

SG: TStringGrid; GR: TChart; EKEY: TEdit; EVAL: TEdit;

BENT: TButton; BNEW: TButton; BOPEN: TButton; BMAKE: TButton;

--> ЧИТАТЬ ПОЛНОСТЬЮ <--