Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Роман Бахтин
0 / 0 / 1
Регистрация: 23.10.2013
Сообщений: 9
1

Отсортировать багаж по фамилиям только для пассажиров, имеющим более одной вещи.

23.10.2013, 15:51. Просмотров 1077. Ответов 2
Метки нет (Все метки)

Задания к работе

Измените блок-схемы и программуы вашего варианта из лабораторной работы 6:
- данные о багаже должны быть считаны из типизированного файла1,
- результаты работы программы записаны в файл2.

Лабараторная №6
Составьте блок-схемы и программы к задачам своего варианта.
Условия задачи общие для всех вариантов.
Задача:
Багаж пассажира характеризуется количеством вещей и общим весом вещей.
Вводятся данные о багаже нескольких пассажиров: фамилия пассажира, общий вес багажа, количество вещей.
Задание:Отсортировать багаж по фамилиям только для пассажиров, имеющим более одной вещи.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.10.2013, 15:51
Ответы с готовыми решениями:

Структура: Найти багаж, средний вес одной вещи, в котором отличается не более чем на 0.3 кг от общего среднего веса одной вещи
Помогите с лабой. За ранее спасибо) Багаж пассажира характеризуется...

Найти багаж, средний вес одной вещи в котором отличается не более чем на m кг от общего среднего веса одной
uses Crt; type bagaz=record kol:byte; ves:real; end; var...

Найти багаж, средний вес одной вещи в котором отличается не более, чем на 0.3 кг: Блок-схема
Есть вот такая вот задача на записи: Багаж пассажира характеризуется...

Найти багаж, средний вес одной вещи, в котором отличается не более чем на 0,3 кг от общего среднего веса
багаж пассажира характеризуется количеством вещей и общим весом вещей. дан фаил...

Записи: Найти багаж, вес одной вещи в котором отличается не более, чем на 0.3 кг от общего среднего веса
Тема: Записи. Работа с текстовыми файлами. Дан файл f, содержащий сведения о...

2
magirus
23.10.2013, 15:52
  #2
 Комментарий администратора 
называйте темы информативно.
0
Роман Бахтин
0 / 0 / 1
Регистрация: 23.10.2013
Сообщений: 9
23.10.2013, 16:05  [ТС] 3
Лучший ответ Сообщение было отмечено Роман Бахтин как решение

Решение

Пример

Создать типизированный файл, состоящий из данных о студентах (всего не более 100): фио, группа, возраст. Требуется заменить группу "1АС-2" на "2АС-2" и после этого вывести на экран список студентов, возраст которых равен 17.

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
43
44
45
46
program TypFile;
type
zap=Record
    fio:string[12];
    group:string[5];
    voz:byte;
    end;
var
  mas:array[1..100] of zap;
  f:file of zap; {объявление типизированной файловой переменной }
  z:zap;
  n,i:byte;
begin
  write('ВВЕДИ КОЛИЧЕСТВО СТУДЕНТОВ В СПИСКЕ');
  readln(n);
  for i:=1 to n do
    with mas[i] do
    begin
        write('ВВЕДИ ФИО '); readln(fio);
            write('ВВЕДИ ГРУППУ'); readln(group);
            write('ВВЕДИ ВОЗРАСТ'); readln(voz);
    end;
  assign(f,'d:\TypFile.dat');
  rewrite(f);  {открыли файл для чтения и для записи}
  for i:=1 to n do write(f,mas[i]); {после цикла находимся в конце файла}
  seek(f,0); { ставим указатель текущей записи в начало  файла}
  while not Eof(f) do  {пока не конец файла}
    begin
      read(f,z);  {читаем очередное данное-запись}
      if z.group='1АС-2'  then    {и редактируем файл}
          begin
            seek(f,FilePos(f)-1);{вернулись на прочитанную запись }
            z.group:='2АС-2';
            write(f,z); {записываем в файл запись, изменяя поле grouр}
            end;
      end;
  seek(f,0);  { ставим указатель текущей записи в начало файла}
  writeln('СПИСОК СТУДЕНТОВ:');
  for i:=0 to FileSize(f)-1 do
      begin
        read(f,z);
        with z do if voz=17 then writeln(fio,' ',group);
      end;
    close(f);
    readln;
end.
Это пример,как надо делать,но я не могу понять(
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.10.2013, 16:05

Найти всех пассажиров, у которых средний вес одной вещи отличается не более, чем на 0,5 кг от общего
составить программу по теме Записи Даны сведения о багаже пассажиров: фамилия...

Найти багаж, средний вес одной вещи, в котором отличается не более чем на 0.3 кг
Багаж пассажира характеризуется количеством вещей и общим весом вещей. Сведения...

Найти багаж, средний вес одной вещи в котором отличается не более чем на m кг от общего
Доброе время суток, напишите пожалуйста код для решения задачи. Багаж...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru