Создание просмотрщика

@nikisha12 · Регистрация: 20.12.2020

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

Необходимо создать просмотрщик примерного такого вида:

1. Просмотр
2. Поиск
3. Добавление
4. Удаление
5. Выход

1 ВАЗ 2121 Нива внедорожник 600 000 - 676 000 2021
2 ВАЗ 2121 Нива внедорожник 645 000 - 721 000 2021
3 Лада Веста Седан 704 000 - 1 038 000 2015

Для этого файла

bird.txt

@nikisha12 · 27.01.2022, 22:42 **[ТС]**

Как исправить ошибки , чтобы прога заработала?
Над функцией удаления еще думаю как сделать.

Вот код программы

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Uses Crt;
 
Var f:File; //  файл
    
    s,s1,s2:string;c:char;
    i,k,L:integer;
    InData:array[1..4] of string;
    
 
 
// Просмотр данных
Procedure ViewData;
  begin
  assign (f, 'D:\папочка\birdf.txt');
    reset (f);
 
    while not eof (f) do begin
        read (f, c);
        write (c);
    end;
 
    close (f);
    
  
end;
 
 
Procedure FindData;
var F:TextFile;// Переменной присваивается значение TextFile
Str:string;// Переменной присваивается значение String
textbox1,textnox2:Text;
begin
  Assign(F,'D:\папочка\birdf.txt');
  reset(F);// Открывает текстовый файл для чтения
  while not eof(F) do// Цикл, который перебирает строки 
   begin
      readln(F, Str);// Ввод слова\буквы\цифры для поиска строки
      if pos(textbox1.text, Str)>0 //  есть ли слово\буква\цифра в строке
      then
      textbox2.Text:= textbox2.Text + #13#10 + str; // Вывод строки в текстбокс
   end;
   CloseFile(F);// Закрыть файл
end;
 
 
Begin
 
Readln(k);
 Case k of
 1:ViewData;
 2:FindData;
 3:DelData;
 
 end;
 
 Close(f);
 
end.

bird.txt

@Cyborg Drone · 01.02.2022, 20:02

Простите, просто интересно.

Что за непонятные числа в информации о машинах?

Как соотносится информация о машинах с информацией о птицах?

Насчёт информации о птицах: требуется доступ в интернет? Где сохранять данные о птицах? На сайте https://www.ebirds.ru? Это Ваш сайт, и у Вас есть возможность его редактирования? Вы орнитолог?

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

Я пытался что-то понять... Но моя телепатическая железа плохо работает в это время года, а хрустальный шар я сдал в чистку. Кофейная гуща и потроха животных также не смогли придать смысла Вашему заданию.

Добавлено через 2 часа 17 минут
Во-первых, не создавайте на каждый Ваш чих новую тему. Дублирование и кросспостинг тем здесь запрещены. Дубли объединил.

Во- вторых, яснее не стало. Только Вам известно, что означает фраза "Как исправить ошибки, чтобы прога заработала?", поскольку нам до сих пор не известно то, что Вы считаете ошибками, и как вообще должна работать Ваша программа.

Если будете и далее заниматься порождением дублей, то с Вами могут поступить нехорошо, и я буду в первых рядах.
Подсказка: создание дубля сообщения не повышает шансов получить ответ. На этом форуме и без дублирования все видят всё. Кроме того, в дубле теряется контекст обсуждения. Что Вам нужно: получить достойный ответ, или получить кучу ответов, которые Вам не подходят? Для поднятия настроения: Как запостить тему, чтобы не получить ответ

Чтобы поднять актуальность темы, не нужно её дублировать. Достаточно написать (всё равно, кому) в тему новое сообщение, например, уточнение задания, дополнение условия, или просто одно слово "Актуально".

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого 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 и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@nikisha12 1 / 1 / 0 Регистрация: 20.12.2020 Сообщений: 123

	Создание просмотрщика 25.01.2022, 22:19. Показов 916. Ответов 2 Метки нет (Все метки) Необходимо создать просмотрщик примерного такого вида: 1. Просмотр 2. Поиск 3. Добавление 4. Удаление 5. Выход 1 ВАЗ 2121 Нива внедорожник 600 000 - 676 000 2021 2 ВАЗ 2121 Нива внедорожник 645 000 - 721 000 2021 3 Лада Веста Седан 704 000 - 1 038 000 2015 Для этого файла bird.txt 0

@Cyborg Drone Модератор 10442 / 5734 / 3406 Регистрация: 17.08.2012 Сообщений: 17,446
	01.02.2022, 20:02
	Простите, просто интересно. Что за непонятные числа в информации о машинах? Как соотносится информация о машинах с информацией о птицах? Насчёт информации о птицах: требуется доступ в интернет? Где сохранять данные о птицах? На сайте https://www.ebirds.ru? Это Ваш сайт, и у Вас есть возможность его редактирования? Вы орнитолог? Пожалуйста, перепишите Ваше задание в виде текста, и так, чтобы оно не содержало никаких разночтений. Пока что Ваше задание выглядит как бессмысленный набор данных, для которого Вы забыли указать, что именно делать со всеми этими машинами и птицами. Я пытался что-то понять... Но моя телепатическая железа плохо работает в это время года, а хрустальный шар я сдал в чистку. Кофейная гуща и потроха животных также не смогли придать смысла Вашему заданию. Добавлено через 2 часа 17 минут Во-первых, не создавайте на каждый Ваш чих новую тему. Дублирование и кросспостинг тем здесь запрещены. Дубли объединил. Во- вторых, яснее не стало. Только Вам известно, что означает фраза "Как исправить ошибки, чтобы прога заработала?", поскольку нам до сих пор не известно то, что Вы считаете ошибками, и как вообще должна работать Ваша программа. Если будете и далее заниматься порождением дублей, то с Вами могут поступить нехорошо, и я буду в первых рядах. Подсказка: создание дубля сообщения не повышает шансов получить ответ. На этом форуме и без дублирования все видят всё. Кроме того, в дубле теряется контекст обсуждения. Что Вам нужно: получить достойный ответ, или получить кучу ответов, которые Вам не подходят? Для поднятия настроения: Как запостить тему, чтобы не получить ответ Чтобы поднять актуальность темы, не нужно её дублировать. Достаточно написать (всё равно, кому) в тему новое сообщение, например, уточнение задания, дополнение условия, или просто одно слово "Актуально". 2