Задание по теме "Файлы"
Автор: van3925 • Декабрь 11, 2021 • Лабораторная работа • 560 Слов (3 Страниц) • 179 Просмотры
Министерство образования и науки Российской Федерации
Пермский Национальный Исследовательский Политехнический Университет
Кафедра Общей физики
Отчёт по лабораторной работе:
«Задание по теме "Файлы"
Выполнил:
Студент ФПММ группы ФОП 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.
...