задача на массив записей Опции

[Galka]

Помогите не могу решить задачу. Вот условие:
Дан массив звписей, содержащих сведения о заказах в ателье пошива одежды. Разработать структуру записи и посчитать среднюю стоимость заказа.
Я тут чего зря понаписала:

Код

program mas;
type
  fabrica = record
  par1,par2,par3: 1..3;
  value,sebest,price:integer;
  sst:real;
  end;
var a:array[1..3] of fabrica;
i:integer;
begin
for i:=1 to 3 do
with a[i] do
begin
writeln ('vvedite dannye');
readln(par1,par2,par3);
sst:=(par1+par2+par3)/3;
writeln(sst);
end;
end.

[Krjuger]

Тогда это уже никакой не массив записей а обычный одномерный массив.

var a:array[1..3] of fabrica;

По сути эта строчка абсурдна.Твоя фабрика показывает что там под каждым i 3 переменные(заказ1,2,3) и таких у тебя ты обьявляеш от 1 до 3.Грубо говоря у тебя 3 заказа,которые ты береш от 1 до 3 раз,более того зачем тебе вводить массив от 1 до 3 если ты 3 раза считываеш введи тогда уж просто var a:array[3] of fabrica;

readln(zakaz1,zakaz2,zakaz3);

Тоже бред у тебя их нету, как переменных, они лиш индексы твоего массива и на прямую,если мне не изменяет память, ты к ним обращаться не можеш.посмотри как я считывал из файла и просто удали оттуда fin и будет с клавиатуры.

P.s. Дадада я забыл в var описать fin:text; убейте меня за это,плюс как выяснилось эй это и не надо.

P.P.s.Ozzя ты лучше мою задачку посмотри(стек и дек),а эту я ей, если что сделаю.Кстати озя твой вариант не сильно отличается от моего,но у него есть один существенный минус.У тебя 2 цикла от 1 до n,а у меня один так что твоя медленней,пусть,если учиться прогать,то сразу грамотно,а то от привычек тяжело отучиваться,по себе знаю.

Сообщение отредактировано: Krjuger - 19.05.2009 21:03