Записи в паскале

[TreiN-san]

Надо написать программу но я в этом ни в зуб ногой(( помогите онегай ^-^



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

[Alex Cones]

Если нет своих наработок - звони в асю, это ниже.

[ОДИНОЧЕСТВО В СЕТИ]

Ну или в мою стукай! Она на Аватарке!

[TreiN-san]

Ну есть подобная ток там условие другое



Program Lab9;
Uses Crt;
type data= record
chislo: array[1..6] of integer;
mesyats:array[1..6] of string;
god:array[1..6] of integer;
end;
const
d: data= (chislo: (17, 3, 19, 5, 26, 15);
mesyats: ('february', 'march' , 'december', 'april', 'july', 'may');
god: (1973, 2005, 1991, 1842, 1900, 2009));
var vesna1, vesna2, vesna3: string;
i: integer;
begin
clrscr;
writeln('vesennie daty iz zadannogo spiska:');
vesna1:='march';
vesna2:='april';
vesna3:='may';
for i:=1 to 6 do
begin
if d.mesyats[i]=vesna1
then writeln(d.chislo[i],' ',d.mesyats[i],' ',d.god[i]);
if d.mesyats[i]=vesna2
then writeln(d.chislo[i],' ',d.mesyats[i],' ',d.god[i]);
if d.mesyats[i]=vesna3
then writeln(d.chislo[i],' ',d.mesyats[i],' ',d.god[i]);
end;
readln
end.

[QuadroX]

В приложенном файле решение твоей задачи. Цена исходника всего 100 рублей. ICQ: 323787261.