Question

Дано слово "форматирование". Используя все возможные сначала функции, а потом процедуры получить как можно больше новых слов. Слова составляются на паскале с помощью функций copy, lenght и pos; и процедур delete, insert, str и val.

Answer 1

Var s,d,f,z:string; i,n:integer;
begin
write('Введите текст');Readln(s);
//s:='форматирование';
n:= length(s);
for i:= 1 to n do begin
if i <6 then begin z:= z + s[i];end;end;
writeln(z);
f:= copy(s,2,4);
writeln('н' +f);
delete(s,1,2);insert('ka',s,1);f:= copy(s,1,5);writeln(f);end.

Answer 2

Давайте посмотрим, как можно использовать функции и процедуры на языке Pascal (включая copy, length, pos, delete, insert, str и val) для создания новых слов на основе слова "форматирование".

1. Использование функции `copy` для создания нового слова: ```pascal var originalWord, newWord: string; begin originalWord := 'форматирование'; newWord := copy(originalWord, 1, 5) + 'новое'; writeln(newWord); end. ``` Этот код создаст новое слово "формановое".

2. Использование функции `length` для определения длины слова: ```pascal var originalWord: string; wordLength: integer; begin originalWord := 'форматирование'; wordLength := length(originalWord); writeln('Длина слова: ', wordLength); end. ``` Этот код выведет длину слова "форматирование".

3. Использование функции `pos` для поиска подстроки: ```pascal var originalWord: string; position: integer; begin originalWord := 'форматирование'; position := pos('тир', originalWord); writeln('Позиция подстроки "тир": ', position); end. ``` Этот код выведет позицию подстроки "тир" в слове "форматирование".

4. Использование процедуры `delete` для удаления подстроки: ```pascal var originalWord: string; begin originalWord := 'форматирование'; delete(originalWord, 6, 5); // Удалить 5 символов, начиная с 6-го writeln(originalWord); end. ``` Этот код создаст новое слово "формание".

5. Использование процедуры `insert` для вставки подстроки: ```pascal var originalWord: string; begin originalWord := 'форматирование'; insert('НОВОЕ', originalWord, 6); // Вставить "НОВОЕ" начиная с 6-го символа writeln(originalWord); end. ``` Этот код создаст новое слово "формаНОВОЕттирование".

6. Использование процедуры `str` и `val` для преобразования числа в строку и обратно: ```pascal var number: integer; strNumber: string; begin number := 123; str(number, strNumber); writeln('Число в строковом виде: ', strNumber);

val(strNumber, number); writeln('Строка в число: ', number); end. ``` Этот код преобразует число 123 в строку и обратно.

Это простые примеры использования функций и процедур на языке Pascal для работы с словом "форматирование". Вы можете комбинировать эти методы и экспериментировать для создания новых слов или модификации существующего.