Задание по теме "Файлы"

Министерство образования и науки Российской Федерации

Пермский Национальный Исследовательский Политехнический Университет

Кафедра Общей физики

Отчёт по лабораторной работе:

«Задание по теме "Файлы"

Выполнил:

Студент ФПММ группы ФОП 13

Проверил преподаватель:

Банников Руслан Юрьевич

Пермь, 2016.

Постановка задачи.

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

Алгоритм решения.

Перечень переменных. Для реализации алгоритма необходимы переменные:n.

Real: диапазон значений: ; объём занимаемой оперативной памяти – 6 бит;[pic 1]

Single: диапазон значений: ; объём занимаемой оперативной памяти – 4 бит;[pic 2]

Double: диапазон значений: ; объём занимаемой оперативной памяти – 8 бит;[pic 3]

Extended: диапазон значений: ; объём занимаемой оперативной памяти – 10 бит.[pic 4]

Shortint: Диапазон допустимых значений -128…127; Отводимая память, в байтах 1;

Integer: Диапазон допустимых значений -32 768…32 767; Отводимая память, в байтах 2;

Longint: Диапазон допустимых значений -2 147 483 648…2 147 483 647; Отводимая память, в байтах 4;

Byte: Диапазон допустимых значений 0…255; Отводимая память, в байтах 1;

word: Диапазон допустимых значений 0…65 535; Отводимая память, в байтах 2;

string Диапазон допустимых значений 0…255; Отводимая память, в байтах 1

Для того что бы минимизировать использование оперативной памяти программой, для двух переменных воспользуемся типом Byte и одной переменной string

Затраты оперативной памяти.

Для созданной программы необходимо 515 бит оперативной памяти.

[pic 5]

Входные данные.

Для реализации алгоритма программы необходимо ввести одну переменных (являющимися входными данными). И создать файл состоящий из слов

Переменная s : переменная s текст только английские буквы  

Выходные данные.

Результатом программы является k Результатом программы может быть натуральное число .

Программа.

var f:text;

    i,k:byte;

    name,s:string;

    c:char;

begin

write('Имя файла для чтения: ');

readln(name);

name:=name+'.txt';

assign(f,name);

reset(f);

write('На какую букву искать слова c=');

readln(c);

k:=0;

while not eof(f) do

 begin

  readln(f,s);

  for i:=1 to length(s) do

  if (s[i]=c) then

  if (i<>1)then begin

  if (s[i-1]=' ') then k:=k+1 end

  else k:=k+1

 end;

close(f);

write('Слов на букву ',c,'=',k);

readln

end.

ФАЙЛ

[pic 6]

Результат работы

Тест  1

[pic 7]

Тест 2

[pic 8]

Тест 3

[pic 9]

Постановка задачи.

Написать программу, которая выводит на экран те компоненты файла последовательного доступа, которые делятся на m  , но не делятся на n . Подсчитать их количество

Алгоритм решения.

Перечень переменных. Для реализации алгоритма необходимы переменные:n.