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

под каким именем сохраняется файл??

15.04.2010, 17:30. Показов 538. Ответов 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
uses crt;
const n=15;
type spion=record
                prz:string[20];
                doc:byte;
                orz:byte;
               end;
       fail=file of spion;
var sp:spion;
    i:byte;
    f:fail;
begin
clrscr;
assign(f,'file1');
rewrite(f);
writeln('Введите ',n,' записей:');
for i:=1 to n do
 begin
  writeln('Шпион ',i);
  with sp do
   begin
    write(' прозвище: ');readln(prz);
    write(' количество документов:');readln(doc);
    write(' количество оружия:');readln(orz);
    write(f,sp);
   end;
 end;
close(f);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.04.2010, 17:30
Ответы с готовыми решениями:

Запись списка в файл под тем же или новым именем
Программа должна содержать меню и ввод-вывод в окна на экране. Необходимо предусмотреть контроль...

Почему файл из Интернета сохраняется не под тем именем?
Приветствую. Вот код: procedure TfmCRL_Downloader.bStartDownloadClick(Sender: TObject);...

Не сохраняется файл с абсолютным именем, ofstream
На Win7 пытаюсь вывести данные в файл: ofstream fout("C:\\data.txt"); Если делать вывод...

Как узнать под каким именем пользователь вошел в систему?
Привет! Вопрос возможно не по адресу:как узнать под каким именем пользователь вошел в систему (не...

2
3306 / 1368 / 110
Регистрация: 28.04.2009
Сообщений: 4,822
15.04.2010, 17:32 2
Название File 1. Находится в папке с программой
0
0 / 0 / 1
Регистрация: 15.04.2010
Сообщений: 10
15.04.2010, 17:34  [ТС] 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
uses crt;
type spion=record
                prz:string[20];
                doc:byte;
                orz:byte;
               end;
       fail=file of spion;
var sp:spion;
    mx:byte;
    pr:string[20];
    f:fail;
    name:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(name);
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
read(f,sp);
mx:=sp.orz;
pr:=sp.prz;
while not eof(f) do
 begin
  read(f,sp);
  if sp.orz>mx then
   begin
    mx:=sp.orz;
    pr:=sp.prz;
   end;
 end;
close(f);
write('Самый вооруженный ',pr);
readln
end.



я ввожу имя fail1 он не окрывается

Добавлено через 41 секунду
точнее FILE1
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.04.2010, 17:34

Через Ексель Открыть файл ВОРД и сохранить файл под определенным именем
Открываю через ексель файлы ворд и выполняю макрос ворд, но не получается сохранить файл под...

Как открыть и сохранить файл под другим именем?
Есть файл file.jpg. Нужно сделать его копию под названием pict.jpg. Причем, если pict.jpg...

Как сохранить файл ПОД ИМЕНЕМ В КОДИРОВКЕ DOS?
Друзья! Чтобы не содержимое файла было в кодировке DOS, а имя файла было в кодировке DOS. То есть у...

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


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

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

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