Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
jMk
0 / 0 / 0
Регистрация: 10.05.2012
Сообщений: 5
#1

Записи.Вывести информацию о рейсах, которыми можно воспользоваться для прибытия в пункт назначения раньше заданного времени. - Pascal ABC

15.05.2012, 11:27. Просмотров 558. Ответов 1
Метки нет (Все метки)

В справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны его номер, тип автобуса, пункт назначения, время отправления и прибытия. Вывести информацию о рейсах, которыми можно воспользоваться для прибытия в пункт назначения раньше заданного времени.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2012, 11:27
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Записи.Вывести информацию о рейсах, которыми можно воспользоваться для прибытия в пункт назначения раньше заданного времени. (Pascal ABC):

Структуры: Вывести информацию о рейсах, которыми можно воспользоваться для прибытия в пункт назначения раньше заданного времени
Здравствуйте форумчане помогите плз сделать задачу , В справочной...

Файлы. записи. Описать структуру AEROFLOT: пункт назначения; номер рейса; тип самолета
1. Описать структуру с именем AEROFLOT, содержащую следующие поля: название...

Определите время (в часах, минутах и секундах) прибытия автобуса в пункт
задача: автобус вышел из пункта А в пункт В в h1 часов m1 минут и s1 секунд и...

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

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

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

1
ermolay
3430 / 2369 / 2131
Регистрация: 04.12.2011
Сообщений: 3,965
15.05.2012, 12:15 #2
Лучший ответ Сообщение было отмечено jMk как решение

Решение

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
47
48
49
const
  nmax=100;
type
  rasp=record
        nomb: integer;
        tip : string;
        pnct: string;
        h   : integer;
        m   : integer;
      end;
var
  a: array[1..nmax] of rasp;
  i,n,h,m,h1,m1,vrm1,k: integer;
begin
  write('Введите количество рейсов: ');
  readln(n);
  writeln('Введите данные для справочника:');
  for i:=1 to n do
  begin
    with a[i] do
    begin
      write('Номер ',i,'-го рейса: ');
      readln(nomb);
      write('Тип автобуса: ');
      readln(tip);
      write('Пункт назначения: ');
      readln(pnct);
      repeat
        write('Время прибытия (часы и минуты ввести через пробел): ');
        readln(h,m);
      until (h in [1..23])and(m in [1..59]);
    end;
  end;
  repeat
    writeln('Введите искомое время (часы и минуты ввести через пробел): ');
    readln(h1,m1);
  until (h1 in [1..23])and(m1 in [1..59]);
  for i:=1 to n do
    if (h1<a[i].h)or((h1=a[i].h)and(m1<a[i].m)) then
    with a[i] do
    begin
      writeln('Номер рейса      - ',nomb);
      writeln('Тип автобуса     - ',tip);
      writeln('Пункт назначения - ',pnct);
      writeln('Время прибытия   - ',h,':',m);
      inc(k);
    end;
  if k=0 then writeln('По вашему запросу рейсов нет');
end.
Добавлено через 4 минуты
да, если часы и (или) минуты - 0, можно подправить, чтобы выводило "00"
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.05.2012, 12:15
Привет! Вот еще темы с решениями:

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

Вывести информацию о рейсах, которыми можно воспользоваться для прибытия в пункт назначения
Задание: Разработать программу для работы с данными. Данные должны храниться в...

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

Вывести информацию о рейсах, которыми можно прибыть в пункт назначения раньше заданного времени
Коллекции C# нужна помощь в написании проги. Задание: В справочной автовокзала...


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

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

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