Распечатать все содержимое файла в виде таблицы

14.05.2016, 14:14. Показов 422. Ответов 0

Метки нет (Все метки)

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

есть список: Фамилия (в файле)
Имя
Пол (М , Ж)
Год рождения
Рост
Вес

надо написать программу, которая распечатывает все содержимое файла в виде таблицы. это получилось

но в добавок сделать и вывести: 1. Средний рост девушек 2. Фамилию самой молодой девушки 3. Имя самого высокого студента 4. Имя девушки, у которой соотношение вес / рост минимально

вот с этим не могу справиться. пожалуйста, помогите!
файл со списком прилагается.

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
type
  student = record  
    family, name, sex, old, hight, weight: string;
  end;
 
var
  f: Text;
  Str: String;
  List: student;
//  c, x, x1, x2, x3, x4, u: integer;
  y: real;
begin
  Assign(f,'inmy.txt');
  Reset(f);
 
 textcolor(red);
  WriteLn('*  Фамилия   * Имя  * пол * год рождения * рост * вес *');
  while not Eof(f)
  do 
  begin
    ReadLn(f, Str);
    List.family := Copy(Str, 1, 12);
    List.name := Copy(Str, 13, 12);
    List.sex := Copy(Str, 25, 1);
    List.old := Copy(Str, 27, 5);
    List.hight := Copy(Str, 32, 3);
    List.weight := Copy(Str, 36, 2);
 
  textcolor(green);
    WriteLn(' * ', List.family,' * ', List.name, ' * ', List.sex, ' * ', List.old, ' * ', List.hight, ' * ', List.weight, ' * '); 
  textcolor(white);
  end; 
  Close(f);
  Reset(f);
 
 
end.

Вложения

inmy.txt (863 байт, 3 просмотров)

Заказать работу у эксперта

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

14.05.2016, 14:14

Ответы с готовыми решениями:

Распечатать построчно содержимое файла
Привет, форумчане! Тяжёлые времена настигли меня, поэтому вынужден попросить вас о помощи :cry: Мне выдали такую задачу: Написать...

Распечатать полученную матрицу в виде таблицы
Дана целочисленная матрица А(mxn). Написать программу на языке Паскаль, которая заполняет матрицу случайными числами в диапазоне от -20 до...

Как распечатать MSHFlexGrid в виде таблицы?
Привет! Кто нибудЬ знает как распечататЬ его в виде таблицы?

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

14.05.2016, 14:14

Помогаю со студенческими работами здесь

Для каждой строки текстового файла распечатать слово наибольшей длины, если их несколько, то распечатать все
Пусть дан текстовый файл. Для каждой строки распечатайте слово наибольшей длины. Если их несколько, то распечатайте все. Помогите,...

Список учебной группы распечатать в виде таблицы
Составьте список учебной группы, включающей N человек. Для каждого учащегося укажите фамилию, имя, отчество, дату рождения, год поступления...

Массивы. Вычислить значение и распечатать в виде таблицы
Вычислить значение функции двух аргументов и распечатать в виде таблицы {x}_{i}, {y}_{i},{F}_{i}(x,y): ...

Вычислить значения функции и распечатать в виде таблицы
Помогите пожалуйста не могу никак решить Вычислить значения функции и распечатать в виде таблицы xi, yi, вычислить значение суммы и...

Массивы. Вычислить значение функции и распечатать в виде таблицы
Помогите с решением Задачи. Задача на картинке. I. Даны две последовательности x1,...,xm и у1...,Уn и натуральные m и n. Вычислить и...

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

Или воспользуйтесь поиском по форуму:

Опции темы

Новые блоги и статьи Все статьи Все блоги /
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .
Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .	C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .

Наверх