Дан файл Bagazh, содержащий сведения ...

@Nike style · Регистрация: 16.06.2010

Багаж пассажира характеризуется количеством вещей и их общим весом. Дан файл Bagazh, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно — действительного (вес в килограммах).
Выяснить, имеется ли пассажир, багаж которого состоит из одной вещи весом менее т кг.

Добавлено через 3 часа 50 минут
Срочно!помогите пожалуйста решить задачу!!!

@Artishok · 18.06.2010, 11:40

Pascal

type
  bag = record
    kolvo: integer;
    ves: real;
  end;
 
var
  f: file of bag;
  z: bag;
  i, n: integer;
  k: real;
 
 
begin
  assign(f, 'bagazh.dat');
  rewrite(f);
  readln(n);
  for i := 1 to n do 
  begin
    with z do 
    begin
      writeln('вес');
      readln(ves);
      writeln('колв-о');
      readln(kolvo);
    end;
    write(f, z);
  end;
  close(f);
  reset(f);
  readln(k);
  for i := 0 to filesize(f) - 1 do 
  begin
    read(f, z);
    if (z.kolvo = 1) and (z.ves < k) then begin
      writeln('есть');
      break
    end;
  end;
  close(f);
  writeln('программа завершена');
end.

@Nike style 0 / 0 / 0 Регистрация: 16.06.2010 Сообщений: 11
		1
	Дан файл Bagazh, содержащий сведения ... 18.06.2010, 10:32. Показов 1899. Ответов 1 Метки нет (Все метки) Багаж пассажира характеризуется количеством вещей и их общим весом. Дан файл Bagazh, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно — действительного (вес в килограммах). Выяснить, имеется ли пассажир, багаж которого состоит из одной вещи весом менее т кг. Добавлено через 3 часа 50 минут Срочно!помогите пожалуйста решить задачу!!! 0

Опции темы

Дан файл Bagazh, содержащий сведения ...

Решение