§28 ГДЗ Семакин 10 класс (Информатика)

Задача

2. Какой может быть максимальная длина строки?
3. Составьте программу получения из слова «дисковод» слова «воск», используя операцию сцепления и функцию Сору.
4. Составьте программу получения слова «правило» из слова «операция», используя процедуры Delete, Insert.
5. В данном слове замените первый и последний символы на символ
6. В данном слове произведите обмен первого и последнего символов.
7. К данному слову присоедините столько символов сколько в нем имеется букв (например, из строки ’УРА’ надо получить ‘УРА!!!’).
8. В данной строке вставьте пробел после каждого символа.
9. Переверните введенную строку (например, из ‘ДИСК’ должно получиться КСИД).
10. В данной строке удалите все пробелы.
11. Строка представляет собой запись целого числа. Составьте программу ее перевода в соответствующую величину целого типа.

Подробный ответ

1. Строковая константа записывается как последовательность символов, заключённая в апострофы. Строковая переменная описывается в разделе переменных так: $$var\ \langle имя \rangle : string[\langle максимальная\ длина\ строки \rangle]$$

2. Максимальная длина строки — $$255$$ символов.

3. Из слова «дисковод» нужно получить «воск». Берём нужные фрагменты функцией Copy и соединяем их операцией сцепления.

Program test;
var s: string;
  tp_1, tp_2: string;
begin
  s := ‘дисковод’;
  tp_1 := Copy(s, 6, 2);
  tp_2 := Copy(s, 3, 2);
  s := tp_1 + tp_2;
  writeln(s);
end.

4. Из слова «операция» получаем «правило»: сначала удаляем исходную строку, затем вставляем новую.

Program test;
var s: string;
begin
  s := ‘операция’;
  Delete(s, 1, Length(s));
  Insert(‘правило’, s, 1);
  writeln(s);
end.

5. Чтобы заменить первый и последний символы на символ *, нужно обратиться к первому и последнему элементам строки.

Program test;
var
  Text: string;
begin
  write(‘Введите слово: ‘);
  readln(Text);
  Text[1] := ‘*’;
  Text[Length(Text)] := ‘*’;
  writeln(‘Новое слово: ‘, Text);
  readln;
end.

6. Для обмена первого и последнего символов сохраняем строку в дополнительную переменную и меняем элементы местами.

Program test;
var
  A, C: string;
  b: integer;
begin
  read(A);
  C := A;
  b := Length(A);
  A[1] := A[b];
  A[b] := C[1];
  write(A);
end.

7. Чтобы присоединить столько символов !, сколько букв в строке, в цикле добавляем в конец строки восклицательный знак.

Program test;
var
  s: string;
  i: byte;
begin
  write(‘Введите строку: ‘);
  readln(s);
  for i := 1 to Length(s) do
    s := s + ‘!’;
  writeln(‘Полученная строка: ‘, s);
  readln;
end.

8. Чтобы вставить пробел после каждого символа, идём по строке с конца к началу и вставляем пробел после текущего символа.

Program test;
var s: string;
  i: byte;
begin
  write(‘Введите строку: ‘);
  readln(s);
  for i := Length(s) downto 1 do
    Insert(‘ ‘, s, i + 1);
  writeln(‘Полученная строка = ‘, s);
  readln;
end.

9. Переворачиваем строку, выводя символы с конца к началу.

Program test;
var
  s: String;
  i: Byte;
begin
  Writeln(‘Введите строку:’);
  Readln(s);
  for i := Length(s) downto 1 do
    Write(s[i]);
end.

10. Чтобы удалить все пробелы, просматриваем строку и удаляем каждый найденный пробел.

Program test;
var s: string;
  i: integer;
begin
  writeln(‘Введите строку’);
  readln(s);
  for i := 1 to Length(s) do
  begin
    if s[i] = ‘ ‘ then Delete(s, i, 1);
  end;
  writeln(s);
end.

11. Если строка содержит запись целого числа, её можно преобразовать в целое значение процедурой Val.