Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
158 / 1 / 0
Регистрация: 14.09.2009
Сообщений: 58
1

Создать файл, обеспечить ввод данных, вывод данных, поиск по любому критерию

03.02.2010, 10:06. Показов 1852. Ответов 2
Метки нет (Все метки)

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

-номер строки документа (тип integer)
-номер строки (тип string)

Заранее спасибо!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.02.2010, 10:06
Ответы с готовыми решениями:

Ввод данных, вывод данных, поиск по любому критерию
Составьте программу, которая обеспечивает ввод данных, вывод данных, поиск по любому критерию....

Ввод данных, вывод данных, поиск по любому критерию
Составьте программу, которая обеспечивает ввод данных, вывод данных, поиск по любому критерию....

Составьте программу, которая обеспечивает ввод данных, вывод данных, поиск по любому критерию
Составьте программу, которая обеспечивает ввод данных, вывод данных, поиск по любому критерию....

Составить программу, обеспечивающую ввод данных и поиск по любому критерию
Составить программу, которая обеспечивает ввод данных, вывод данных, поиск по любому критерию....

2
3306 / 1368 / 110
Регистрация: 28.04.2009
Сообщений: 4,822
03.02.2010, 10:11 2
ответ
1
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
03.02.2010, 13:20 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Та же программа с нетипизированным файлом.
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
uses crt;
type doc=record
         nom:integer;
         text:string;
         end;
var z:doc;
    w:char;
    f:file;
    i,n,k,ns:integer;
    st:string;
begin
clrscr;
write('Количество строк n=');
readln(n);
assign(f,'doc.dat');
rewrite(f,1);
writeln('Введите данные о документе');
for i:=1 to n do
 begin
  z.nom:=i;
  writeln('Строка ',i,':');
  readln(z.text);
  blockwrite(f,z.nom,sizeof(z.nom));
  blockwrite(f,z.text,sizeof(z.text));
 end;
close(f);
clrscr;
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-вывод данных');
writeln('2-поиск по номеру строки');
writeln('3-поиск по содержанию строки');
writeln('другое-выход');
readln(w);
case w of
'1':begin
    reset(f,1);
    writeln('Содержание файла:');
    for i:=0 to n-1 do
     begin
      blockread(f,z.nom,sizeof(z.nom));
      blockread(f,z.text,sizeof(z.text));
      writeln(z.nom:2,'  ',z.text);
     end;
    close(f);
    write('Press Enter...');
    readln
    end;
'2':begin
    reset(f,1);
    write('Введите номер строки ns=');
    readln(ns);
    if(ns<1)or(ns>filesize(f)) then
     begin
      writeln('Такой страницы нет!');
      write('Press Enter...');
      readln;
      close(f);
     end
    else
     begin
      blockread(f,z.nom,sizeof(z.nom));
      blockread(f,z.text,sizeof(z.text));
      writeln(z.nom:2,'  ',z.text);
      write('Press Enter...');
      readln;
      close(f);
     end;
    end;
'3':begin
    reset(f,1);
    writeln('Введите содержание строки для поиска:');
    readln(st);
    k:=0;
    while not eof(f) do
     begin
      blockread(f,z.nom,sizeof(z.nom));
      blockread(f,z.text,sizeof(z.text));
      if z.text=st then
        begin
         writeln(z.nom:2,'  ',z.text);
         k:=1;
        end;
     end;
     if k=0 then writeln('Такой строки нет!');
     write('Press Enter...');
     readln;
     close(f);
   end;
else exit;
end;
until not(w in ['1'..'3']);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.02.2010, 13:20

Создать файл, обеспечить ввод и поиск данных
Требуется сделать: создать на диски d: файл данных с именем text обеспечит ввод и изменение...

Создать программу, которая обеспечивает ввод данных, поиск по году рождения и фамилии, вывод данных
Создать программу, которая обеспечивает ввод данных, поиск по году рождения и фамилии, вывод...

Составьте программу, которая создает файл, обеспечивает ввод данных, вывод данных, поиск по ФИО
Помогите исправить в тексте программы ошибки. Задача: Составьте программу, которая создает файл, ...

Составьте программу, которая создает файл, обеспечивает ввод данных, вывод данных, поиск по ФИО
Составьте программу, которая создает файл, обеспечивает ввод данных, вывод данных, поиск по ФИО....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru