Question

Сформировать массив, содержащий сведения об игрушках: название игрушки, стоимость, возрастные границы. Вывести на экран содержимое массива в виде таблицы с заголовками столбцов. Pascal ABC

Answer 1

Type
  ttoy=record
    naim:string[30];
    stoim:integer;
    age1,age2:integer;
  end;
 
var
  atoy:array[1..50] of ttoy;
  i,n:byte;
begin
  Write('Количество игрушек: ');
  Readln(n);
  for i:=1 to n do
  begin
    Writeln('Игрушка № ',i);
    Write('Наименование: ');
    Readln(atoy[i].naim);
    Write('Стоимость: ');
    Readln(atoy[i].stoim);
    Write('Возрастные границы: ');
    Readln(atoy[i].age1,atoy[i].age2)
  end;
  Writeln('      Наименование игрушки        Стоимость Возрастные границы');
  for i:=1 to n do
    Writeln(atoy[i].naim:30,atoy[i].stoim:9,atoy[i].age1:10,
      ' - ',atoy[i].age2)
end.

Answer 2

Для формирования массива с информацией об игрушках и вывода его содержимого в виде таблицы с заголовками столбцов в Pascal ABC, нужно выполнить следующие шаги:

1. Определить структуру данных для хранения информации об игрушках. В данном случае, мы можем использовать запись (record), которая позволяет хранить различные поля одного типа.

2. Создать массив, содержащий элементы этой структуры.

3. Заполнить массив данными об игрушках.

4. Вывести содержимое массива в виде таблицы с заголовками столбцов.

Вот пример кода на Pascal ABC:

pascalCopy code
program ToysArray;

type
  Toy = record
    Name: string;
    Price: real;
    MinAge: integer;
    MaxAge: integer;
  end;

const
  NumToys = 4; // Количество игрушек

var
  Toys: array[1..NumToys] of Toy;
  i: integer;

procedure FillToysArray;
begin
  // Заполнение информацией об игрушках
  Toys[1].Name := 'Мяч';
  Toys[1].Price := 15.99;
  Toys[1].MinAge := 3;
  Toys[1].MaxAge := 8;

  Toys[2].Name := 'Кубики';
  Toys[2].Price := 10.50;
  Toys[2].MinAge := 1;
  Toys[2].MaxAge := 4;

  Toys[3].Name := 'Пазл';
  Toys[3].Price := 25.75;
  Toys[3].MinAge := 4;
  Toys[3].MaxAge := 10;

  Toys[4].Name := 'Кукла';
  Toys[4].Price := 18.30;
  Toys[4].MinAge := 2;
  Toys[4].MaxAge := 6;
end;

procedure PrintToysArray;
begin
  // Вывод заголовков таблицы
  writeln('----------------------------------------------');
  writeln('|   Название   |   Стоимость   |  Возраст  |');
  writeln('----------------------------------------------');

  // Вывод информации об игрушках
  for i := 1 to NumToys do
  begin
    writeln(
      '| ', Toys[i].Name:12,
      ' | ', Toys[i].Price:11:2,
      ' | ', Toys[i].MinAge:5, '-', Toys[i].MaxAge:3, '  |'
    );
  end;

  writeln('----------------------------------------------');
end;

begin
  FillToysArray; // Заполняем массив данными об игрушках
  PrintToysArray; // Выводим содержимое массива в виде таблицы
end.

В этом коде мы создаем запись Toy, содержащую информацию об игрушках, и массив Toys, состоящий из элементов типа Toy. Заполняем массив данными о четырех различных игрушках и выводим его содержимое в виде таблицы с заголовками столбцов на экран.