2 / 2 / 0
Регистрация: 26.09.2013
Сообщений: 44
1

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

28.02.2014, 17:24. Показов 768. Ответов 3
Метки нет (Все метки)

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


Нужно срочно.Заранее спасибо за помощь
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.02.2014, 17:24
Ответы с готовыми решениями:

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

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

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

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

3
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
4170 / 1275 / 231
Регистрация: 27.07.2009
Сообщений: 3,947
28.02.2014, 17:25 2
Как пытались решить? Что не получается?
0
2 / 2 / 0
Регистрация: 26.09.2013
Сообщений: 44
28.02.2014, 17:34  [ТС] 3
Пытался брать за пример программу с оценками и учениками, опять же, запутался, могу кинуть код, но мне за него стыдно даже

Добавлено через 2 минуты
Вот код
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
Uses crt;
Type lop=Record
             znach: real;
         nomer: integer;
       end;
Var  f: File of lop;
     i,j,n,k: Integer;
     u: lop;
     s:integer;
BEGIN
Assign(f,'1.dat');
Rewrite(f);
Write('Vvedite kol-vo izmereniy: ');
Readln(n);
For i:=1 to n do
 begin
  writeln('lop ',i);
  with u do
   begin
    Write('Nomer: '); Readln(nomer);
    Write('Znachenie : ');
    for j:=1 to 15 do
     repeat
      Readln(znach[j]);
     until znach[j];
    Write(f,u);
   end;
 end;
Reset(f);
Clrscr;
Writeln('Vse nomera: ');
while not eof(f) do
 begin
  read(f,u);
  with u do
   begin
    Write(nomer,' ');
    for j:=1 to 15 do Write(znach[j],' ');
    writeln
   end;
  end;
writeln;
Write('Vvedite nomer dlya poiska: ');
Readln(s);
Writeln('Rezultat poiska:');
seek(f,0);
k:=0;
while not eof(f) do
 begin
  read(f,u);
  If u.nomer=s Then
   begin
    k:=1;
    Write(u.nomer,' ');
    for j:=1 to 15 do
    Write(u.znach[j],' ')
   end;
 end;
if k=0 then write('Takogo nomera net');
close(f);
readln;
end.
0
2 / 2 / 0
Регистрация: 26.09.2013
Сообщений: 44
01.03.2014, 20:31  [ТС] 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
66
67
68
69
70
71
Type
    Trecord=record                          {Объявление объекта и типов переменных}
     Nomer:Integer;                     
     Znachenie:Real;
     zn:integer;
   end;
 
Var
 f:File of TRecord;
 Rec:TRecord;
 ch:Char;
    
Procedure WriteRecord;                      {Процедура записи значений}
Begin
 While not eof(f) do begin
   Read(f,Rec);
   WriteLn('Номер:',Rec.Nomer);
   WriteLn('Значение',Rec.Znachenie);
   Writeln('Количество измерений',Rec.zn);
 end;
End; 
 
Procedure ReadRecord;                        {Процедура  вывода введенных ранее значений}
Begin
  Write(' Введите Номер:'); 
  ReadLn(Rec.Nomer);
  Write('Введите Значение:'); 
  ReadLn(Rec.Znachenie);
  Write('Введите количество измерений:');
  Readln(Rec.zn);
 Seek(f, FileSize(f));
 Write(f,Rec);
 Close(f);
End;
 
Procedure SearchRecord;                               {Процедура поиска значений}
Var
 flag:Boolean;
 number:Integer;
Begin
Write('Введите номер записи:'); ReadLn(number);
Reset(f);
flag:=False;
while not eof(f) do begin
 Read(f,Rec);
 if Rec.Nomer=Number then begin
   WriteLn('Номер:',Rec.Nomer);
   WriteLn('Значение',Rec.Znachenie);
   
   flag:=true;
 end;
end;
if not flag then WriteLn('Ничего не найдено!');
Close(f);
End;
 
Begin
 Assign(f,'1.dat');                                {Запись всех данных в файл 1.dat}
rewrite(f);
 Repeat
  WriteLn('1-Ввод записи');                 
  WriteLn('2-Вывод записей');
  WriteLn('3-Поиск записи');
  WriteLn('0-Выход');
  WriteLn('Введите команду:');
  ReadLn(ch);
  if ch='1' then ReadRecord;                    {Вызов процедуры чтения при вводе значения 1}
  if ch='2' then WriteRecord;                    {Вызов процедуры записи при вводе значения 2}
  if ch='3' then SearchRecord;                  {Вызов процедуры поиска при вводе значения 3}
 Until ch='0';                                             {Ввод значения 0 для выхода из меню и программы}
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.03.2014, 20:31

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

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

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

Реализовать функции, обеспечивающую ввод данных с клавиатуры и их проверку на корректность
1. Реализовать функцию, обеспечивающую ввод данных с клавиатуры и их проверку на корректность; тип...


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

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

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