Строковый тип данных
Определить значение переменных после выполнения фрагмента программы: 1) S:=В вазе роза; Insert( красивая,S,7); N:=length(S); K:=Pos(а,S); 2) S:=Дана строка; Insert( символов,S,12); N:=length(S); K:=Pos(o,S);
Определить значение переменных после выполнения фрагмента программы: 1) S:=Зима была; Insert(морозная,S,6); N:=length(S); K:=Pos(о,S); 2) S:=Дана строка; Delete (S,5,7); N:=length(S); K:=Pos(с,S);
Значение строковой переменной S есть 'аквалангист'. В переменной S можно получить значение 'акула' с помощью фрагмента программы: 1) S := Copy(S, 1, 5); 2) S := Copy(S, 1, 2) + 'у' + S[5] + S[1]; 3) Delete (S, 1, 2); Delete (S, 2, 1); Delete (S, 4, 1); 4) Delete (S, 1, 2); Insert ('у', S, 3); Delete(S, 4, 1); 5) S := S[3] + Copy (S, 5, 2) + 'ла'.
Значение строковой переменной S есть 'космодром'. В переменной S можно получить значение кокос' с помощью фрагмента программы: 1) S := Copy (S, 1, 3)+ S[1] + S[2]; 2) S := S[1] + S[5] + S[3] + Copy(S, 4, 2); 3) Delete(S, 4, 2); Delete(S, 4, 2); Insert(к, S, 4); 4) Delete(S,3,2); Insert(ма, S, 3); Delete(S,4,2); 5) S := Copy (S, 1, 2) + Copy (S, 1, 3);
Определить какую задачу решает эта программа: var str:string[50]; d, k1,k2:integer; begin readln (str); k1:=pos('(', str); k2:=pos(')', str); while k1<>0 do begin d:=k2-k1+1;delete(str,k1,d); k1:=pos('(', str); k2:=pos(')', str); end; writeln(str) end.
Определить какую задачу решает эта программа: var str, slovo:string[50]; d, i, k1 : integer; begin readln (str); k1:=0; d:=length (str); i:=1; While i<=d do Begin slovo:= ; while (str[i]<> ) and (i<=d) do begin Slovo:=slovo+str[i]; i:=i+1; end; k1:=k1+1; writeln(slovo); while (str[i]= ) and (i<=d) do i:=i+1; End; writeln(k1); end. Что будет на экране, если str= Я люблю программирование