помогите напмсать программу на паскале

[milenium]

Разработать базу данных"домашняя фонотека"(название аудио кассет, компакт дисков, авторы и исполнители песен).
Вывести на экран данные о произведениях одного автора.

[p51x]

Читайте правила. В чем конкретно проблема?

[milenium]

проблема в том что я не знаю паскаля

-- Вт дек 29, 2009 20:10:04 --

[Circiter]

2milenium

Цитата:

я не знаю паскаля

А вы напишите на каком-нибудь другом языке, а вам переведут.

[milenium]

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

-- Вт дек 29, 2009 22:57:13 --

[PAV]

Никто здесь этого делать не будет.

[Nikita_b]

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

[begin2009]

Прошу прощения, но сделать Вам программу времени нет. Поэтому только советы. Мне кажется, что Вы хотите программу с формой, а под паскалем Вы имеете в виду нечто вроде дельфи или лазаруса. От этого и буду плясать. Примеры буду давать из некоего своего проекта (тоже нечто вроде БД)
1) Разработайте пользовательский тип данных для программы вроде:

Tserve = record
    Day: TDateTime;
    place: PChar;
   end;
   Twar = record
    call: Tserve;
    reason: PChar;
   end;

- нечто вроде этого.
2) Введите переменную этого типа для хранения записи по 1 песне.
3) Так как Вы в паскале не очень, вряд ли Вам по силам бороться с технологиями БД, поэтому храните в обычном текстовом файле, который определите как файл Вашего типа. У Вас получится нечто вроде:

var person: Tperson;
    DataFile: File of Tperson;

4) Данные во время работы храните в компоненте StringGrid. Там же и можно редектировать.
5) Для навигации на форме кнопки: вперед, назад, к первому, к последнему. Для редактирования: удалить, вставить.
6) Для быстрого поиска записи организуйте на форме TEdit. И в обработчике что-то вроде:

procedure TMain.Edit1Change(Sender: TObject);
var i,j: integer;
begin
 for i:=1 to 3000 do
 for j:=1 to region[i].Family.quantity do
 begin
  if WideUpperCase(Edit1.Text)=WideUpperCase(copy(region[i].Family.member[j].Surname+' '
  +region[i].Family.member[j].name+' '
  +region[i].Family.member[j].patronymic,1,length(Edit1.Text)))
      then begin ID:=i;
           GridPopular.RowCount:=region[ID].Family.quantity+1;
           GridPopular.Row:=j;
           refresh;
           exit;
           end;
 end;
end;

Еще раз повторюсь, что примеры из моего проекта для образца. В общем эта работа не на один час. Удачи.