Найти количество кубиков каждого из перечисленных цветов и их суммарный объем

@Гева · Регистрация: 24.04.2016

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста.
Создать файл содержащий сведения о кубиках : размер каждого кубика(длина ребра в сантиметрах), его цвет (красный, желтый, зеленый или синий)и материал (деревянный, металлический, картонный). Найти количество кубиков каждого из перечисленных цветов и их суммарный объем. На языке PascalABC

@Peoples · 15.06.2016, 13:52

Файл текстовый или типизированный?

@Puporev · 15.06.2016, 14:03

Смотрите похожие темы внизу страницы

@Peoples · 15.06.2016, 14:20

Если файл текстовый

Pascal

program pr;
 
const
  Csize = 100;
 
type
  Tcube = record
    len: real;
    color: string[50];
    material: string[50];
  end;
  Tarr = array [1..Csize] of Tcube;
 
var
  i, n, c1, c2, c3, c4, j, code, sum: integer;
  a: Tarr;
  f: text;
  s, s1, s2: string;
 
begin
  sum := 0;
  c1 := 0;
  c2 := 0;
  c3 := 0;
  c4 := 0;
  assign(f, 'cub.txt');
  rewrite(f);
  writeln('Введите количество кубиков');
  readln(n);
  for i := 1 to n do
  begin
    writeln('Введите длину ребра кубика');
    readln(a[i].len);
    writeln(f, a[i].len);
    writeln('Введите цвет кубика');
    readln(a[i].color);
    writeln(f, a[i].color);
    writeln('Введите материал кубика');
    readln(a[i].material);
    writeln(f, a[i].material);
    writeln;
  end;
  close(f);
  reset(f);
  while not eof(f) do
  begin
    readln(f, s);
    Val(s, j, Code);
    readln(f, s1);
    readln(f, s2);
    sum := sum + j * j * j;
    writeln('Длина: ', s);
    writeln('Цвет; ', s1);
    writeln('Материал: ', s2);
    writeln;
    if s1 = 'красный' then
    begin
      c1 := c1 + 1;
    end;
    if s1 = 'синий' then
    begin
      c2 := c2 + 1;
    end;
    if s = 'жёлтый' then
    begin
      c3 := c3 + 1;
    end;
    if s1 = 'зелёный' then
    begin
      c4 := c4 + 1;
    end;
  end;
  writeln('Количество красных кубов: ', c1);
  writeln('Количество синих кубов: ', c2);
  writeln('Количество жёлтых кубов: ', c3);
  writeln('Количество зелёных кубов: ', c4);
  writeln('Объём всех кубов: ', sum);
end.

Добавлено через 6 минут
Если файл типизированный

Pascal

program pr;
 
const
  Csize = 100;
 
type
  Tcube = record
    len: real;
    color: string[50];
    material: string[50];
  end;
  Tarr = array [1..Csize] of Tcube;
 
var
  i, n, c1, c2, c3, c4: integer;
  sum:real;
  a: Tarr;
  f: file of Tcube;
 
begin
  sum := 0;
  c1 := 0;
  c2 := 0;
  c3 := 0;
  c4 := 0;
  assign(f, 'cub.txt');
  rewrite(f);
  writeln('Введите количество кубиков');
  readln(n);
  for i := 1 to n do
  begin
    writeln('Введите длину ребра кубика');
    readln(a[i].len);
    writeln('Введите цвет кубика');
    readln(a[i].color);
    writeln('Введите материал кубика');
    readln(a[i].material);
    write(f, a[i]);
    writeln;
  end;
  close(f);
  reset(f);
  while not eof(f) do
  begin
    inc(i);
    read(f, a[i]);
    sum := sum + (a[i].len) * (a[i].len) * (a[i].len);
    if a[i].color = 'красный' then
    begin
      c1 := c1 + 1;
    end;
    if a[i].color = 'синий' then
    begin
      c2 := c2 + 1;
    end;
    if a[i].color = 'жёлтый' then
    begin
      c3 := c3 + 1;
    end;
    if a[i].color = 'зелёный' then
    begin
      c4 := c4 + 1;
    end;
    
  end;
  writeln('Количество красных кубов: ', c1);
  writeln('Количество синих кубов: ', c2);
  writeln('Количество жёлтых кубов: ', c3);
  writeln('Количество зелёных кубов: ', c4);
  writeln('Объём всех кубов: ', sum);
end.

@Гева · 15.06.2016, 14:34 **[ТС]**

типизированный

Добавлено через 3 минуты
Спасибо большое тебе.Выручил

Добавлено через 8 минут
Скажи пожалуйста. Для чего нам
const
Csize = 100;
и
a: Tarr;
и
[1..Csize]

@Peoples · 15.06.2016, 14:40

Гева,

Pascal

const
  Csize = 100;    // константа ограничивающая массив, то есть больше 100 записей в массив добавить нельзя 
  Tarr = array [1..Csize] of Tcube;        // тип-массив из записей
a:Tarr; // массив типа Tarr
[1..Csize] //  от 1 до 100

@Гева · 15.06.2016, 14:50 **[ТС]**

Понял. Большое спасибо

@Будущий Монарх · 15.06.2016, 15:46

Мда. никогда бы сам я не справился. Никак не дается мне все это.

@Гева · 16.06.2016, 07:47 **[ТС]**

Скажи пожалуйста, это же ведь формула нахождения объема sum := sum + (a[i].len) * (a[i].len) * (a[i].len); ? Как она работает ? И объясни пожалуйста принцип работы этого

Pascal

begin
      c1 := c1 + 1;
    end;
    if a[i].color = 'синий' then
    begin
      c2 := c2 + 1;
    end;

@Peoples · 16.06.2016, 09:40

Гева, Да, это формула объёма V=a^3, то есть длине стороны куба в кубе, находятся объёмы всех кубов и складываются. А то, что ниже это счётчик. То есть, например, с1 по умолчанию рано 0, если при проходе по записям кубик красный, то с становиться 1, если красный встретился ещё раз, то 2 и тд. Для каждого цвета сделал свой счётчик с2,с3 и тд.

@Гева · 17.06.2016, 09:48 **[ТС]**

Скажи пожалуй len что значит ? И a[i]?

@Peoples · 17.06.2016, 11:27

Len - длина ребра куба, a[i] - элемент массива записей

@Гева · 19.06.2016, 13:33 **[ТС]**

Еще раз спасибо

@Peoples 1624 / 954 / 782 Регистрация: 06.02.2016 Сообщений: 2,452 Записей в блоге: 30
	17.06.2016, 11:27	12
	Len - длина ребра куба, a[i] - элемент массива записей 0

Найти количество кубиков каждого из перечисленных цветов и их суммарный объем

Решение

Решение

Решение

@Гева 0 / 0 / 0 Регистрация: 24.04.2016 Сообщений: 10
		1
	Найти количество кубиков каждого из перечисленных цветов и их суммарный объем 15.06.2016, 12:48. Показов 3000. Ответов 12 Метки нет (Все метки) Помогите пожалуйста. Создать файл содержащий сведения о кубиках : размер каждого кубика(длина ребра в сантиметрах), его цвет (красный, желтый, зеленый или синий)и материал (деревянный, металлический, картонный). Найти количество кубиков каждого из перечисленных цветов и их суммарный объем. На языке PascalABC 0

@Peoples 1624 / 954 / 782 Регистрация: 06.02.2016 Сообщений: 2,452 Записей в блоге: 30
	15.06.2016, 13:52	2
	Файл текстовый или типизированный? 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	15.06.2016, 14:03	3
	Смотрите похожие темы внизу страницы 0

@Гева 0 / 0 / 0 Регистрация: 24.04.2016 Сообщений: 10
	15.06.2016, 14:34 [ТС]	5
	типизированный Добавлено через 3 минуты Спасибо большое тебе.Выручил Добавлено через 8 минут Скажи пожалуйста. Для чего нам const Csize = 100; и a: Tarr; и [1..Csize] 0

@Гева 0 / 0 / 0 Регистрация: 24.04.2016 Сообщений: 10
	15.06.2016, 14:50 [ТС]	7
	Понял. Большое спасибо 0

@Будущий Монарх 0 / 0 / 0 Регистрация: 15.06.2016 Сообщений: 1
	15.06.2016, 15:46	8
	Мда. никогда бы сам я не справился. Никак не дается мне все это. 0

@Peoples 1624 / 954 / 782 Регистрация: 06.02.2016 Сообщений: 2,452 Записей в блоге: 30
	16.06.2016, 09:40	10
	Сообщение было отмечено Гева как решение Решение Гева, Да, это формула объёма V=a^3, то есть длине стороны куба в кубе, находятся объёмы всех кубов и складываются. А то, что ниже это счётчик. То есть, например, с1 по умолчанию рано 0, если при проходе по записям кубик красный, то с становиться 1, если красный встретился ещё раз, то 2 и тд. Для каждого цвета сделал свой счётчик с2,с3 и тд. 1

@Гева 0 / 0 / 0 Регистрация: 24.04.2016 Сообщений: 10
	17.06.2016, 09:48 [ТС]	11
	Скажи пожалуй len что значит ? И a[i]? 0

@Гева 0 / 0 / 0 Регистрация: 24.04.2016 Сообщений: 10
	19.06.2016, 13:33 [ТС]	13
	Еще раз спасибо 0

Опции темы