Товарищи очень сильно прошу помогите очень срочно с задачей, она не сложная, с записями и файлами... ПОМОЖИТЕ ато лишусь места в учебном заведении ((((
Создать базу данных, содержащую сведения о мягкой мебели. Запись базы должна содержать :название, вид, цена, кол-во, доставка(логическая величина). Найти:
количество определенного вида мебели
по названию модели все данные о ней
среднюю цену стульев
ввод данных из файла shopin.txt база данных в shop.dat вывод в shopout.txt
Прошу вас =) помогите будному студенту....
Поможем, если будешь выполнять Правила
| М | Цитата 1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... - приведи заголовок темы в соответствие с этим пунктом, срочно. |
да вот начал переносить информацию из входного текстовика в фойл бд shop.dat присвоил файловой переменной file of m (m это тип записи) и мне ошибочку №63 выкидывает
uses crt;
type m=record
name : string;
view :string;
cost :real;
numb :longint;
dost :string;
end;
var f:file of m;
fot, fin :text;
r :m;
n :string;
begin
clrscr;
assign (fin, 'shopin.txt');
assign (f, 'shop.dat');
assign (fot, 'shopout.txt');
reset (fin);
while not eof(fin) do
begin
read (fin, r.name);
readln (fin, r.view);
readln (fin, r.cost);
readln (fin, r.numb);
readln (fin, r.dost);
close (fin);
end;
reset (f);
rewrite (f);
writeln (f, r.name); {вот тут ошибка намбер 63 Invalid file type}
close (а);
end.