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

Работа с файлами

21.10.2009, 21:36. Показов 730. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
если на диске с в каталоге ren имеется файл s11.fam то вывести на экран номер первой компоненты,значение которой меньше нуля ,но больше -100.Если номер этой компоненты больше 100,то файл стереть.Компоненты типа integer.

помогите найти ошибки.


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
program matr;
Uses crt;
const
fileg: string= 'C:\ren\s11.fam';
Var
f:file of integer;
fl:integer;
A:array [1..100] of integer;
i,k,n,x:integer;
Begin;
clrscr;
assign(f,fileg);
  {$I-}                
  reset(f); 
   {$I+}              
   if ioresult <> 0 then begin writeLn('Nety filega!');
   if ioresult = 0 then begin
   i:=0;
   For k:=0 to filesize(f)-1 do
   begin
   read(f,x);
   if (x<0) and (x>-100) then
   begin
   i:=k+1;
   fl:=1;
   break;
   end;
      reset(f);
   For k:=0 to filesize(f)-1 do
   begin
   read(f,A[k]);
   end;
     begin
   If (fl=1) then do
   writeln(A[i]);
   If i>100 then do
   close(f);
   writeln('udalaem fileg nomer bolshe 100 ');
   Erase(f);
   end;
   else begin
   writeln('takogo elementa nety');
   close(f);
   end;
   End.
0
21.10.2009, 21:36
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
21.10.2009, 21:36
Ответы с готовыми решениями:

Работа с файлами
как записать в файл такую строку: nsd asd vsd ads и как потом прочитать из файла эту же строку

Работа с файлами
1. В текстовом файле F1 записана последовательность чисел. Сформировать текстовый файл F2, содержащий все числа в обратном порядке. 2. В...

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

1
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
22.10.2009, 10:18 2
Чтоб не было проколов все по порядку.
1. Создаете на диске С папку ren
2. С помощью программы №1 создаете файл, первый раз введите числа чтоб были числа из заданного диапазона.
После прогона программы №2 снова запустите первую программу и введите числа не из диапазона.
Программа 1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
const fileg: string= 'C:\ren\s11.fam';
var f:file of integer;
    x:integer;
    i:byte;
begin
clrscr;
assign(f,fileg);
rewrite(f);
writeln('Запишите в файл 10 целых чисел:');
for i:=1 to 10 do
 begin
  write('i=');
  readln(x);
  write(f,x);
 end;
close(f);
readln
end.
Программа 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
Uses crt;
const
fileg: string= 'C:\ren\s11.fam';
Var
f:file of integer;
fl:integer;
A:array [1..100] of integer;
i,k,n,x:integer;
Begin;
clrscr;
assign(f,fileg);
{$I-}reset(f); {$I+}
if ioresult <> 0 then
 begin
  writeLn('Nety filega!');
  readln;
  exit;
 end;
i:=0;
for k:=0 to filesize(f)-1 do
 begin
  read(f,x);
  if (x<0) and (x>-100) then
   begin
    i:=1;
    write(x);
    break;
   end;
 end;
close(f);
if i=0 then
 begin
  writeln('takogo elementa net. fail budet stert.');
  erase(f);
  end;
readln
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
22.10.2009, 10:18
Помогаю со студенческими работами здесь

Работа с файлами
В файле хранятся записи с полями:chislo:1..31;mes:1..12;god:1000..2999.Напечатать все зимние даты,сгрупировав их по месяцам.Пожалуйста кому...

Работа с файлами
Помогите с задачками плз. 1 Дано символьный файл f. Подсчитать число вхождений в файл каждой из букв a,b,c,d,e,f и вывести результат в...

Работа с файлами
1) Вывести на экран текст, который состоит из строк с парными порядочными номерами. 2) Переписать из этого файла в другой файл все строки...

Работа с файлами
Помогите решить пожалуйста Дан символьный файл f. Группы символов, разделенных пробелами и не содержащих пробелов внутри себя, называют...

Работа с файлами
Доброго времени суток! Нужна помощь! Необходимо создать текстовый файл, заменить в нем все буквы &quot;х&quot; на &quot;у&quot;....


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Создаем SPA Router на чистом JavaScript
bytestream 17.02.2025
В современной веб-разработке одностраничные приложения (SPA) стали стандартом для создания динамичных и отзывчивых пользовательских интерфейсов. Ключевым компонентом любого SPA является роутер -. . .
Машинное обучение на TypeScript и TensorFlow
bytestream 17.02.2025
Машинное обучение становится все более востребованным направлением в современной разработке программного обеспечения. Интеграция искусственного интеллекта в веб-приложения открывает новые возможности. . .
Манипуляция данными EXIF и JPEG в JavaScript
bytestream 17.02.2025
В современном мире цифровой фотографии метаданные изображений играют важнейшую роль в организации и управлении медиаконтентом. Формат EXIF (Exchangeable Image File Format) - это стандарт,. . .
Как создать GUID/UUID в JavaScript
bytestream 17.02.2025
GUID (Globally Unique Identifier) и UUID (Universally Unique Identifier) - это специальные форматы 128-битных идентификаторов, которые практически гарантируют уникальность значения во времени и. . .
Что такое мышление в упрощенном смысле (моё субъективное видение, для создания модели).
Hrethgir 17.02.2025
Разумеется упрощать смысл есть. Дело в том, что я пришёл к тому выводу, что даже если я создам свой процессор (конвейер), то первое для чего смогу его использовать в качестве демонстративного. . .
Как Node.js устроен изнутри
Wired 17.02.2025
Node. js коренным образом изменил подход к веб-разработке, позволив использовать JavaScript не только в браузере, но и на стороне сервера. Созданный в 2009 году Райаном Далем, Node. js представляет. . .
Как обновить Node.js в Windows
Wired 17.02.2025
Думаю, многие разработчики сталкивались с ситуацией, когда устаревшая версия Node. js становилась источником проблем - от несовместимости с новыми пакетами до уязвимостей в безопасности. Особенно это. . .
Как обновить Node.js в MacOS
Wired 17.02.2025
В Node. js существует несколько подходов к обновлению, каждый из которых имеет свои преимущества и особенности применения. Выбор конкретного метода зависит от ваших потребностей - будь то. . .
Как обновить Node.js в Linux
Wired 17.02.2025
Обновление Node. js может показаться сложной задачей, особенно если у вас несколько проектов с разными зависимостями. Однако существует несколько надежных способов обновления, подходящих для разных. . .
[golang] 134. Gas Station
alhaos 17.02.2025
Тут нам даны два целочисленных слайса gas и cost, индексы массива представляют собой заправочные станции. а элементы gas это количество топлива на такой станции, cost это количество топлива. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru