Помогите пожалуйста с заданием! Срочно!

[Croessmah]

Если репа превышает 1000, можете быть уверены, Вас не обманут.

унизил прям

[Bugrimov]

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

Спасибо, уважаемый! Тогда приступаю к написанию

Я так понял задачу нужно реализовать на Pascal. А что мешает потратить некоторое время на освоение несложных конструкций языка для решения задачи? В задаче нет "супер логики". А вам бы это дало дополнительный опыт. А впрочем ... Вам виднее

[Dvoishnik]

если по простому то так

program dds;
uses Crt; {модуль для рабты ReadKey и ClrScr }

type {определение структуры файла}
Student = record
        FIO,Dom_ad:String; 
        Vozr:byte;
        pol:boolean;
end;
var
f:file of Student; {файловая переменная}
fil:Student ; { для присваивания в файл}
p:Char; {для ввода пола}
r:integer; { бля определения }
flag1, { бля редактирования адреса}
flag:byte; { влаг для работы меню }
ind:integer; {индекс расположения записи и номер записи}

Begin
repeat  {за цикливаем программу до нажатия ESC}
ind:=2; 
assign(f, 'C:\fa.dat' ); {связь файла с файловой переменной}
ClrScr; {очистка экрана}
 {$I-}  {отключение втроенного обработчика ошибок}
 reset (f);
 {$I+} {включение втроенного обработчика ошибок}
{проверка наличия файла}
 r := ioresult; 
 if r <> 0 then	
	rewrite(f) {создание файла}
	else reset(f);
 	
write('добавление-1 просмотр-2 фильтрация-3 редактировать-4');
 readLn(flag);	{выбор необходимого пункта}
case flag of	
{добавление записей в файл}
1:begin
Seek(f,FileSize(f)); {переход на последню запись}
repeat 
ClrScr;
repeat
WriteLn('Введите ФИО не больше 29 символов');
 readLn(fil.fio);
until  length(fil.fio) <29; 
repeat
WriteLn('Введите адрес не больше 29 символов');
 readLN(fil.Dom_ad);
until  length(fil.fio) <29 ;

WriteLn('Введите возраст');
 readLN(Fil.Vozr);
 {проверка ввода правельного параметра пола}
repeat 
WriteLn('Вседите пол M/G');
 readLn(p);
 case p of
	'M','m':Fil.pol:=(true);
	'G','g':Fil.pol:=(false);
	else writeLn('Ошибка Ввода')
 end;
until (p='m') or (p='M') or (p='G') or (p='g');


write(f,fil)   ; {запись в файл}
writeLn('нажмите ESC чтоб закончить ввод');
until readkey = #27; {выход из пункта по ESC}
end;
{вывод файла}
2:begin
ClrScr;
gotoxy(1,2);write('№');
gotoxy(4,2);write('ФИО');
gotoxy(34,2);write('Адрес');
gotoxy(64,2);write('Возраст'); 
gotoxy(72,2);writeLn('Пол');

while not Eof(f) do 
	begin
	 ind:=ind+2;
	 Read(f, fil); {чтение из файла}
	 gotoxy(1,ind);write((ind-2)/2:2:0); {номер записи (:2:0) маска для вывода}
	 gotoxy(4,ind);write(fil.fio); 
	 gotoxy(34,ind);write(fil.Dom_ad); 
	 gotoxy(64,ind);write(Fil.Vozr);
	 gotoxy(72,ind);
	 if Fil.pol then write('M') else write('G');
	end;
end;

3:begin
ClrScr;
gotoxy(1,2);write('№');
gotoxy(4,2);write('ФИО');
gotoxy(34,2);write('Адрес');
gotoxy(64,2);write('Возраст'); 
gotoxy(72,2);writeLn('Пол');

while not Eof(f) do 
	begin
	 Read(f, fil);
	 if (not (Fil.pol)) and (Fil.Vozr>16) then
	 begin
	  ind:=ind+2;
	  gotoxy(1,ind);write((ind-2)/2:2:0);
	  gotoxy(4,ind);write(fil.fio); 
	  gotoxy(34,ind);write(fil.Dom_ad); 
	  gotoxy(64,ind);write(Fil.Vozr);
	  gotoxy(72,ind);
	  if Fil.pol then write('M') else write('G');
	 end;
	end;
end;

4:begin
ClrScr;
gotoxy(1,2);write('№');
gotoxy(4,2);write('ФИО');
gotoxy(34,2);write('Адрес');
gotoxy(64,2);write('Возраст'); 
gotoxy(72,2);writeLn('Пол');
while not Eof(f) do 
	begin
	 ind:=ind+2;
	 Read(f, fil);
	 gotoxy(1,ind);write((ind-2)/2:2:0);
	 gotoxy(4,ind);write(fil.fio); 
	 gotoxy(34,ind);write(fil.Dom_ad); 
	 gotoxy(64,ind);write(Fil.Vozr);
	 gotoxy(72,ind);
	 if Fil.pol then write('M') else write('G');
	end;
WriteLn;
WriteLn('Введите номер редактируемой записи');
readLn(flag1);
Seek(f,flag1-1);
Writeln('Введите новый адрес');
readLn(fil.Dom_ad);{изменение адреса}
write(f,fil);	{запись измененного поля}}
end;

end;

close(f);{закрыть файл}
writeLn;
writeLn('нажмите ESC чтоб закончить работу');
writeLn('для продолжения работы любую клавишу');
until readkey = #27;
end.

Сообщение от Smitt&Wesson

Если репа превышает 1000, можете быть уверены, Вас не обманут. Сомнительно, если помощь предлагает чел, у которого репа < 0

если репа > 1000 пора звать бабку

[ZX Spectrum-128]

Комментарии в разделе var порадовали.

Если бы с фото девушек, я б тоже взялся. Да где таких найти-то?
Чтоб 17, да еще и девица?