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

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

08.03.2010, 22:41. Показов 1975. Ответов 2
Метки нет (Все метки)

Составьте программу, которая обеспечивает ввод данных, вывод данных, поиск по ФИО. Каждая компонента записи содержит следующую информацию об оценках учеников вашего класса по геометрии: ФИО (тип string); оценки за месяц (одномерный массив из 15 элементов)

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

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

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

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

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

2
139 / 139 / 97
Регистрация: 25.01.2010
Сообщений: 181
09.03.2010, 13:12 2
Лучший ответ Сообщение было отмечено freek как решение

Решение

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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
uses crt;
type
StFio=string[30];
ocenka=array[1..15] of integer;
Recbook=record
a:ocenka;
Fio:StFio;
end;
var
BookFile:file of Recbook;
i,n:integer;
vid:byte;
End_menu:boolean;
work:RecBook;
Name:string[12];
procedure Name_File;
begin
write('введите имя файла: ');
readln(Name);
end;
Procedure AddRec;
Begin
writeln('ввод записи №: ', FilePos(bookFile)+1);
with work do
begin
write('Введите фамилию: ');
readln(Fio);
write('Введите количество оценок: ');
readln(n);
for i:=1 to n do
begin
write(i,' оценка: ');
readln(a[i]);
write(bookFile,work)
end;
end;
end;
procedure Create_book ;
var i,count:integer;
begin
Name_file;
assign(bookfile,Name);
rewrite(bookfile);
writeln('введите число записей в справочнике: ');
readln(count);
for i:=1 to count do
Addrec;
writeln('Создание записи завершено: ');
close(bookFile);
end;
procedure putrec;
begin
Read(Bookfile,work);
with work do
begin
write('Запись № ',FilePos(Bookfile),':');
writeln('ФИО: ' ,Fio,' Оценки ',a[i]:3);
end;
end;
procedure allRec;
begin
name_file;
assign(bookfile,name);
{$I-}
reset(bookfile);
{$I+1}
if IOresult=0 then
begin
Seek(BookFile,0);
writeln('Вывод справочника из файла: ',name);
while (not Eof(bookFile)) do
putrec;
end
else
writeln('Файла с именем '+Name+' на диске нет');
end;
Procedure FindFio; {Поиск по фамилии }
Var {объявление переменных}
BookFile:file of RecBook;
Work:RecBook;
Maska:StFio;
Rez_Find:boolean;
CountRec:integer;
Begin
Name_File; {вызов процедуры}
Assign(BookFile,Name);{связь с файлом}
{$I-}{директива компилятору на отключение стандартной проверки операции ввода-вывода}
Reset(BookFile);{}
{$I+}{директива компилятору на включение стандартной проверки операции ввода-вывода}
if IOResult=0 then {проверка условия}
begin
Write('Введите фамилию для поиска: ');
Readln(Maska);{ввод данных}
CountRec:=0;
While(not Eof(BookFile)) do {Просмотреть все записи до конца файла}
Begin
Read(BookFile,Work); {ввод данных}
With Work do
If Pos(Maska,Fio)<>0 then{Найдена запись абонента с указанной фамилией}
Begin
Rez_Find:=True;
Inc(CountRec);{увеличиваем на один шаг}
Writeln('Фамилия: ', Fio,', Оценки ',a[i]:3);
End;
End;
If Rez_Find then {проверка условия}
Writeln('Число записей для ', Maska,'=',CountRec)
Else
Writeln('Hет абонентов с фамилией  ', Maska);
Close(BookFile);{закрытие файла}
End
Else
Writeln('Файла с именем '+Name+' на диске нет');
End;
Begin {основная программа}
ClrScr;{очистка экрана}
End_Menu:=False;
Repeat         {Повторять показ меню, пока End_Menu=False}
Writeln('Выберите вид работы ');
Writeln('1-создание нового файла ');
Writeln('2-просмотр списка ');
Writeln('3-поиск  ');
Writeln('0-завершение работы ');
Write('Ваш выбор: ');
Readln(Vid);{ввод данных}
Case Vid of  {Вызов разных процедур в зависимости от вида работы}
1:Create_Book;
2:aLLRec;
3:FindFio;
0:End_Menu:=True;
end;
Writeln('Нажмите клавишу Enter');
Readln;
ClrScr;{очистка экрана}
Until End_Menu;
end.
2
158 / 1 / 0
Регистрация: 14.09.2009
Сообщений: 58
18.03.2010, 11:31  [ТС] 3
может кто-нибудь, подскажет какие строки нужно убрать и что дописать, чтобы запись данных шла в массив, а не в файл?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.03.2010, 11:31

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

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

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

Составьте программу, которая обеспечивает вывод данных, поиск по году рождения и личному номеру
Помогите пожалуйста. Задали 3 задачи 2 сделал... А это немогу понять(( Составьте программу,...

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

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


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

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

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