Создать типизированный файл, который содержит сведения об автомобилях

@mrflo · Регистрация: 17.11.2012

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

Pascal

program n1;
 
type
  rec = record
    marka: string[20];
    firma: string[20];
    cost: integer;
  end;
 
var
  cars: file of rec;
 
procedure addCar;
begin
  with cars do
  begin
    write('марка: ');
    readln(marka);
    write('фирма: ');
    readln(factory);
    write('цена: ');
    readln(cost);
  end;
end;
 
begin
  Assign(cars, 'C://cars');
  {$I-}
  Reset(cars);
  {$I+}
  if IOresult = 0 then
  addCar;
  with cars do
  begin
  write(marka,'%');
  writeln(factory,'%');
  writeln(cost);
  end;
end.

кричит, мол Program.pas(18) : Неизвестное имя 'marka'
хотя объявил в начале.
что не так?

@КонецСвета · 04.01.2013, 00:32

вы используете для записи тип rec, а записывать пытаетесь в cars

Сообщение от mrflo

with cars do

то есть рассматриваете файл как запись, а не файл записей...

@mrflo · 04.01.2013, 00:56 **[ТС]**

так то да.
а теперь ещё раз

Сообщение от КонецСвета

что же касается программы, то вы используете для записи тип rec, а записывать пытаетесь в cars
Сообщение от mrflo
with cars do
то есть рассматриваете файл как запись, а не файл записей...

но для школьника

Добавлено через 14 минут
вы предлагаете чесать через cars.marka и cars.factory етс?

@КонецСвета · 04.01.2013, 01:09

Pascal

type
  rec = record
    marka: string[20];
    firma: string[20];
    cost: integer;
  end;
 
var cars: file of rec;
    c: char;
 
procedure Vvod(var car: rec);
begin
  with car do
  begin
    write('марка: ');
    readln(marka);
    write('фирма: ');
    readln(firma);
    write('цена: ');
    readln(cost);
  end;
end;
 
procedure addCar;
var car: rec;
begin
Vvod(car);
  if FileExists('D:\cars.dta') then
    begin
    reset(cars);
    seek(cars,filesize(cars));
    write(cars,car);
    end else
      begin
      rewrite(cars);
      write(cars,car);
      end;
end;
 
procedure VyvodF;
const l='----------------------------------------';
      s='|    Марка    |     Фирма     |  Цена  |';
var car: rec;
begin
reset(cars);
writeln(l);
writeln(s);
writeln(l);
while not eof(cars) do
  begin
  read(cars,car);
  with car do
    writeln('|',marka:10,'|':4,firma:14,'|':2,cost:7,'|':2);
  end;
writeln(l); 
end;
 
begin
  Assign(cars,'D:\cars.dta');
repeat
write('Записать данные в файл? (y/n) '); readln(c);
if c='y' then addCar;
until c='n';
VyvodF;
end.

@mrflo · 04.01.2013, 01:53 **[ТС]**

upd: глянул в книжке, там это делают через доп. переменную.
замутил

Pascal

program n1;
 
type
  rec = record
    marka: string[20];
    firma: string[20];
    cost: integer;
  end;
 
var
  cars: file of rec;
  temp:rec;
 
procedure addCar;
begin
  with temp do
  begin
    write('марка: ');
    readln(marka);
    write('фирма: ');
    readln(factory);
    write('цена: ');
    readln(cost);
    write(cars,temp);
  end;
end;
 
begin
  Assign(cars, 'C://cars');
  {$I-}
  Reset(cars);
  {$I+}
  if IOresult = 0 then
  addCar;
  with cars do
  begin
  write(marka,'%');
  writeln(factory,'%');
  writeln(cost);
  end;
end.

теперь ругается так
Program.pas(21) : Неизвестное имя 'factory'

Добавлено через 1 минуту
отсюда вопрос: откуда у меня руки?

Добавлено через 9 минут
если я объявил firma а использую factory

это лечится?

Добавлено через 32 минуты
КонецСвета, а что делать, если он просит ; в начале строки?

Pascal

...
begin
  Assign(cars, 'C://cars.txt');
  Reset(cars);
  repeat
  begin
  write('есть что записать?(Y/N)' ); readln(q);
  if q= 'Y' or q='y' then begin
  addCarData;
  addCarToFile;
  end
  else halt(1);
end;
end.

в последнюю строку
Program.pas(54) : Ожидалось ';'

@mrflo · 04.01.2013, 19:40 **[ТС]**

Pascal

program n1;
type 
rec=record
marka:string[20];
model:string[20];
cost:integer;
end;
var
cars:file of rec;
temp:rec;
q:char;
procedure addcar;
begin
with temp do
begin
write('марка: ');
readln(marka);
write('модель: ');
readln(model);
write('цена: ');
readln(cost);
end;
end;
procedure cartofile;
begin
if fileexists('C://cars.base')
then
begin
reset(cars);
seek (cars); filesize(cars);
write(cars, temp);
end
else
begin
rewrite(cars);
write(cars,temp);
end;
end;
procedure screenoutput;
var car:rec;
begin
reset(cars);
writeln('--------------------------------------------------------------');
writeln('I  Марка            I  Модель            I  Цена             I');
writeln('I-------------------I--------------------I-------------------I');
while not eof(cars) do 
begin
read(cars,car);
with car do
begin
writeln('I',marka[20],'I',model[20],'I',cost[20],'I');
writeln('I-------------------I--------------------I-------------------I');
end;
writeln('--------------------------------------------------------------');
end;
end;
 
begin;
assign(cars, 'C://cars.base');
reset(cars);
repeat;
begin;
write('есть что записать?(Y/N) ');
readln(q);
if q='Y' or q='y' then begin;
addcar;
cartofile;
end;
if q='n' or q='N' then screenoutput;
end;
end.

второй день мучаюсь

@ermolay · 04.01.2013, 20:27

1. repeat без until
2. в процедуре seek не хватает параметра seek(cars,15) (например);
3. в 51 строке - cost - без квадратных скобок, (марка и модель вероятно тоже)..
4. вот так верно: if (q='Y') or (q='y') then begin; (у вас не было скобок)
5. точки с запятой после begin
6. форматированный код более читабелен

вот так прога пытается запуститься, далее - сами..

Pascal

program n1;
 
type
  rec = record
    marka: string[20];
    model: string[20];
    cost: integer;
  end;
 
var
  cars: file of rec;
  temp: rec;
  q: char;
 
procedure addcar;
begin
  with temp do
  begin
    write('марка: ');
    readln(marka);
    write('модель: ');
    readln(model);
    write('цена: ');
    readln(cost);
  end;
end;
 
procedure cartofile;
begin
  if fileexists('C://cars.base')
  then
  begin
    reset(cars);
    seek(cars,5); filesize(cars);
    write(cars, temp);
  end
  else
  begin
    rewrite(cars);
    write(cars, temp);
  end;
end;
 
procedure screenoutput;
var
  car: rec;
begin
  reset(cars);
  writeln('--------------------------------------------------------------');
  writeln('I  Марка            I  Модель            I  Цена             I');
  writeln('I-------------------I--------------------I-------------------I');
  while not eof(cars) do 
  begin
    read(cars, car);
    with car do
    begin
      writeln('I', marka[20], 'I', model[20], 'I', cost, 'I');
      writeln('I-------------------I--------------------I-------------------I');
    end;
    writeln('--------------------------------------------------------------');
  end;
end;
 
begin
  assign(cars, 'C://cars.base');
  reset(cars);
  repeat
    begin
      write('есть что записать?(Y/N) ');
      readln(q);
      if (q = 'Y') or (q = 'y') then 
      begin;
        addcar;
        cartofile;
      end;
      if (q = 'n') or (q = 'N') then screenoutput;
    end;
  until q = 'n';
end.

@КонецСвета · 05.01.2013, 00:10

mrflo, у меня смутное чувство, что вы используете не PascalABC.NET, а Турбо паскаль. Я не ошибаюсь?
тогда все надо немного по другому оформлять..
пишите, если актуально =)

@mrflo · 05.01.2013, 15:52 **[ТС]**

именно pascalABC.NET

@mrflo · 05.01.2013, 16:07 **[ТС]**

ermolay,
2. там нужно конец файла найти. seek (cars, filesize(cars)); так вроде
3. как тогда cost ограничить на 20 символов?(в моей индусской интерпретации это ещё на 10 строк кода)

Добавлено через 6 минут
и табличка некорректно выводится

Добавлено через 10 секунд
и табличка некорректно выводится

@ermolay · 05.01.2013, 16:16

Сообщение от mrflo

cost ограничить на 20 символов?

ограничивается длина строки при описания типа записи для экономии используемой памяти. В Вашем случае - длина строки при описании марки и модели. То есть когда вы будете забивать данные, программа будет игнорировать символы после 20-го в названии.. ээ.. например тех же жигулей) А в 51 строке программа считывает данные из файла, там скобки просто не нужны.

@mrflo · 05.01.2013, 16:40 **[ТС]**

надо чтобы в 51 строке ровная таблица получилась

@ermolay · 05.01.2013, 17:06

Сообщение от mrflo

ровная таблица

аа.. тогда так:

Pascal

model:20

для данного случая ровнее будет так

Pascal

1	writeln(marka,' ':20-length(marka),model,' ':20-length(model),cost);

@mrflo · 05.01.2013, 18:29 **[ТС]**

мм
спасибо

Создать типизированный файл, который содержит сведения об автомобилях

Решение

Решение

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	04.01.2013, 00:32	2
	вы используете для записи тип rec, а записывать пытаетесь в cars Сообщение от mrflo with cars do то есть рассматриваете файл как запись, а не файл записей... 0

@mrflo 3 / 3 / 3 Регистрация: 17.11.2012 Сообщений: 40
	04.01.2013, 00:56 [ТС]	3
	так то да. а теперь ещё раз Сообщение от КонецСвета что же касается программы, то вы используете для записи тип rec, а записывать пытаетесь в cars Сообщение от mrflo with cars do то есть рассматриваете файл как запись, а не файл записей... но для школьника Добавлено через 14 минут вы предлагаете чесать через cars.marka и cars.factory етс? 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	05.01.2013, 00:10	8
	mrflo, у меня смутное чувство, что вы используете не PascalABC.NET, а Турбо паскаль. Я не ошибаюсь? тогда все надо немного по другому оформлять.. пишите, если актуально =) 0

@mrflo 3 / 3 / 3 Регистрация: 17.11.2012 Сообщений: 40
	05.01.2013, 15:52 [ТС]	9
	именно pascalABC.NET 0

@mrflo 3 / 3 / 3 Регистрация: 17.11.2012 Сообщений: 40
	05.01.2013, 16:07 [ТС]	10
	ermolay, 2. там нужно конец файла найти. seek (cars, filesize(cars)); так вроде 3. как тогда cost ограничить на 20 символов?(в моей индусской интерпретации это ещё на 10 строк кода) Добавлено через 6 минут и табличка некорректно выводится Добавлено через 10 секунд и табличка некорректно выводится 0

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	05.01.2013, 16:16	11
	Сообщение от mrflo cost ограничить на 20 символов? ограничивается длина строки при описания типа записи для экономии используемой памяти. В Вашем случае - длина строки при описании марки и модели. То есть когда вы будете забивать данные, программа будет игнорировать символы после 20-го в названии.. ээ.. например тех же жигулей) А в 51 строке программа считывает данные из файла, там скобки просто не нужны. 0

@mrflo 3 / 3 / 3 Регистрация: 17.11.2012 Сообщений: 40
	05.01.2013, 16:40 [ТС]	12
	надо чтобы в 51 строке ровная таблица получилась 0

@mrflo 3 / 3 / 3 Регистрация: 17.11.2012 Сообщений: 40
	05.01.2013, 18:29 [ТС]	14
	мм спасибо 0