Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.01.2012, 23:22   #1
artimen1996
 
Регистрация: 20.01.2012
Сообщений: 4
Восклицание создание Базы данных

помогите пожалуста.

скиньте самый лёгкий пример базы данных(РБД) в паскале

буду очень благодарен
artimen1996 вне форума Ответить с цитированием
Старый 30.01.2012, 22:20   #2
Terti
Пользователь
 
Регистрация: 21.08.2011
Сообщений: 24
По умолчанию

Прастой пример б.д построено на одномерном массиве.
Сортировка по имени.
Код:
program tabl;
type
tabl_1 = record
name:string[10];
god:integer;
let:byte;
end;
var
i,j,k,l:integer;
a:array[1..100] of tabl_1;
x:tabl_1;
begin
write('количесвто человек(max=100) ');
readln(k);
    for i:=1 to k do
with a[i] do
begin
writeln('имя');
readln(name);
writeln('Год');
readln(god);
writeln('возраст');
readln(let);
clrscr;
end;
clrscr;
    for i:=1 to k-1 do
for l:=1 to k-1 do
if a[l].name>a[l+1].name then
 begin
x:=a[l];
a[l]:=a[l+1];
a[l+1]:=x;
 end;
 textcolor(blue);
 for i:=1 to k do
  with a[i] do
 begin
 write(name);
 write(god:6);
 write(let:7);
 writeln;
 end;
 end.
Terti вне форума Ответить с цитированием
Старый 30.01.2012, 22:42   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
РБД
Реляционки???
Это курсач?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создание базы данных syc07 Помощь студентам 1 10.07.2011 03:19
Создание базы данных Kvins Microsoft Office Access 0 26.06.2009 13:28
Создание базы данных st1mUA Microsoft Office Excel 8 23.03.2009 09:47
Создание базы данных TECHNIC SQL, базы данных 5 28.07.2008 15:23