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

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

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

В файле хранится информация о книгах:шифр, фамилия автора, название книги, издательство, год издания. В новый (текстовый) файл переписать информацию о книгах, выпущенных заданным издательством!!!!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.05.2010, 17:28
Ответы с готовыми решениями:

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

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

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

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

4
635 / 218 / 64
Регистрация: 03.11.2009
Сообщений: 488
21.05.2010, 18:49 2
А где ваши наработки? что именно не можете?
0
0 / 0 / 0
Регистрация: 21.05.2010
Сообщений: 6
21.05.2010, 20:46  [ТС] 3
Цитата Сообщение от lera8 Посмотреть сообщение
А где ваши наработки? что именно не можете?
я в информатике не бум бум...я учусь на юридическом!!!а мне по инфе на зачёт дали это...решите пожалуйста!!!!!!
0
635 / 218 / 64
Регистрация: 03.11.2009
Сообщений: 488
21.05.2010, 21:17 4
Ну вот ваша задача, если уж нужно что то редактировать чтобы выводилось как нибудь по другому, по красивее, то уж попробуйте сами
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  [ТС] 5
Спасибо огромное))))))))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.05.2010, 22:54

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

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

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

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


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.