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

Вопросы и задания

1. Как в программе обозначается строковая константа, как определяется строковая переменная?

Строковая константа записывается как последовательность символов, заключенная в апострофы.  Строковая переменная описывается в разделе описания переменных следующим образом: var <идентификатор>: string [<максимальная длина строки>]

 

2. Какой может быть максимальная длина строки?

255

3. Составьте программу получения из слова «дисковод» слова «воск», используя операцию сцепления и функцию Сору.

Var s: string;

begin s:='дисковод';

writeln (copy(s,6,2)+copy(s,3,2))

end.

4. Составьте программу получения слова «правило» из слова «операция», используя процедуры Delete, Insert.

var

   t : string := 'операция';

begin

   writeln('до    ', t);

   delete(t, 8, 1);

   delete(t, 6, 1);

   delete(t, 3, 1);

   delete(t, 1, 1);

   insert('в', t , 4);

   insert('ло', t , 6);

   writeln('после ', t)

end.

 

5. В данном слове замените первый и последний символы на символ

Var s:string;

Begin    

write(‘Введите строку: ‘);

readln(s);    

s[1]:=’*’;    

s[Length(s)]:=’*’;    

writeln(‘Полученная строка: ‘,s);    

readln;

End.

 

6. В данном слове произведите обмен первого и последнего символов.

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. К данному слову присоедините столько символов '!', сколько в нем имеется букв (например, из строки ’УРА' надо получить 'УРА!!!').

Var

s:string;

i:byte;

Begin

write(‘Введите строку: ‘);

readln(s);

For i:=1 to Length(s) do      s:=s+’!’;

writeln(‘Полученная строка: ‘,s);

readln;

End.

8. В данной строке вставьте пробел после каждого символа.

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. Переверните введенную строку (например, из 'ДИСК' должно получиться КСИД).

Var 

s: String; 

i: Byte;

BEGIN

Writeln(‘Введите строку:’);

Readln(s);

For i:=Length(s) downto 1 do Write(s[i]);

END.

10. В данной строке удалите все пробелы.

Var s:string;

begin writeln(‘Введите строку:’);

readln(s);

while pos(‘ ‘,s)<>0 do delete(s,pos(‘ ‘,s),1);

writeln(s);

end.

11. Строка представляет собой запись целого числа. Составьте программу ее перевода в соответствующую величину целого типа.

Var s:string;

    n,k:byte;

Begin

    write(‘Строка = ‘);readln(s);

    Val(s,n,k);

    writeln(‘Число = ‘,n);

    readln;

End.