Работа по записи.Описать комбинированный тип - Pascal

Узнай цену своей работы

Формулировка задачи:

Описать комбинированный тип, содержащий основные сведения о компьютере: модель материнской платы, частота процессора, объем оперативной памяти, объем винчестера, наличие картридера, модель монитора, наличие установленной операционной системы. Определить для 3-х инициализированных экземпляров записи: ***** а) модель материнской платы компьютеров, объем оперативной памяти которых меньше указанный; ***** б) модель монитора на тех компьютеров, имеющих картридер. Вот что я смог сделать но дальше не могу понять, если вам не сложно, когда(если) будете печатать ответ можете объяснить или под кодом или в самом коде в "{комментариях}", какую роботу вы провели
Листинг программы
  1. uses crt;
  2. type
  3. komp=record
  4. model_mp: string [20];
  5. chastota_proc: real;
  6. obem_op_pam: real;
  7. obem_vin4est: integer;
  8. nali4ie_kartridera: boolean;
  9. model_manitora: string[10];
  10. nali4ie_op_susm: boolean;
  11. end;

Решение задачи: «Работа по записи.Описать комбинированный тип»

textual
Листинг программы
  1. const
  2.     N = 3;
  3. type
  4.     TComputer = record
  5.         motherboard, display: String[20]; //мать и монитор
  6.         clockrate, ram, hard: Word; //частота в MHz, ram в MB, винт в GB
  7.         os, cardreader: Boolean;
  8.     end;
  9. var
  10.     ar: Array[1..N] Of TComputer;
  11.     i: 1..N;
  12.     targetRam: Word;
  13.     c: Char;
  14. begin
  15.     WriteLn('Ввод данных:');
  16.     for i := 1 to N do
  17.         with ar[i] do
  18.         begin
  19.             Write('Модель МП? '); ReadLn(motherboard);
  20.             Write('Частота просессора (в MHz)? '); ReadLn(clockrate);
  21.             Write('Объём RAM (в MB)? '); ReadLn(ram);
  22.             Write('Объём жёсткого диска (в GB)? '); ReadLn(hard);
  23.             Write('Модель монитора? '); ReadLn(display);
  24.             repeat
  25.                 Write('Установлена ли ОС (y - да | n - нет)? ');
  26.                 ReadLn(c);
  27.             until (c in ['y', 'n', 'Y', 'N']);
  28.             os := (c in ['y', 'Y']);
  29.             repeat
  30.                 Write('Имеется ли картридер (y - да | n - нет)? ');
  31.                 ReadLn(c);
  32.             until (c in ['y', 'n', 'Y', 'N']);
  33.             cardreader := (c in ['y', 'Y']);
  34.             WriteLn('=======================================================');
  35.         end;
  36.     WriteLn;
  37.     Write('Введите максимальный объём RAM (в MB): '); ReadLn(targetRam);
  38.     WriteLn('Модели МП, объем RAM которых меньше ', targetRam, ':');
  39.     for i := 1 to N do
  40.         with ar[i] do
  41.             if (ram < targetRam)
  42.             then
  43.                 WriteLn(motherboard);
  44.     WriteLn;
  45.     WriteLn('Модели мониторов компьютеров, в которых имеется картридер:');
  46.     for i := 1 to N do
  47.         with ar[i] do
  48.             if (cardreader)
  49.             then
  50.                 WriteLn(display);
  51. end.

Объяснение кода листинга программы

  1. Объявляется константа N со значением 3.
  2. Описывается комбинированный тип TComputer в виде записи, которая содержит следующие поля:
    • motherboard (тип String[20]) - модель материнской платы
    • display (тип String[20]) - модель монитора
    • clockrate (тип Word) - частота процессора в MHz
    • ram (тип Word) - объем оперативной памяти в MB
    • hard (тип Word) - объем жесткого диска в GB
    • os (тип Boolean) - наличие операционной системы
    • cardreader (тип Boolean) - наличие картридера
  3. Объявляются переменные:
    • ar (тип Array[1..N] Of TComputer) - массив структур TComputer
    • i (тип 1..N) - переменная для цикла
    • targetRam (тип Word) - максимальный объем оперативной памяти
    • c (тип Char) - временная переменная для ввода символа
  4. Начинается выполнение основной программы.
    • Выводится приглашение к вводу данных.
    • Выполняется цикл ввода данных о компьютерах с использованием вложенной конструкции with:
      • Для каждого компьютера в массиве ar[i] запрашивается информация о материнской плате, частоте процессора, объеме ОЗУ, объеме жесткого диска, мониторе, наличии операционной системы и картридера.
    • Затем пользователю предлагается ввести максимальный объем RAM.
    • Выводятся модели материнских плат с объемом RAM меньше введенного значения.
    • Выводятся модели мониторов компьютеров, в которых имеется картридер.
  5. Программа завершается. Этот код сначала создает массив структур TComputer, затем заполняет его данными пользователей об нескольких компьютерах. После этого программа запрашивает у пользователя максимальный объем оперативной памяти и выводит модели материнских плат, у которых объем оперативной памяти меньше введенного значения, а также модели мониторов компьютеров, в которых имеется картридер.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.833 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы