решение задачи

@Sead · Регистрация: 07.10.2013

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

На складе хранится n видов продукции. Сведения о них содержатся в специальной ведомости, указано наименование продукта, количество, цена за ед. Сформировать соответствующий файл записей. Изменить цену у заданного продукта (наименование и новая цена вводятся пользователем)

@Sead · 22.10.2013, 14:55 **[ТС]**

Чё никто не может помочь с решением?

Добавлено через 42 секунды

Хоть посдкажите каким образом можно сделать это

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

Изменить цену у заданного продукта (наименование и новая цена вводятся пользователем)

@Puporev · 22.10.2013, 14:57

Для начала читаешь про тип record и типизированные файлы записей.

@Sead · 23.10.2013, 08:59 **[ТС]**

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

Для начала читаешь про тип record и типизированные файлы записей.

Хм почитал вот что получилось:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses crt;
type
Vedomost=record
Name:string;
Kolvo:byte;
Cena:real;
end;
var x,y,z:Vedomost;
i,n:integer;
f:text;
begin
Writeln('Vvedi N vidov produkcii');
readln(n);
assign(f,'c:\Ved.txt');
rewrite(f);
for i:=1 to n do begin
Writeln('Vvedi naimenovamie producta');
readln(x.Name);
Writeln('Vvedi Kol-vo ',x.Name);
readln(y.Kolvo);
Writeln('Vvedi cenu ',x.Name);
readln(z.Cena);
Writeln(f,'¹ ',i,'  Product: ',x.Name,'  Kol-vo: ',y.Kolvo,'  Cena: ',z.Cena);
end;
Writeln('Vashi dannie zapisani');
Close(f);
 
end.

Щас начал разбираться с типизированными файлами и столкнулся с проблемой:
Если поставлю

Pascal
1
f:text;

- то файл станет открыт только для чтения правильно?
а чтобы он стал типизированным его нужно обзначить как

Pascal
1
f:file of 'какой тип поставить не знаю'

;
подскажи плиз.

@Puporev · 23.10.2013, 09:01

Pascal
1
var   f:file of Vedomost;

@Sead · 23.10.2013, 09:05 **[ТС]**

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

var f:file of Vedomost;

так я тоже думал тогда ошибка при записи

Pascal
1
Write(f,'¹ ',i,'  Product: ',x.Name,'  Kol-vo: ',y.Kolvo,'  Cena: ',z.Cena);

@Puporev · 23.10.2013, 09:13

Занести запись в типизированный файл так

Pascal
1
write(f,x);

Добавлено через 51 секунду
Еще раз пишу, почитайте про типизированные файлы записей.

Добавлено через 13 секунд
Я вам не учебник

Добавлено через 2 минуты
На форуме сотни решенных задач на эту тему, а вы как первый здесь вообще.
Зайдите в расширенный поиск, в ключевых словах наберите типизированные файлы записей и выберите раздел Паскаль

@Sead · 23.10.2013, 09:18 **[ТС]**

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

write(f,x);

Не это то я понял всёже читал про типизированные файлы, я имел ввиду чтобы в файле выводилось именно так

Pascal
1
Write(f,'№ ',i,'  Product: ',x.Name,'  Kol-vo: ',y.Kolvo,'  Cena: ',z.Cena);

возможно?

@Puporev · 23.10.2013, 12:56

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

возможно?

Нет, так выводят в текстовый файл или на экран только без f.
Как не читал ты ничего и не собираешься... Типизированный файл нельзя прочитать как текстовый, только программно, в нем нет строк.

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@Sead 66 / 69 / 33 Регистрация: 07.10.2013 Сообщений: 394

	решение задачи 21.10.2013, 09:57. Показов 1257. Ответов 8 Метки нет (Все метки) На складе хранится n видов продукции. Сведения о них содержатся в специальной ведомости, указано наименование продукта, количество, цена за ед. Сформировать соответствующий файл записей. Изменить цену у заданного продукта (наименование и новая цена вводятся пользователем) 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	22.10.2013, 14:57
	Для начала читаешь про тип record и типизированные файлы записей. 0