2025-12-05 15:39:49
Помогите пожалуйста! Даю 50 баллов! Вводится строка из 3 слов. Нужно, чтобы когда мы ввели текст, поменялись 1 и 3 слово местами (в Паскале).
2. Вводится строка "Мы с Томарой ходим парой", нужно написать программу, чтобы получалось "Я с Томарой хожу парой" (в Паскале).
Пример 1 задания:
var st,st1,st2,st3:string;
n,k:integer;
begin
writeln('Введите строку');
readln(st);
n:=length(st);
k:=pos(' ',st);
st1:=copy(st,1,k-1);
st2:=copy(st,k+1,n-k);
st3:=st2+' '+st1;
writeln(st3);
end.
Пример 2 задания:
var st:string;
n,k:integer;
begin
writeln('Введите строку');
readln(st);
n:=length(st);
k:=pos('зима',st);
Delete(st,k,4);
Insert('весна',st,k);
Writeln(st);
End.
Информатика 7 класс Обработка строк в Паскале Паскаль программа строка замена слов информатика алгоритм ввод данных обработка строк 7 класс учебное задание
2025-12-05 15:40:10
Давайте разберем оба задания по порядку.
Задание 1: Нам нужно поменять местами первое и третье слово в строке, состоящей из трех слов.
Вот шаги, которые нужно выполнить:
- Сначала мы вводим строку.
- Нам нужно определить, где находятся пробелы, чтобы выделить первое, второе и третье слова.
- Мы можем использовать функцию pos для поиска пробелов и copy для извлечения слов.
- После этого мы меняем местами первое и третье слово и выводим результат.
Вот пример кода для решения этой задачи:
var
st, st1, st2, st3: string;
n, k1, k2: integer;
begin
writeln('Введите строку');
readln(st);
n := length(st);
k1 := pos(' ', st); // Находим первый пробел
k2 := pos(' ', st, k1 + 1); // Находим второй пробел
st1 := copy(st, 1, k1 - 1); // Первое слово
st2 := copy(st, k1 + 1, k2 - k1 - 1); // Второе слово
st3 := copy(st, k2 + 1, n - k2); // Третье слово
writeln(st3, ' ', st2, ' ', st1); // Выводим результат с поменянными местами словами
end.
Задание 2: Здесь нам нужно заменить слово "зима" на "весна" в строке "Мы с Томарой ходим парой".
Вот шаги для выполнения этой задачи:
- Сначала мы вводим строку.
- Нам нужно найти позицию слова "зима".
- Затем мы удаляем это слово и вставляем "весна" на его место.
Вот пример кода для решения этой задачи:
var
st: string;
k: integer;
begin
writeln('Введите строку');
readln(st);
k := pos('зима', st); // Находим позицию слова "зима"
if k <> 0 then // Проверяем, найдено ли слово
begin
Delete(st, k, 4); // Удаляем слово "зима" (длина 4)
Insert('весна', st, k); // Вставляем "весна" на место "зима"
end;
writeln(st); // Выводим результат
end.
Таким образом, мы успешно решили обе задачи. Если у вас есть вопросы или что-то непонятно, не стесняйтесь спрашивать!