не пойму причину ошибки

12.03.2010, 00:19. **Показов** 800. **Ответов** 2

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

вот прога, надо по названию продукта, выводить о нем инфу, после первой строки read (f, ..
..пишет error type mismatch,
я заполнял файл так: muka 10 20000
(10 цена, 20000 - кол-во)
подскажите что не так?

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
type prod = record
nazv: string;
cena: integer;
kolvo: integer;
end;
var a:string; j,i:integer; b:array [1..100] of prod; f: file of prod;
begin
assign (f, 'prod.dat');
reset (f);
i:=0;
while not eof (f) do
begin
inc(i);
read (f, b.nazv);
read (f, b.cena);
read (f, b.kolvo);
end;
writeln ('vvedite nazv produkta');
readln (a);
for j:= 1 to i - 1 do
if a = b[j].nazv then
begin
writeln (b[j].cena);
writeln (b[j].kolvo);
end;
close (f);
end.

пожалуйста подскажите нужно до завтра!
заранее спасибо!

Добавлено через 28 минут
вообщем сформулирую задачу по лучше:
дан файл, в нем: название продутка , его цена , его кол- во
нужно чтобы при вводе названия продукта появлялась информация о нем.
заранее спасибо

@Puporev · 12.03.2010, 08:37

Если конечно у Вас уже есть файл, в чем я сомневаюсь.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
type prod = record
nazv: string;
cena: integer;
kolvo: integer;
end;
var a:string; 
    b:prod; 
    f: file of prod;
begin
assign (f, 'prod.dat');
reset (f);
writeln ('vvedite nazv produkta');
readln (a);
while not eof (f) do
 begin
  read (f, b);
  if a = b.nazv then
  writeln (b[j].cena,'  ',b[j].kolvo);
 end;
close (f);
end.

Добавлено через 33 секунды
Из файла нельзя читать поля записи, а только запись полностью.

Добавлено через 5 минут

я заполнял файл так: muka 10 20000
(10 цена, 20000 - кол-во)

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
assign (f, 'prod.dat');
rewrite(f);
writeln('Введите в файл 5 записей:');
for i:=1 to n do
 begin
  writeln('Запись ',i);
  write('Название: ');readln(b.nazv);
  write('Количество: ');readln(b.kolvo);
  write('Цена: ');readln(b.cena);
  write(f,b);
 end;

вот сейчас можете искать.

12.03.2010, 13:17

большое спасибо! просто я информатику учу первый год, а через 2 месяца сдавать ЕГЭ, прохожу все и сразу )) поэтому в голове все перепутано )

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

mixannick
	12.03.2010, 13:17
	большое спасибо! просто я информатику учу первый год, а через 2 месяца сдавать ЕГЭ, прохожу все и сразу )) поэтому в голове все перепутано )