В файле хранится информация о пассажирах и багаже. Получить средний вес багажа каждого пассажира - VB

Узнай цену своей работы

Формулировка задачи:

Форумчане помогуте пожалуйста с такой задачей. В файле храниться информация о пассажирах и багаже. Багаж пассажира характеризуется количеством вещей и общим весом вещей. О пассажире известно: <ФИО>, <номер рейса>, <место>. a) Имеется ли пассажир, багаж которого превышает багаж каждого из остальных пассажиров и по числу вещей и по весу; b) Получить средний вес багажа каждого пассажира; c) Организовать пополнение файла данных; d) Напечатать содержимое файла данных;

Решение задачи: «В файле хранится информация о пассажирах и багаже. Получить средний вес багажа каждого пассажира»

textual
Листинг программы
 Dim File As String, CF As String 
   'объявим пеpеменнyю для имени файла и его cодеpжимого 
   File = "d:\ca.log"  'ycтановим имя файла и пyть 
   Open File For Binary As #1  'откpоем файл для чтения 
      CF = Input(FileLen(File), 1)   'загpyзить в пеpеменyю CF вcе cодеpжимое файла 
   Close #1    'закpыть файл 
Cls
Print CF

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.083 из 5
Похожие ответы