Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Лабораторна робота №10
Інформація про навчальний заклад
ВУЗ:
Ужгородський національний університет
Інститут:
Не вказано
Факультет:
Програмна Інженерія
Кафедра:
Не вказано
Інформація про роботу
Рік:
2018
Тип роботи:
Лабораторна робота
Предмет:
Основи програмування та алгоритмічні мови
Частина тексту файла (без зображень, графіків і формул):
ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД
“УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ”
Факультет інформаційних технологій
Лабораторна робота №10
Лабораторна робота №10.
Тема: Робота з рядковими змінними.
Мета: Вивчення процедур та функцій роботи з рядковими змінними.
Вивчити питання: Рядок. Опис типу. Дії над рядковими виразами.
Стандартні процедури та функції для обробки рядків. Типові приклади обробки рядків.
ЗАВДАННЯ ДО РОБОТИ:
Варіант 3
Вилучити з тексту слова, довжина яких більша за N.
ХІД РОБОТИ
program lab10;
var
text: string;
n,len, i, j: integer;
begin
Writeln('Введіть число(кількість букв)');
Readln(n);
write('Enter text: ');
readln(text);
len:= length(text);
i:= 1; {Початок 1 символ}
j:= 0; {Довжина рівна 0}
while i<=len do
begin
if text[i]<>' ' then
begin
{Якщо символ не пробіл}
j:=j+1; {Збільшуємо довжину слова}
i:=i+1;
{Переходимо до наступної букви}
end
else
begin
if j>n then
begin
delete(Text,i-j,j+1);
len:= length(Text);
i:= i-j;
j:= 0;
end
else
begin
{Якщо довжина слова >N}
i:= i+1;
j:= 0;
end;
end;
end;
if j>n then {Якщо останнє слово>N }
delete(Text,i-j,j);
writeln(Text);
readln;
end.
ВИСНОВКИ
За допомогою даної лабораторної роботи я вивчила процедури та функції роботи з рядковими змінними.
Розглянула такі питання: рядок, опис типу, дії над рядковими виразами, стандартні процедури та функції для обробки рядків, типові приклади обробки рядків.
03.05.2018 21:37
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора