Сложная Переделка на тему "Файлы. Начало есть.

@Impario · Регистрация: 29.12.2008

Author24 — интернет-сервис помощи студентам

Доброго вам время суток!
В условиях задачи 18 выяснить, имеется ли пассажир, багаж которого состоит из вещи весом меньше m кг.

условие 18-ой задачи:
тема"Файлы"- типизированные файлы целых чисел.
Багаж пассажира характеризуется количеством вещей и их общим весом. Дан файл Bagazh , содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа(количество вещей) и одно действительного (вес в киллограммаж)
Помогите пожалуйста.
Здесь еще есть клавиша для действия но на моём паскале она не работает.
ВОТ задача опора:

Pascal

program a6_13_1_20;
uses crt;
type
bagaz=record
      kol:integer;
      ves:real;
      end;
var
f:file of bagaz;
bg:bagaz;
i,ok:integer;
sm:real;
c:char;
begin
clrscr;
assign(f,'bagaz');
rewrite(f);
writeln('Vvedite dannie o bagazhe v fail, okon4anie vvoda Esc.');
i:=0;
repeat
i:=i+1;
writeln('Zapis ',i);
write(' Koli4estvo mest=');readln(bg.kol);
write(' Ves bagazja=');readln(bg.ves);
write(f,bg);
c:=readkey;
until c=#24;
clrscr;
reset(f);
writeln('Dannie o koli4estve mest i vese bagazja:');
writeln;
writeln('        ----------------------');
writeln('        | Kol-vo mest |   Ves  |');
writeln('        ----------------------');
ok:=0;
sm:=0;
while not eof(f) do
 begin
  read(f,bg);
  ok:=ok+bg.kol;
  sm:=sm+bg.ves;
  gotoXY(9,whereY);
  write('|',bg.kol:10);
  gotoXY(21,whereY);
  write('|',bg.ves:7:2);
  gotoXY(30,whereY);
  write('|');
  writeln;
 end;
writeln('------------------------------');
gotoXY(2,whereY);
write('Vsego');
gotoXY(9,whereY);
write('|',ok:10);
gotoXY(21,whereY);
write('|',sm:7:2);
gotoXY(30,whereY);
write('|');
close(f);
readln;
end.

@Puporev · 13.06.2009, 13:09

okon4anie vvoda Esc
until c=#24;
есть клавиша для действия но на моём паскале она не работает.

Полнейшая безграмотность не доведет до добра.
Пора бы в конце учебного года знать, что код клавиши Esc=27. А то Вы даже чужой код с ошибками списываете. Какой смыл Вам вообще что-то писать?

@Impario · 13.06.2009, 16:38 **[ТС]**

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

Полнейшая безграмотность не доведет до добра.
Пора бы в конце учебного года знать, что код клавиши Esc=27. А то Вы даже чужой код с ошибками списываете. Какой смыл Вам вообще что-то писать?

Извините пожалуйста но я хотел вписать код Enter на понели Num так что это не ESC. а ВО 2 Достопочтенный Юрий извините отчества незнаю Пупорев я еслибы знал поскаль как вы на такомже высоком уровне разве я бы поместил на форум задачу.

@keml · 14.06.2009, 16:19

пАнель*пАскаль*хотябы это надо 3нать)

@Puporev · 14.06.2009, 16:39

но я хотел вписать код Enter на понели Num

Enter он и в Африке Enter и код его и там и там=#13.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	13.06.2009, 13:09	2
	okon4anie vvoda Esc until c=#24; есть клавиша для действия но на моём паскале она не работает. Полнейшая безграмотность не доведет до добра. Пора бы в конце учебного года знать, что код клавиши Esc=27. А то Вы даже чужой код с ошибками списываете. Какой смыл Вам вообще что-то писать? 0

@Impario 4 / 4 / 0 Регистрация: 29.12.2008 Сообщений: 35
	13.06.2009, 16:38 [ТС]	3
	Сообщение от Puporev Полнейшая безграмотность не доведет до добра. Пора бы в конце учебного года знать, что код клавиши Esc=27. А то Вы даже чужой код с ошибками списываете. Какой смыл Вам вообще что-то писать? Извините пожалуйста но я хотел вписать код Enter на понели Num так что это не ESC. а ВО 2 Достопочтенный Юрий извините отчества незнаю Пупорев я еслибы знал поскаль как вы на такомже высоком уровне разве я бы поместил на форум задачу. 0

@keml 15 / 15 / 0 Регистрация: 12.03.2009 Сообщений: 51
	14.06.2009, 16:19	4
	пАнельпАскальхотябы это надо 3нать) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.06.2009, 16:39	5
	но я хотел вписать код Enter на понели Num Enter он и в Африке Enter и код его и там и там=#13. 0