урок 9 ноября, подготовка к тесту 14 и 16 ноября

 1)Ввод величины s с клавиатуры
writeln('Введите слово'); 
writeln('новое слово:',s);
readln(s);
readln(s,s);

2)Результатом нового слова Фен из слова телефон будет:

s1:= s[1]+ s[3] + s[7];
s1:= s[5]+ s[4] + s[6]:
 s1:= s[5]+ s[4] + s[7];

3)Что делает команда length

Описывает строковую величину
Считает количество букв в слове
Отнимает последнюю букву в слове

4) Выберите команду для того ,чтобы собрать новую величину из старой

1) var s: string;
n:integer ;
begin
writeln('Введите слово');
readln(s);
n:= length(s);
s[n] := s[ 1] ;
writeln('новое слово:',s);
end.

2) var s: string; 
begin
writeln('Введите слово');
readln(s); 
write   (s);
end.

3) var s: string;
s1: string;
begin
writeln('Введите слово');
readln(s);
s1:= s[2]+ s[5] + s[7];
writeln('новое слово:',s1);
end.

5)Выберите правильный вариант решения задачи 

var s: string;
begin
s:='Слон';
write (length (s[1]+ s[3] + s[4]));
end.

6)Допишите команду которая вычисляет количество слов в тексте? если между любими двумя буквами 1 пробел 

Var st : string ;
n,k : integer ;
begin
writelen (‘Введите текст’);readln(st);
n:=length(st);
k:=1;  
For  i:= 1 to n do 
Begin
---------------

k:=k  +1 ;
end;
writelen (‘В тексте ‘,k, ‘ слов (-o/-a)’);
end.

7)Допишите команду . Каких знаков препинания в тексте больше – точек или запятых 
var St: string;
 n, k1, k2: integer;
begin
 writeln('Введите текст');
 readln(St);
 n := length(St);
 k1 := 0; k2 := 0;
 for i := 1 to n do
 begin
 if St[i] = '.' then  k1 :=---------;
 if St[i] = ',' then k2 := --------;
 end;

 if k1 > ----- then
 writeln('Точек больше')
 else
 if k2 > k1 then
 writeln('Запятых больше')
 else
 writeln('Количество запятых
 равно количеству точек');

6)Можно ли присвоить переменной строкового типа значения с помощью какой-либо команды?

Да
Нет

7)Допишите команду , которая заменит в тексте каждую ',' на  '.'   . 

var st: string; n: integer;
begin
 writeln('Введите строку');
 readln(st);
 n := length(st);
 for i := 1 to n do 
 if st[i] = ','  then ---------
writeln('Преобразованная строка:');
 writeln(st);
end.

8)Допишите   программу, которая определит, сколько слов в тексте начинается на букву «а».

var St: string;
n, k1: integer;

begin
writeln('Введите текст');
readln(St);
n := length(St);
k1 := 0;
if (St[1] = 'а') or (St[1] = 'А') then
k1 := k1 + 1;
for var i := 2 to n do .....
(Продолжение)
begin
if ((St[i] = 'а') or (St[iа] = 'А')) and (St[i-1] = ' ') then
k1 := k1 + 1;
end;
writeln('На букву «а» начинается ', k1, ' слов(-о/-а)');
end.

9)Соотносите :

1. Этот тип используется в языке Pascal для работы с текстовыми данными.
2. Используется для ввода строки 
3. Используется для вывода строки
4. Используется для создания пустой строки 
а)write (writeln)
б)S:=' ';
в)read(readln)
г) string 

10)Дано слово "Аденозинтрифосфорный". Соотнесите :

1. S[12]+S[13]+S[14]+S[15]+S[16]+S[17]
2. S[14]+S[7]+S[6]+S[16]
3. S[3]+S[18]+S[13]+S[9]
4. S[6]+S[13]+S[8]+S[9]
а. Сизо
б. Зонт
в. Енот
г. Фосфор
16 ноября будет тест строки 2

Наберите результат программы
s:='Привет, школа!';
writeln(s[length(s)- 2]+s[4])

writeln(length(s)- 3+s[3])