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

Программа не сохраняет запись в файл и не читает его

15.03.2013, 00:15. Показов 2362. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Не как не могу понять что не так в коде, не как не хочет сохранять в файл и читать с его.
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
Program uch_7_1;
Uses crt;
Type
pribor=record
inomer:integer;
name:string[50];
naz:string[50];
date:char;
cena:integer;
end;
exp=file of pribor;
Var
fd,fs:exp;
dan:pribor;
i,j,k,v:integer;
Procedure vvod (Var fd:exp);
Label m1;
Var
t:char;
Begin
Clrscr;
assign(fd,'D:\data.dat');
Rewrite(fd);
m1:Writeln ('Введите данные о приборе:');
write ('Инвентарный номер: ');
readln(dan.inomer);
write ('Наименование прибора*: ');
readln(dan.name);
write ('Назначение: ');
readln(dan.naz);
write ('Дата изготовления: ');
readln (dan.date);
write ('Цена: ');
readln (dan.cena);
Writeln;
writeln ('Добавить ещё запись D-ДА / N-Нет ?');
readln (t);
if (t='D') or (t='d') then goto m1;
close (fd);
end;
Procedure vivod (Var fd:exp);
Begin
Clrscr;
writeln ('Запись в файле: ');
assign (fd,'D:\data.dat');
Reset(fd);
while (not Eof(fd)) do
 begin
 read(fd,dan);
 writeln ('Инвентарный номер: ',dan.inomer);
 writeln ('Наименование прибора: ',dan.name);
 writeln ('Назначение: ',dan.naz);
 writeln ('Дата изготовления: ',dan.date);
 writeln ('Цена: ',dan.cena);
 writeln;
 end;
close(fd);
end;
Begin
ClrScr;
repeat
writeln;
writeln ('__________****Меню****__________');
writeln ('1. Создать запись.');
writeln ('2. Просмотр записи..');
writeln;
write('Выберите пункт меню: ');
readln(v);
Case v of
1: vvod(fd);
2: vivod(fd);
end;
Until v=3;
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.03.2013, 00:15
Ответы с готовыми решениями:

Программа которая читает .тхт и меняет номер после определённого словосочетания, сохраняет файл
У меня очень большой текст и среди текста нужно найти номер он будет от 0,01 до 1000,99 пример ...

Программа создает бинарный файл, но не сохраняет его в формате .bin, что делать?!
#include <iostream> #include <stdlib.h> #include <fstream> #include <locale.h> #include...

Не читает файл в папке дебаг. Уже везде его пихал, а программа не работает
#include <iostream> #include <fstream> //#include <chrono> #include <string> using namespace...

Программа читает текствовый файл file01.txt в массив Names[1.9] of string и выводит его на экран
Программа читает текствовый файл file01.txt в массив Names of string и выводит его на экран....

4
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
15.03.2013, 10:09 2
Так надо записи заносить в файл
Pascal
1
2
3
4
..........................
write ('Цена: ');
readln (dan.cena);
write(fd,dan);//добавь
1
Дзæуджыхъæу
232 / 204 / 148
Регистрация: 20.09.2012
Сообщений: 421
Записей в блоге: 1
15.03.2013, 10:12 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от McQueen96 Посмотреть сообщение
Pascal
1
2
Label m1;
then goto m1;

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
Program uch_7_1;
Uses crt;
Type
    pribor=record
    inomer:integer;
    name:string[50];
    naz:string[50];
    date:char;
    cena:integer;
    end;
    exp=file of pribor;
Var
   fd,fs:exp;
   dan:pribor;
   i,j,k,v:integer;
Procedure vvod (Var fd:exp);
Var
t:char;
Begin
Clrscr;
assign(fd,'D:\data.dat');
Rewrite(fd);
repeat
      Writeln ('Введите данные о приборе:');
      write ('Инвентарный номер: ');
      readln(dan.inomer);
      write ('Наименование прибора*: ');
      readln(dan.name);
      write ('Назначение: ');
      readln(dan.naz);
      write ('Дата изготовления: ');
      readln (dan.date);
      write ('Цена: ');
      readln (dan.cena);
      Writeln;
      write(fd,dan);
      writeln ('Добавить ещё запись D-ДА / N-Нет ?');
      readln (t);
until (t='N') or (t='n') or (t='Н') or (t='н') ;
close (fd);
end;
Procedure vivod (Var fd:exp);
Begin
Clrscr;
writeln ('Запись в файле: ');
assign (fd,'D:\data.dat');
Reset(fd);
while (not Eof(fd)) do
 begin
 read(fd,dan);
 writeln ('Инвентарный номер: ',dan.inomer);
 writeln ('Наименование прибора: ',dan.name);
 writeln ('Назначение: ',dan.naz);
 writeln ('Дата изготовления: ',dan.date);
 writeln ('Цена: ',dan.cena);
 writeln;
 
 end;
 writeln('To Enter ...');
 readln;
close(fd);
end;
Begin
ClrScr;
repeat
writeln;ClrScr;
writeln ('__________****Меню****__________');
writeln ('1. Создать запись.');
writeln ('2. Просмотр записи..');
writeln ('3. Vixod');;
write('Выберите пункт меню: ');
readln(v);ClrScr;
Case v of
1: vvod(fd);
2: vivod(fd);
end;
Until v=3;
end.
Добавлено через 9 секунд

Не по теме:

апоздал)

2
2 / 2 / 1
Регистрация: 15.01.2013
Сообщений: 65
15.03.2013, 11:01  [ТС] 4
Всем спасибо все заработало!)
0
Puporev
15.03.2013, 11:08     Программа не сохраняет запись в файл и не читает его
  #5

Не по теме:

Тук, тук, тук...
Кто там?
Ура, заработало!!!

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.03.2013, 11:08

Пользователь выбирает файл и сохраняет его в бд?
Правильно ли я иду? index.php: <?php include_once 'src/function.php'; ?> <!DOCTYPE html>...

Программа, которая читает текстовый файл в типизированный файл
Нужно написать программу, которая читает текстовый файл в типизированный файл и печатает его...

Куда программа сохраняет файл?
как найти результать ( в какой папке находиться результат) программы label m; var v : text;...

CFile не читает уже открытый на запись файл
Есть вот-такой кусок кода: CFile file; file.Open(L"text.txt",CFile::modeRead); Все прекрасно...


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

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

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