Важная информация
Показано с 1 по 3 из 3

Тема: очень срочно!!помогите плиз

  1. #1 очень срочно!!помогите плиз 
    Новичок
    Регистрация
    21.10.2014
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Pascal
    База "Подписка города" Содержит информацию:
    - о почтовых отделениях( номер отделения, время работы);
    - о подписчиках( ФИО, адрес, какие изделия выписывает);
    - о подписных изделиях(тип(газета, журнал, цена за экземпляр, срок подписки, цена подписки).
    Ответить с цитированием  
     

  2. #2  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Опять же, не понятно, что "база данных"? Что с ней сделать, реализовать? Если да, то откуда брать информацию, нужно ли ее обрабатывать каким-либо образом, или просто достаточно реализации?
    Дружба-магия-радость!
    Ответить с цитированием  
     

  3. #3  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    284
    Сказал(а) спасибо
    162
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    Pascal Code:
    1. Uses crt;
    2. Type TWeekDay =(Mon, Tu, We, Th, Fr, Sa, Su);
    3. //тип почтовое отделение
    4. Type TRPostOffice = record
    5.       namber: integer; // номер почтового отделения
    6.       beginDay, endDay :TWeekDay; //дни работы
    7.       beginTime, endTime: string; //время работы
    8.   end;
    9. //тип издание
    10. Type TRNewspaper = record
    11.      name1:string;
    12.      subscriptionPeriod:string;
    13.      sale:real;
    14.      saleSubscriptionPeriod:real;
    15. end;
    16. //тип подписчики
    17. Type TRPeople = record
    18.      namberPostOffice:integer;
    19.      name1:string;
    20.      adr:string;
    21.      namberNewspaper:integer;
    22.      newspaper:array[1..10] of string;
    23. end;      
    24. label l1, l2, l3;  
    25. Var aPostOffice:array[1..10] of TRPostOffice;
    26.       aNewspaper:array[1..10] of TRNewspaper;
    27.       aPeople:array[1..100] of TRPeople;
    28.       nRecPostOffice,  
    29.       nNewspaper,
    30.       nPeople:integer;
    31.      stop:Boolean;
    32.      d1, i, n1 :integer;
    33. Begin
    34.     stop:=false;
    35.     nRecPostOffice:=0; // текущее количество почтовых отделений
    36.     nNewspaper:=0;
    37.     nPeople:=0;
    38.     repeat
    39.        write('Выберите действие: 0-выход, 1-добавить почтовое отделение, 2-добавить подписчика, 3-добавить газету или журнал > ');
    40.        readln(d1);
    41.        case d1 of
    42.            0:begin
    43.                   stop:=true;
    44.               end;
    45.            1:begin
    46.                   //заполнение базы почтовых отделений
    47. l1:             if  nRecPostOffice <10 then
    48.                   begin
    49.                   nRecPostOffice:= nRecPostOffice+1;
    50.                   with   aPostOffice[nRecPostOffice] do
    51.                      begin
    52.                          write('Введите номер почтового отделения: ');
    53.                          readln(namber);
    54.                          write('Введите первый день рабочей недели: ');
    55.                          readln(beginDay);
    56.                          write('Введите последний день рабочей недели: ');
    57.                          readln(endDay);
    58.                          write('Введите время начала рабдня: ');
    59.                          readln(beginTime);
    60.                          write('Введите время окончания рабдня: ');
    61.                          readln(endTime);
    62.                     end;
    63.                     write('добавить еще почтовое отделение? 0-нет, 1-да: ');
    64.                     readln(n1);
    65.                     if n1>0 then goto l1;
    66.                  end
    67.                  else  writeln('база заполнена');      
    68.               end;
    69.            2:begin
    70.                   //заполнение базы подписчиков
    71. l2:             if  nPeople <100 then
    72.                   begin
    73.                   nPeople:= nPeople+1;
    74.                   with   aPeople[nPeople] do
    75.                      begin
    76.                          write('Введите номер почтового отделения: ');
    77.                          readln(namberPostOffice);
    78.                          write('Введите ФИО: ');
    79.                          readln(name1);
    80.                          write('Введите адрес: ');
    81.                          readln( adr);
    82.                          write('Введите количесто изданий: ');
    83.                          readln(namberNewspaper);
    84.                          for i:=1 to namberNewspaper do
    85.                             begin
    86.                                write('Введите тип и имя издания: ');
    87.                                readln(newspaper[i]);
    88.                             end
    89.                     end;
    90.                     write('добавить еще подписчика? 0-нет, 1-да: ');
    91.                     readln(n1);
    92.                     if n1>0 then goto l2;
    93.                  end
    94.                  else  writeln('база заполнена');
    95.                end;
    96.            3:begin
    97.                  //заполнение базы журналов и газет
    98. l3:            if  nNewspaper <10 then
    99.                 begin
    100.                   with   aNewspaper[nNewspaper] do
    101.                      begin
    102.                           nNewspaper:= nNewspaper+1;
    103.                          write('Введите тип и название издания: ');
    104.                          readln(name1);
    105.                          write('Введите срок подписки: ');
    106.                          readln(subscriptionPeriod);
    107.                          write('Введите цену за единицу: ');
    108.                          readln(sale);
    109.                          write('Введите цену за срок подписки: ');
    110.                          readln(saleSubscriptionPeriod)
    111.                     end;
    112.                     write('добавить еще издание? 0-нет, 1-да: ');
    113.                     readln(n1);
    114.                     if n1>0 then goto l3;
    115.                  end
    116.                  else  writeln('база заполнена');
    117.               end;
    118.        end; // case
    119.     until stop;
    120. end.
    Последний раз редактировалось nik_1; 13.11.2014 в 05:22.
    Ответить с цитированием  
     

  4. Пользователь сказал cпасибо:

    Абадябер (13.11.2014)

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Ответов: 0
    Последнее сообщение: 24.03.2014, 18:14
  2. переходник очень срочно PCI -> ISA или USB -> ISA
    от Инга Гридаева в разделе Микроконтроллеры
    Ответов: 3
    Последнее сообщение: 03.10.2013, 12:24
  3. Помогите плиз)
    от Игорь Левин в разделе Delphi
    Ответов: 4
    Последнее сообщение: 31.05.2013, 12:13
  4. Очень срочно требуется специалист по настройке карт API Яндекса
    от smartfield в разделе Изготовление сайтов и дизайн
    Ответов: 0
    Последнее сообщение: 26.04.2012, 18:09
  5. Ответов: 5
    Последнее сообщение: 31.03.2012, 09:34
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •