VPF::Задача на запись (Record) - Форум программистов

impario

Дата 10.2.2009, 13:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 27.12.2008

Репутация: нет
Всего: нет

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

Metalex

Дата 10.2.2009, 14:35 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет

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

--------------------

Don't let the system get you down.

impario

Дата 10.2.2009, 14:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 27.12.2008

Репутация: нет
Всего: нет

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

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

Metalex

Дата 11.2.2009, 11:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет

Код

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.

--------------------

Don't let the system get you down.

impario

Дата 11.2.2009, 12:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 27.12.2008

Репутация: нет
Всего: нет

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »