Вопрос по информатике:
Изменится ли строка ST, над которой произведут операцию COPY? Почему?
Чему будет равняться k после операции k:=length(‘мышь и клавиатура’)?
Чему будет равняться переменная tx после операции tx:=‘лесник’; delete(tx,4,3)?
Чему будет равняться переменная k после операции tx:=‘баобаб’; k:=pos(‘ба’,tx)?
Дополнить программу недостающими командами
Подсчитать количество букв “а” в тексте (русских и латинских; прописных и заглавных).
program zadacha1;
var t:string;
b:string[1];
n,k,i:integer;
Begin
writeln('Введите текст');
…………………………;
n:=length(t);
k:=0;
for i:=1 to n do
begin
b:=copy(t,i,1);
if ……………………………then k:=k+1;
end;
writeln('k=',k);
End.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 24.03.2017 16:20
- Информатика
- remove_red_eye 13227
- thumb_up 9
Ответы и объяснения 1
Добрый день!
И так, начнём..
*Вопрос: Изменится ли строка ST, над которой произведут операцию COPY? Почему?
*Ответ: Изменится, т.к. при использовании функции COPY необходимо указывать в какой строке копировать, с какой позиции, и количество символов, которое будет копировано.
**Вопрос: Чему будет равняться k после операции k:=length(‘мышь и клавиатура’)?
**Ответ: Переменная k будет равна 17, т.к. функция LENGTH определяет длину строки, считая каждый пробел, запятую, буквы и т.д.
***Вопрос: Чему будет равняться переменная tx после операции tx:=‘лесник’; delete(tx,4,3)?
***Ответ: Переменная tx будет равна слову лес. Функция DELETE удаляет часть символов из строки. В нашем случае удаление происходит в строке tx, с позиции 4, удаляет 3 символа.
****Вопрос: Чему будет равняться переменная k после операции tx:=‘баобаб’; k:=pos(‘ба’,tx)?
****Ответ: Переменная k будет равна 1. Т.к. функция POS определяет первое вхождение заданного символа.
Дополненная программа:
program zadacha1;
var t: string; b: string[1]; n, k, i: integer;
begin
writeln('Введите текст: ');
readln(t);
n := length(t);
k := 0;
for i := 1 to n do begin
b := copy(t, i, 1);
if (t[i] = 'a') or (t[i] = 'A') or (t[i] = 'а') or (t[i] = 'А') then k := k + 1;
end;
writeln ('k= ', k);
end.
*Курсивом и выделением обозначены дополнения в программе.
- 25.03.2017 00:14
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.