Поля
1. ф
2. И
3. О
4. оценка
5. др
пойск по оценке
Проверте пожалуйста правильность написанной программы
особенно с файлами! не на путал ли я что...
может есть излишества или глупости!
Lab3_4.zip ( 2.15 килобайт )
Кол-во скачиваний: 428
и может кто поможет с процедурой пойска...а то что-то она не получаеться...
Вроде никаких явно бросающихся в глаза недочетов нет, за исключением, возможно, вот чего:
У тебя в программе сразу выделяется память под 1000 записей, так? Зададимся вопросом: "А почему именно 1000?" Не в том ли дело, что больше при таком размере структуры New может и не дать, ибо есть ограничение на размер блока, выделяемого с помощью New?
Вот я и клоню к тому, что... А почему бы не перестать забивать память сразу заведомо ограниченным количеством записей (которые, возможно, никто и не использует, но с другой стороны - а если понадобится больше? А нельзя )
Так вот, собственно, предложение:
Type
PClass_r = ^Class_r;
Class_r = Record
{ Ну, тут то что у тебя и было... }
End;
Const
q = 65520 div sizeof(PClass_r);
_class = array [1 .. q] of PClass_r; { <--- Чувствуешь разницу? }
PtrClass = ^_class;
{ где-то в начале программы}
new(Stud);
{ ... }
{ а при добавлении студентов: }
writeln('Tape quantity of adding students'); readln(n);
for i:=1 to n do begin
new(stud^[i]); { Выделяем память под ДАННЫЕ }
with Stud^[i]^ do begin
// Все действия - как у тебя и было
end;
...
а вот с удалением крах полный! если у кого есть минутка помогите мне с этими злобными процедурами
procedure Delete(var n:integer;var Stud: PtrClass;
D_kol: integer; D_mas: mas; Opis: PtrClass;
OutPuе:outproc);
var
b,j,i,c:integer;
An:char;
begin
repeat
repeat
repeat
ClrScr;
OutPut(D_kol,Opis);
writeln('Do you want to delete some elements?');
readln(An);
if (An<>'n') and (An<>'y') then
begin
writeln('Answer Yes or No!');
writeln('Try again. Press Enter...');
readln;
end;
until (An='n') or (An='y');
if An='n' then exit;
repeat
clrscr;
OutPut(D_kol,Opis);
writeln('Tape the number to delete: ');
readln(b);
if (b>D_kol) or (b<1) then
begin
writeln('Error in number!!');
writeln('Try again.Press Enter...');
readln;
end;
until (b<=D_kol) and (b>=1);
что-то тут я хотел написать....
writeln('Are you shure? (y/n)');
readln(An);
until (An='y') or (An='n');
until An='y';
for i:=1 to D_kol do
begin
if i=b then
begin
n:=n-1;
D_kol:=D_kol-1;
for c:=D_mas[i] to n do
Stud^[c]:=Stud^[c+1];
for i:=b to D_kol do
begin
Opis^[i]:=Opis^[i+1];
D_mas[i]:=D_mas[i+1]-1;
end;
end;
end;
clrscr;
writeln ('Element is erased!');
readln;
until An='n';
end;
Ты расскажи, что именно ты удалять хочешь? какой-то один конкретный элемент, или несколько сразу? (можно и так и так сделать)
да...я думаю не стоит заморачиваться и стоит удалять по 1 элементу...
Ну, если по одному, тогда вот так:
procedure Delete(var n:integer; var Stud: PtrClass);
var
b: integer;
An:char;
begin
repeat
repeat
repeat
ClrScr;
OutPut(n, stud);
writeln('Do you want to delete some elements?');
readln(An);
if (An<>'n') and (An<>'y') then begin
writeln('Answer Yes or No!');
writeln('Try again. Press Enter...');
readln;
end;
until (An='n') or (An='y');
if An='n' then exit;
repeat
clrscr;
OutPut(n, stud);
writeln('Tape the number to delete: ');
readln(b);
if (b>n) or (b<1) then begin
writeln('Error in number!!');
writeln('Try again.Press Enter...');
readln;
end;
until (b<=n) and (b>=1);
writeln('Are you sure? (y/n)');
readln(An);
until (An='y') or (An='n');
until An='y';
move(stud^[b+1], stud^[b], (n - b)*sizeof(stud^[1]));
dec(n);
clrscr;
writeln ('Element is erased!');
readln;
end;
опять я решил делать как легче и ошибся(
голова гудит от преподавателя!
вот набросал процедуру удаления как и плонировал, но опять прокол! и процедура пойска не удаёться(((
punkska, пойми, ты даешь выдранную из контекста информацию, и я ничем не могу тебе помочь... Ты не объяснил, что значат параметры, которые ты передаешь в Delete, но тот вариант, который предложил я (безо всяких параметров кроме количества элементов в массиве, и собственно массива Stud - прямое удаление по номеру) тебя не устроил...
Так расскажи, что содержат параметры Data, F_kol, F_mas, opis...
Вечер добрый
Вон я что написал! и за что получал целый день по голове!
что необходимо сделать
1 пойск по дате (оказываеться) ! как вам мой выриант? мне пока не нравиться...
2 сделать ввод в процедуре пойска (раньше было в меню)
3. разделитьь на 2 пункта УДАЛИТЬ и ПОЙСК (ну это не проблема)
на что прошу обратить внимание
на процедуру пойска и удаления! что-то я там репитов дофига наставил (в один момент даже запутался)
ну и просто ошибочки посмотрите! ПРЕПОДАВАТЕЛЬ ОЧЕНЬ СТРОГО относиться к правильности и грамотности прог.!
почему если внести ввод даты для пойска в тело процедуры... процедура начинает работать не верно?
Телепатия? Как изменил, что сделал - покажи...
Внимание на процедуры ПОЙСК и УДАЛИТЬ и на их обращение в меню
1. убрал запрос из меню и добавил в тело ПОЙСКА ( ввод даты для пойска)
после этого не отображаеться таблица найденных (она пуста)
я понимаю почему это...точнее догадываюсь, но мне кажеться и так должно рабатать...
Если вернуть ЗАПРОС НА ДАТУ ДЛЯ ПОЙСКа в меню, то таблица найденных отображаеться но тогда -->
2. удаление! что-то тут не чисто ! удаляет не по одному а по 2, 3 и тп (с первого и по номерр вводимый с кл)
вроде ясно где искать ошибки! но не вижу их(((
зы Лето только наступилп, а телепаты уже в отпуске((( жаль( =)
Прикрепленные файлы
view.rar ( 2.66 килобайт )
Кол-во скачиваний: 193
Глобальные переменные - зло... Избавляйся от них. Это одно.
Второе: в процедуре Search есть такие строки:
...А расскажи мне, зачем ты вводишь дату, если потом ее нигде на протяжении этой процедуры не используешь? Да и не только в этой процедуре, а вообще...
WriteLn('Enter date');
InPutDate(Date);
...
if (Y_=Y) and (M_=M) and ((D_=D) or (D_<>D)) thenособенно его правая часть
Спасибо Volvo, выручил) и насмешил))
особенно его правая часть ага! крутезна!!!! ))))) тока заметил)))
блин... меня еле откачали! в юмор надо)
осталось удаление... будем ошибку искать)