Служба спасения студентов
Служба спасения для студентов (18+)

Лабораторная работа № 13. Обработка строк Вариант 9. Pascal

Стоимость
50 руб.
Содержание
Практика
Объем
4 лист.
Год написания

Описание работы

Работа пользователя И. Нестеров
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. Дан текст. Определить длину самого короткого и самого длинного слова.

 

Сколько стоит помощь с учебной работой?