Сформировать массив записей с двумя полями - наименование товара и его цена

@Дима Сутенёр · Регистрация: 22.11.2013

Привет. Задача такова: Нужно сформировать массив записей с двумя полями(наименование товара и его цена), вывести это дело на экран, потом найти среднее значение цены всех товаров, далее записать в новый массив всё, у чего цена больше среднего значения цены. Вот с последним у меня и проблемы. Прошу подсказать

С 40-ой строки начинается моя дребедень.

Pascal

program ZapisMassiv;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 type tovar=record
   name: string;
   price:integer;
 end;
var obiekt,b:array [1..15] of tovar;
 
 i,n,j,x:integer;  sredn,sum:real;
 begin
 writeln('');
 writeln('Vvedi kol-vo tovarov');
 readln(n);
 for i:=1 to n do
 begin
   writeln('Vvedi svedeniya o',i,' -om tovare');
   writeln('Vvedi nazvanie tovara');
   readln(obiekt[i].name);
   writeln('Vvedi ceny tovara');
   readln(obiekt[i].price);
 end;
 writeln('Vvod zakonchen');
 writeln('1 stolbik- imya tovara; 2 stolbik- cena tovara');
 for i:=1 to n do
 begin
 write(obiekt[i].name:4);
 write(obiekt[i].price:4);
 writeln;
 end;
 sum:=0;
 for i:=1 to n do
 sum:=obiekt[i].price+sum ;
 sredn:=(sum/n) ;
 writeln('srednee arifmeticheskoe vsex cen= ', sredn:2:2);
 x:=0;
 for i:=1 to n do
  if (obiekt[i].price > sredn) then inc(x) ;
  if (obiekt[i].price > sredn) then for j:=1 to x do b[j]:=obiekt[j];
  for j:=1 to x do begin
  write(obiekt[j].name:4);
 write(obiekt[j].price:4);
end;
 readln;
end.

@volvo · 21.01.2014, 14:27

При чем тут PascalABC и {$APPTYPE CONSOLE}? Компилятор какой у тебя?

А вообще, замени с 38-й строки и ниже:

Pascal

  writeln('srednee arifmeticheskoe vsex cen= ', sredn:2:2);
  x := 0; 
  for i := 1 to n do
    if obiekt[i].price > sredn then
    begin
      inc(x);
      b[x] := obiekt[i];
    end;
  
  for j := 1 to x do 
  begin
    write(obiekt[j].name:4);
    writeln(obiekt[j].price:4);
  end;
  readln;
end.

@Дима Сутенёр · 21.01.2014, 17:43 **[ТС]**

А теперь мне нужно записать эти записи (цены которых выше среднего) в типизированный файл. Вот мой вариант.

Pascal

program ZapisMassiv;
 
 
 
uses
  crt;
 
 type tovar=record
   name: string;
   price:integer;
 end;
 ftip=file of tovar;
var obiekt,b:array [1..15] of tovar;
 
 i,n,j,m:integer;  sredn,sum:real;  f:ftip;
 begin
 assign(f,'file.kkk');
 rewrite(f);
 writeln('Vvedi kol-vo tovarov');
 readln(n);
 for i:=1 to n do
 begin
   writeln('Vvedi svedeniya o',i,' -om tovare');
   writeln('Vvedi nazvanie tovara');
   readln(obiekt[i].name);
   writeln('Vvedi ceny tovara');
   readln(obiekt[i].price);
 end;
 writeln('Vvod zakonchen');
 writeln('1 stolbik- imya tovara; 2 stolbik- cena tovara');
 for i:=1 to n do
 begin
 write(obiekt[i].name:4);
 write(obiekt[i].price:4);
 writeln;
 end;
 sum:=0;
 for i:=1 to n do
 sum:=obiekt[i].price+sum ;
 sredn:=(sum/n) ;
 writeln('srednee arifmeticheskoe vsex cen= ', sredn:2:2);
 writeln('Noviy massiv tovarov, cena kotorix >sredn cen');
 m:=0;
 for i:=1 to n do
  if (obiekt[i].price > sredn) then
   begin
   m:=m+1;
   b[m].name:=obiekt[i].name;
   b[m].price:=obiekt[i].price;
   write(b[m].name:4);
   write(b[m].price:4);
   write(b[m].name:4,f);
   write(b[m].price:4,f);
    end;
  close(f);
 readln;

Добавлено через 1 минуту
В ответ на всё это Паскаль мне пишет: Нельзя выводить данные этого типа.

@Puporev · 21.01.2014, 17:51

f

Pascal

or i:=1 to n do
 begin
   writeln('Vvedi svedeniya o',i,' -om tovare');
   writeln('Vvedi nazvanie tovara');
   readln(obiekt[i].name);
   writeln('Vvedi ceny tovara');
   readln(obiekt[i].price);
   write(f,obiekt[i])//занесение записи в файл
 end;

@Дима Сутенёр · 21.01.2014, 18:50 **[ТС]**

А как прочитать из типизированного файла то, что я туда записал?

@Puporev · 21.01.2014, 18:52

Pascal

while not eof(f) do
 begin
  read(f,z);//запись не обязательно элемент массива, массивы вообще не нужны
  writeln(z.name,' ',z.price);
 end;

@Дима Сутенёр · 21.01.2014, 19:13 **[ТС]**

Блин, бошка уже не варит. Пробовал эту переменную z засовывать во все вары, не выходит..
Как описать эту z?

@Puporev · 21.01.2014, 19:20

Pascal

1	var z:tovar;

@Дима Сутенёр · 21.01.2014, 19:57 **[ТС]**

При таком раскладе ничего не выводится почему-то.

Pascal

program ZapisMassiv;
uses
  crt;
 
 type tovar=record
   name: string;
   price:integer;
 end;
 ftip=file of tovar;
var obiekt,b:array [1..15] of tovar;
  z:tovar;
 i,n,j,m:integer;  sredn,sum:real;  f:ftip;
 begin
 assign(f,'file.kkk');
 rewrite(f);
 writeln('Vvedi kol-vo tovarov');
 readln(n);
 for i:=1 to n do
 begin
   writeln('Vvedi svedeniya o',i,' -om tovare');
   writeln('Vvedi nazvanie tovara');
   readln(obiekt[i].name);
   writeln('Vvedi ceny tovara');
   readln(obiekt[i].price);
 end;
 writeln('Vvod zakonchen');
 writeln('1 stolbik- imya tovara; 2 stolbik- cena tovara');
 for i:=1 to n do
 begin
 write(obiekt[i].name:4);
 write(obiekt[i].price:4);
 writeln;
 end;
 sum:=0;
 for i:=1 to n do
 sum:=obiekt[i].price+sum ;
 sredn:=(sum/n) ;
 writeln('srednee arifmeticheskoe vsex cen= ', sredn:2:2);
 writeln('Noviy massiv tovarov, cena kotorix >sredn cen');
 m:=0;
 for i:=1 to n do
  if (obiekt[i].price > sredn) then
   begin
   m:=m+1;
   b[m].name:=obiekt[i].name;
   b[m].price:=obiekt[i].price;
   write(b[m].name:4);
   write(b[m].price:4);
   write(f,b[m]);
    end;
    writeln('Chitaem iz tip faila');
    while not eof(f) do
 begin
  read(f,z);
  writeln(z.name,' ',z.price);
 end;
  close(f);
 readln;
end.

@Puporev · 21.01.2014, 20:03

Так открыть файл для чтения нужно

Pascal

1 2	reset(f); while not eof(f) do

@Дима Сутенёр · 21.01.2014, 20:17 **[ТС]**

Ёлки-иголки, всё, благодарю тебя, Пупорев!

Сформировать массив записей с двумя полями - наименование товара и его цена

Решение

Решение

@Дима Сутенёр 0 / 0 / 0 Регистрация: 22.11.2013 Сообщений: 13
	21.01.2014, 18:50 [ТС]	5
	А как прочитать из типизированного файла то, что я туда записал? 0

@Дима Сутенёр 0 / 0 / 0 Регистрация: 22.11.2013 Сообщений: 13
	21.01.2014, 19:13 [ТС]	7
	Блин, бошка уже не варит. Пробовал эту переменную z засовывать во все вары, не выходит.. Как описать эту z? 0

@Дима Сутенёр 0 / 0 / 0 Регистрация: 22.11.2013 Сообщений: 13
	21.01.2014, 20:17 [ТС]	11
	Ёлки-иголки, всё, благодарю тебя, Пупорев! 0