Люди добрые)

[Татяна]

Люди Добрые! Помогите неразумному человеку, справиться с задачей.

Программа управления однотабличной базой данных.Информация храниться в массиве записей.Запись должна содержать как минимум 3 поля различных типов, в т.ч. строковый, целый и вещественный.Хранение информации осуществляеться в типизированном файле на диске.Минимальные требования к программе включают:
1)Запись/считывание базы данных в /из файла
2)Добавление новой записи данных.
3)Уничтожение выбранно по номеру записи данных.
4)Просомтр сожержимого базы данных ( с порядковой нумерацией записей при вводе на экран)
5)Редактирование полей выбранной записи данных.
6)Сортировка базы данных по выбранному полю
7)Поиск записи в базе данных по выбранному полю
Диалог программы с пользователем можно организовать посредством мню, сожедращего перечисленный выше пункты, с выбором нужного пункта по номеру.Не следует так же забывать о пункте "Выход из программы".Указанные функции оформить в вие отдельных подпрограмм.



Буду очень презнательна за любую умную мысль)

[__STDC__]

эм... какого рода мысли? вы имеете ввиду материализовать мысль в программный код? может есть конкретные вопросы? не хочется писать всю прогу =)

[Sazary]

Ну вот несколько мыслей:
Нужно завести массив этих записей. Сделать процедуру заполнения (чтения из файла) и записи (в файл). То есть все операции будут проводиться именно над массивом.

С добавлением все понятно: добавляем в конец и увеличиваем счетчик записей.

Уничтожение: сдвигаем записи правее уничтожаемой влево и уменьшаем счетчик (не забыв уменьшить номера сдвигаемых записей).

С просмотром тоже все ясно. Выводим запись с заданным индексом.

Собственно, вот.
Задача несложная.

[__STDC__]

могу поделиться меню.. я его делал когда-то для одной из своих программ...

procedure Menu;
var
	point:integer;
begin
	writeln(^J,'Menu');
	writeln('---------------');
	writeln('1. Start');
	writeln('2. Options');
	writeln('3. Help');
	writeln('4. Exit');
	writeln('5. About');
	writeln('---------------');
	write('->');
	read_var(point);

	case point of
		1: Start;
		2: Options(attempts_number);
		3: GetHelp;
		4: Quit;
		5: About;
	else writeln('Error - enter 1-5');
	end;
end;

в read_var там проверка на вводимое число.. чтобы оно было числом..

procedure read_var(var value:integer);
var
	error:integer;
	input:string;
begin
	readln(input);
	if (input = 'Q') or (input = 'q') then halt;
	val(input,value,error);

	while (error <> 0) do begin
		writeln('Input CORRECT value (Q or q to close program)');
		readln(input);
		if (input = 'Q') or (input = 'q') then halt;
		val(input,value,error);
	end;
end;

Ну чуть подправить обе процедурки.. и нормально) вторую лучше с repeat`ом переписать наверное...

[Sazary]

Имхо, конечно, но как-то немного накручено для простого меню )
Я б как-нибудь так сделал:

procedure Menu;
var k : char;
begin
repeat
clrscr;
writeln('1 - Процедура 1');
writeln('2 - Процедура 2');
 { ........................... }
writeln('Esc - выход');
repeat
k := readkey;
until (k in ['1'..'5']) or (k=#27);
case k of
'1' : procedure1;
'2' : procedure2;
 {........................}
end;

until k=#27;
end;

[__STDC__]

Да там по сути тоже самое, хотя твой вариант красивее, согласен =) Только тогда clrscr убрать лучше.. иначе вывод будет затираться постоянно, если какая-то процедура будет его осуществлять.. у меня получается что-то вроде такого:

procedure read_var(var value:integer);
var
	error:integer;
	input:string;
begin
	repeat
		readln(input);
		if (input = 'Q') or (input = 'q') then halt;
		val(input,value,error);
		if (error<>0) then write('Input correct value');
	until error=0;
end;

procedure Menu;
var
	point:integer;
begin
{...}
	writeln('1. Start');
	writeln('2. Options');
{...}
	read_var(point);

	case point of
		1: writeln('Proc1');
		2: writeln('Proc2');
	else writeln('Error - enter 1-2');
	end;
end;

и основная :

begin
flag:=false;
repeat
	Menu;
until flag;
end.

мне достоинство такого метода видится в том, что с помощью read_var можно проверять и остальные числовые переменные.. такая.. в некотором роде защита от дурака

[Sazary]

Только тогда clrscr убрать лучше.. иначе вывод будет затираться постоянно, если какая-то процедура будет его осуществлять..

Да нет, почему? Наоборот. Меню вызывается, когда процедура закончит работать. И чтобы не мешать все в одну кучу, лучше очистить экран. А в конце процедуры можно лишний readln добавить, чтобы на результаты посмотреть.

[__STDC__]

Сообщение от Sazary

Да нет, почему? Наоборот. Меню вызывается, когда процедура закончит работать. И чтобы не мешать все в одну кучу, лучше очистить экран. А в конце процедуры можно лишний readln добавить, чтобы на результаты посмотреть.

ну да, можно и так в принципе...

[Татяна]

))Отлична , спасибо Вам, большое ЧЕЛОВЕЧЕСКОЕ)

[Татяна]

А что вы сможете подсказать, по этому...


Написать модули для работы с комплексными числами.Модуля должен предоставлять следующие ресурсе:тип данных для описания комплексных чисел (запись), несколько процедур для работы с комплексными числами, среди которых в обязательном порядке должны присутсвовать процедуры суммирования, вычитания, умножения и деления комплексных чисел.Требуеться также представить программу для тестирования модуля.