Вопрос по информатике:
Pascal.
1.Определить количество слов в предложении.
2.Определить какая буква в строке встречается чаще: первая или последняя.
3. Написать программу меняющую слово "Петр" на "Иван".
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.05.2015 04:38
- Информатика
- remove_red_eye 14567
- thumb_up 30
Ответы и объяснения 1
Для подсчёта слов в предложении, вот код:
program Slova;
var
s: string;
r,i:integer;
begin
writeln('Введите ваше предложение');
readln(s);
s:=s+' ';
for i:=1 to length(s)-1 do
if (s' ') and (s[i+1]=' ') then
r:=r+1;
writeln('В предложении ',r, ' слов. ');
readln;
end.
Какая буква встречается чаще
Program Bykv;
Var s:String;
i,k1,k2:byte;
Begin
write('Введите строку: ');readln(s);
For i:=2 to Length(s)-1 do
if s[i]=s[1] then inc(k1)
else if s[i]=s[Length(s)] then inc(k2);
writeln('Первая буква встречается ',k1);
writeln('Последняя буква встречается ',k2);
writeln('Вывод:');
if k1>k2 then writeln('Первая буква встречается чаще')
else if k1
else writeln('Одинаково');
readln;
End.
Изменить слово петя на иван в строке
program test;
var s,t,z,p:string;j:integer;
begin
writeln('Введите ваше предложение');
readln(s);
write('Введите слово которое хотите заменить: ');
readln(t);
write('Введите замену слову: ', t, ' ');
readln(z);
if pos(t,s)0 then
j:=pos(t,s);
p:=copy(s,1,j-1);
p:=p+z;
p:=p+copy(s,j+length(t),length(s));
writeln(p);
readln;
end.
- 21.05.2015 19:01
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.