Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Ахти
0 / 0 / 0
Регистрация: 26.04.2012
Сообщений: 6
1

Объявить заранее созданный файл как нетипизированный и вывести все четные слова

21.08.2012, 20:15. Просмотров 542. Ответов 3
Метки нет (Все метки)

Объявить какой-либо заранее созданный файл как нетипизированный и вывести
все четные слова (одно слово равно двум байтам) из этого файла на экран
монитора.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.08.2012, 20:15
Ответы с готовыми решениями:

Объявить какой-либо заранее созданный файл как нетипизированный и вывести все четные учетверенные слова
1. Создать или открыть текстовый (типизированный, нетипизированный) файл. 2. Выполнить над...

Объявить какой-либо заранее созданный файл как нетипизированных и вывести все парные слова
Объявить какой-либо заранее созданный файл как нетипизированных и вывести все парные слова (одно...

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

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

Из паскаля в С++. Вывести все четные буквы слова
var a:integer; var s1,s2:string; begin inc(a); write('Vvedite slovo: '); readln(s1); ...

3
HighPredator
5801 / 2061 / 732
Регистрация: 10.12.2010
Сообщений: 5,871
Записей в блоге: 3
21.08.2012, 20:36 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const
  BufSize=2;
 
var
  f:file;{нетипизированный файл}
  data:integer;{"двойное слово"}
  BlockCount:integer;{количество удачно считанных блоков}
 
begin
  Assign(f,'D:\123.dat');
  Reset(f,BufSize);{открываем файл на чтение,
      устанавливаем размер буфера обращения}
  while not eof(f) do
  begin
    BlockRead(f,data,1,BlockCount);{считываем из файла один блок}
    if BlockCount<>0 then{если удалось прочитать}
      begin
        if not odd(data) then writeln(data);{проверяем на четность и выводим}
      end;
  end;
  Close(f);
end.
0
Puporev
Модератор
57885 / 44084 / 30452
Регистрация: 18.05.2008
Сообщений: 105,489
21.08.2012, 20:40 3
А я понял четные слова как второе, четвертое и т.д.
0
HighPredator
5801 / 2061 / 732
Регистрация: 10.12.2010
Сообщений: 5,871
Записей в блоге: 3
21.08.2012, 20:42 4
Puporev, согласен, условие не очень четко сформулировано.
0
21.08.2012, 20:42
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.08.2012, 20:42

вывести все четные учетверенные слова из не типизированного файла
помогите пожайлуста зделать лабораторную очень надо. ПОРЯДОК ВЫПОЛНЕНИЯ: 1. Создать или открыть...

Создать файл целых чисел. За один просмотр файла вывести на экран сначала все четные числа, а потом все нечетные
Помогите пожалуйста написать программу. Создать файл целых чисел. За один просмотр файла вывести на...

Вывести в файл все четные числа исходного файла
В файле задано последовательность из 25 целых чисел. Вывести у новосозданный файл все парные числа,...


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

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

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