Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
ExPlAnEd
0 / 0 / 0
Регистрация: 27.11.2013
Сообщений: 28
#1

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

08.01.2014, 23:30. Просмотров 205. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Доработать справочную систему аэропорта (Pascal ABC):

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

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

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

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

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

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

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

На основе структуры данных реализовать справочную систему - Java
Здравствуйте. Дали задание написать программу на java. Но никогда в ней не работала. Прочитала что такое МVC. но не могу понять как...

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

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

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


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

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

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