Лабораторная работа № 13. Обработка строк Вариант 9. Pascal
Описание работы
Работа пользователя И. Нестеров
I. Дана программа, решающая определенную задачу.
Требуется: 1) исполнить программу при 2-3 наборах данных; 2) сформулировать условие задачи, которую решает данная программа.
9.
Var S:string;
i,k:integer;
begin
Writeln('Введите текст');
Readln(s);
i:=1;
while i<=length(s) do
if (s[i] >='0') and (s[i]<='9')
then delete(s,i,1)
else i:=i+1;
Writeln(s);
end.
II. Дано условие задачи и ее решение, содержащее пропуски. Заполнить пропуски. Проверить работоспособность программы на 2-3 наборах тестовых данных.
9. Удвоить вхождение каждого символа в строке
var
S , i : Integer;
begin
Writeln('Задайте строку:');
for i downto 1 do ___(S[i], i, S);
Writeln('Строка после обработки:');
Writeln(__);
end.
III. Решить следующую задачу. Привести несколько тестовых наборов данных для проверки работоспособности программы.
9. Дано слово s1. Получить слово s2, образованное нечетными буквами слова s1.
IV. Решить следующую задачу. Привести несколько тестовых наборов данных для проверки работоспособности программы:
Требуется: 1) исполнить программу при 2-3 наборах данных; 2) сформулировать условие задачи, которую решает данная программа.
9.
Var S:string;
i,k:integer;
begin
Writeln('Введите текст');
Readln(s);
i:=1;
while i<=length(s) do
if (s[i] >='0') and (s[i]<='9')
then delete(s,i,1)
else i:=i+1;
Writeln(s);
end.
II. Дано условие задачи и ее решение, содержащее пропуски. Заполнить пропуски. Проверить работоспособность программы на 2-3 наборах тестовых данных.
9. Удвоить вхождение каждого символа в строке
var
S , i : Integer;
begin
Writeln('Задайте строку:');
for i downto 1 do ___(S[i], i, S);
Writeln('Строка после обработки:');
Writeln(__);
end.
III. Решить следующую задачу. Привести несколько тестовых наборов данных для проверки работоспособности программы.
9. Дано слово s1. Получить слово s2, образованное нечетными буквами слова s1.
IV. Решить следующую задачу. Привести несколько тестовых наборов данных для проверки работоспособности программы:
- Дан текст. Определить длину самого короткого и самого длинного слова.