Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Задача на запись (Record)

Автор: impario 10.2.2009, 13:56

Здравствуйте Уважаемые программисты и доброго вам время суток. Пожалуйста немогли бы вы объяснить или помочь с задачей. Обьясните пожалуйста мне как делать задачи с оператором Record. Или составить задачу с этим оператором.
Условие:
Организация занимающаяся ремонтом мониторов. Нужно составить с помощью оператора Record задачу с 4 функциями любыми относящимися к ремонту мониторов. Можно без таблицы так как таблица занимает много времени. Программа должна содержать в себе ну например 4 вопроса: модель, диагональ, и т.д. Помогите если можете. Мне очень это нужно. Заранее Спасибо.

Автор: Metalex 10.2.2009, 14:35

А по моему с таблицей удобнее.

Автор: impario 10.2.2009, 14:51

Но дольше. Пожалуста Помоги с задачей.

Добавлено через 7 минут и 33 секунды
Понимаете ли с таблицей все гораздо дольше. А я не могу отнимать столь драгоценное время у столь достопочтенных людей.

Автор: Metalex 11.2.2009, 11:33

Код

Program RemontMonitirov;

type
       A=record
       Model: string[10];
       Diagonal: byte;
       Polomka: string[20];
       Remonter: string[15];
end;

Const k=4;
Var Remont: array [1..k] of A; i:integer;
Begin

for i:=1 to k do
begin
       with Remont[i] do
       begin
               write ('Model'); readln (Model);
               write ('Diagonal'); readln (Diagonal);
               write ('Vid polomki'); readln (Polomka);
               write ('Familiya mastera'); readln (Remonter);
       end;
end;

for i:=1 to k do
begin
        with Remont[i] do
        begin
                writeln (Model:21, Diagonal:4, Polomka:21, Remonter:16);
        end;
end;
readln
end.

Автор: impario 11.2.2009, 12:33

СПС вам большое!!!!!!!