В файле хранится информация о пассажирах и багаже. Получить средний вес багажа каждого пассажира - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д