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

Доработать справочную систему аэропорта

08.01.2014, 23:30. Просмотров 230. Ответов 0
Метки нет (Все метки)

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

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
program Zad16;
uses crt;
const m=50;
type plain=record;
     punkt:string[20];
     samolet,reis:byte;
     vremya1:real;
 
     end;
var A:array[1..m] of plain;
    vremya:real;
    n,i,j:byte;
    x: plain;
 
begin
     write ('Vvedite kol-vo elementov ');
     readln (n);
     writeln;
     for i:=1 to n do
     with A[i] do begin
     write ('Vvedite nomer reisa ');
     readln (reis);
     write ('Vvedite punkt naznacheniya ');
     readln (punkt);
     write ('Vvedite tip samoleta ');
     readln (samolet);
     write ('Vvedite vremya vyleta ');
     readln (vremya1);
     writeln;
 
end;
begin
     write ('Vvedite vremya');
     readln (vremya);
     for i:=1 to n do with A[i] do
    if vremya<vremya1 then
       begin
               write ('Punkt naznacheniya ',punkt);
               writeln;
               write ('Vremya vyleta ',vremya1);
               writeln;
               write ('Tip samoleta ',samolet);
               writeln;
               write('Nomer reisa ',reis);
               writeln;
       end;
end;
readln;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.01.2014, 23:30
Ответы с готовыми решениями:

Разработать справочную систему по стандартным функциям Турбо Паскаля
Разработать справочную систему по стандартным функциям Турбо Паскаля

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

даны две функции в одной программке.одна переводит число в 10 систему, другая в 2 систему счисления.
надо их связать через условие &quot;if n=.. then&quot; так, чтобы при одном конкретном значении (при n=2),...

Разработать справочную систему
Разработать справочную систему, выдающую в окно вывода текста информацию о четырех операторах языка...

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

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.01.2014, 23:30

Создать справочную систему по компонентам Delphi
Доброго времени суток , я первый курс , задача на курсовую работу &quot;создать справочную систему по...

Составить справочную систему по функциям Турбо Pascal
не могу понять в чем дело. Не работает. Нужно составить справочную систему по функциям Турбо...

Разработать информационно-справочную систему учета автомобилей
День добрый! Разработать информационно-справочную систему учета автомобилей. Предусмотреть...


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

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

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