Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 1
Регистрация: 22.10.2012
Сообщений: 7
1

Разработать базу данных «Администратор железнодорожных касс»

18.11.2012, 12:27. Просмотров 1915. Ответов 2
Метки нет (Все метки)

Разработать базу данных «Администратор железнодорожных касс» (номер поезда, пункты и время отправления и прибытия). Вывести на экран данные о поездах, следующих до Екатеринбурга.

Добавлено через 57 минут
Тему офф, сам догадался)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.11.2012, 12:27
Ответы с готовыми решениями:

Разработать базу данных "Администратор железнодорожных касс"
Разработать базу данных "Администратор железнодорожных касс" (Номер поезда, пункты и время...

Структуры: "Администратор железнодорожных касс"
У администратора железнодорожных касс хранится информация о сво-бодных местах в поездах дальнего...

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

Разработать диалоговое окно для заполнения таблицы продажи железнодорожных билетов
Помогите пожалуйста с программой. Задание: 1. На отдельном листе создать таблицу продажи...

2
3449 / 2387 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
18.11.2012, 12:45 2
Цитата Сообщение от Spongersd93 Посмотреть сообщение
сам догадался)
Догадался - выложи решение, вдруг кто-то никак догадаться не может, а поиском пользоваться уже научился)
1
0 / 0 / 1
Регистрация: 22.10.2012
Сообщений: 7
18.11.2012, 12:48  [ТС] 3
Лучший ответ Сообщение было отмечено Spongersd93 как решение

Решение

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
Program Kassa;
Uses crt;
Type
 Kass=record
  No:string[2];
  punkt:string[30];
  vremyaOtpr:string[5];
  vremyaPrib:string[5];
 end;
var
 Baza: Array[1..10] of Kass;
 I,n:integer;
Begin
clrscr;
readln(n);
 for i:=1 to n do
   begin
   with Baza[i] do
    begin
     writeln('Номер поезда'); readln(No);
     writeln('Пункт'); readln(punkt);
     writeln('Врепя отправления'); readln(vremyaOtpr);
     writeln('Время прибытия'); readln(vremyaPrib);
    end;
   end;
Writeln('Номер     Пункт     Отправка     Прибытие');
For i:=1 to n do
 Begin
  with Baza[i] do
    writeln(No:3, punkt:15, vremyaOtpr:8, vremyaPrib:14);
  writeln;
 end;
readkey;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.11.2012, 12:48

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

разработать базу данных
разработать базу данных "Выпускники", где содержится сведения о выпускнике в годы его учебы в...

Разработать базу данных
Помогите, пожалуйста, разработать базу данных "Режим отдела и охраны", которая позволит создать...

Разработать базу данных
треба зробити таблицю в Access на завтра поможіть будьласка магазин "Розетка" . Відділ...

Разработать базу данных
Разработать базу данных «Отдела кадров университета» (фамилия, имя, отчество, адрес, стаж...


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

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

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