С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
0 / 0 / 0
Регистрация: 21.05.2010
Сообщений: 6

В новый файл переписать информацию о книгах, выпущенных заданным издательством

21.05.2010, 17:28. Показов 2415. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В файле хранится информация о книгах:шифр, фамилия автора, название книги, издательство, год издания. В новый (текстовый) файл переписать информацию о книгах, выпущенных заданным издательством!!!!!
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
21.05.2010, 17:28
Ответы с готовыми решениями:

Переписать в новый файл g всю информацию по f в обратном порядке
Задали исходный файл с текстом f. Переписать в новый файл g всю информацию по f в обратном порядке. То есть у нас уже есть некий файл...

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

Сведения о книгах в библиотеке, получить информацию о книге с заданным шифром
(На С++) Сведения о книгах в библиотеке. Структура записи: шифр книги, автор, название, год издания, местоположение (номер стеллажа,...

4
 Аватар для lera8
636 / 219 / 64
Регистрация: 03.11.2009
Сообщений: 488
21.05.2010, 18:49
А где ваши наработки? что именно не можете?
0
0 / 0 / 0
Регистрация: 21.05.2010
Сообщений: 6
21.05.2010, 20:46  [ТС]
Цитата Сообщение от lera8 Посмотреть сообщение
А где ваши наработки? что именно не можете?
я в информатике не бум бум...я учусь на юридическом!!!а мне по инфе на зачёт дали это...решите пожалуйста!!!!!!
0
 Аватар для lera8
636 / 219 / 64
Регистрация: 03.11.2009
Сообщений: 488
21.05.2010, 21:17
Ну вот ваша задача, если уж нужно что то редактировать чтобы выводилось как нибудь по другому, по красивее, то уж попробуйте сами
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
59
60
61
62
63
64
65
Type
Book=record
  shfr:string[7];
  Fam,Naz,Izd:string[80];
  god:integer;
end;
var
f,f1:text;
buf:Book;
s:string[40];
begin
 writeln('Введите издательство');
 readln(s);
  assign(f,'c:/output.txt');
  assign(f1,'c:/input.txt');
  reset(f);
  rewrite(f1);
    while not EOF(f) do
     begin
       readln(f,buf.shfr);
       readln(f,buf.Fam);
       readln(f,buf.Naz);
       readln(f,buf.Izd);
       readln(f,buf.god);
        if buf.Izd=s then
          begin
            writeln(f1,buf.shfr);
            writeln(f1,buf.Fam);
            writeln(f1,buf.Naz);
            writeln(f1,buf.Izd);
            writeln(f1,buf.god);
          end;
     end;
   close(f1);
   close(f);
   reset(f);
   writeln('----------------------------------');
   writeln('содержимое  исходного файла');
   writeln('----------------------------------');
     while not EOF(f) do
       begin
         readln(f,buf.shfr);  write(buf.shfr,'  ');
         readln(f,buf.Fam);   writeln(buf.Fam);
         readln(f,buf.Naz);   writeln(buf.Naz);
         readln(f,buf.Izd);   write(buf.Izd,'  ');
         readln(f,buf.god);   writeln(buf.god);
       end;
    writeln('----------------------------------');
      reset(f1);
   writeln;
   writeln('----------------------------------');
   writeln('содержимое  нового файла');
   writeln('----------------------------------');
     while not EOF(f1) do
       begin
         readln(f1,buf.shfr);  write(buf.shfr,'  ');
         readln(f1,buf.Fam);   writeln(buf.Fam);
         readln(f1,buf.Naz);   writeln(buf.Naz);
         readln(f1,buf.Izd);   write(buf.Izd,'  ');
         readln(f1,buf.god);   writeln(buf.god);
       end;
   writeln('----------------------------------');
    close(f);
    close(f1);
end.
1
0 / 0 / 0
Регистрация: 21.05.2010
Сообщений: 6
21.05.2010, 22:54  [ТС]
Спасибо огромное))))))))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
21.05.2010, 22:54
Помогаю со студенческими работами здесь

Вывести сведения о книгах, изданных издательством “Мир”, которые поступили в библиотеку за последние пять лет
4. Даны сведения о книгах, поступивших в библиотеку: ФИО автора, название книги, название издательства, год издания, дата поступления книги...

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

Ввести и записать в файл информацию о книгах
Ввести и записать в файл информацию о книгах по языку С++:порядковый номер,фамилия автора,название книги,город,издательство,год...

Вывести сведения о книгах, изданных издательством "Мир", которые поступили в библиотеку за последние пять лет
Даны сведения о книгах, поступивших в библиотеку: ФИО автора, название книги, название издательства, год издания, дата поступления книги в...

Записать в файл информацию о книгах. Напечатать список книг, изданных начиная с N года
В файл записать информацию о книгах университетской библиотеки: автор, название книги, год издания, цена. Напечатать список книг, изданных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути
Programma_Boinc 01.01.2026
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru