0 / 0 / 0
Регистрация: 16.06.2010
Сообщений: 11
1

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

18.06.2010, 10:32. Показов 1984. Ответов 1
Метки нет (Все метки)

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

Добавлено через 3 часа 50 минут
Срочно!помогите пожалуйста решить задачу!!!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.06.2010, 10:32
Ответы с готовыми решениями:

Дан файл f, содержащий сведения об учениках
Доброго времени суток! Крайне необходима помощь экспертов в Pascal Вот задания: Дан файл f,...

Дан файл KAT, содержащий сведения о книгах
Дан файл KAT, содержащий сведения о книгах: 1) фамилия автора 2) название 3) год издания 4)...

Дан файл Assort, содержащий сведения об игрушках
Дан файл Assort, содержащий сведения об игрушках: указываются название игрушки, ее стоимость в у.е....

Дан текстовый файл Bibl, содержащий сведения о книгах
Дан текстовый файл Bibl, содержащий сведения о книгах. Сведения о каждой из книг — это фамилия...

1
ЧакЭ одобряЭ
285 / 284 / 86
Регистрация: 27.12.2009
Сообщений: 1,767
18.06.2010, 11:40 2
Лучший ответ Сообщение было отмечено Nike style как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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.
1
18.06.2010, 11:40
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.06.2010, 11:40
Помогаю со студенческими работами здесь

Дан файл f, содержащий сведения о кубиках. Найти количество каждого из цветов и их суммарный объем
Дан файл f, содержащий сведения о кубиках: размер каждого кубика (длина ребра в сантиметрах), его...

Дан файл f, содержащий сведения о веществах. Выбрать данные о проводниках с заданным удельным весом
Дан файл f, содержащий сведения о веществах: 1) название 2) удельный вес 3) проводимость...

Дан текст содержащий сведения об успеваемости учащихся. Определить средний балл каждого ученика
Задача:Дан текст содержащий сведения об успеваемости учащихся, разделенное запятой.Каждое сведение...

Создать файл, содержащий сведения о пациентах поликлинники.
Приветствую! прошу решить следующую задачку: Создать файл, содержащий сведения о пациентах...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru