Задача №1 Дана строка, подсчитать количество вхождений слова «кот» в данную строку. Пример: st:=’кровать’; copy(st,2,3); Результат типа string A:=’ров’; program pr1; var st: string; i,k: integer; begin write('введите строку: '); readln(st); k:=0; for i:=1 to length(st) do if copy(st,i,3)='кот' then k:=k+1; write('количество вхождений=',k); end. Задача №2 Найти номер позиции, с которой в заданной строке в первый раз встретится некоторое введенное слово. Пример: A:=’юмор’; B:=’ор’; Pos(В,А); Результат типа integer D:=3; program pr2; var st1,st2:string; t:integer; begin write ('введите строку: '); readln(st1); write ('введите слово: '); readln(st2); t:=pos(st2,st1); write('введенное слово начинается с ',t,' позиции'); end. Задача №3 Подсчитать количество запятых в заданном тексте с массива символов. program pr3; var st:string; i,k:integer; begin write ('введите строку: '); readln(st); k:=0; for i:=1 to length(st) do if st[i]=',' then k:=k+1; write('количество запятых=',k); end. Задача №4 Заменить в заданной строке все вхождения «ку» на «за» с операции копирования, удаления и вставки. program pr4; var st:string; i:integer; begin write('введите строку:'); readln(st); for i:=1 to length(st) do if copy(st,i,2)='ку' then begin delete(st,i,2); insert('за',st,i); end; write(st); end. Д/з Решить задачи и составить к ним программы: В строке заменить все двоеточие(:)точкой с запятой (;). Подсчитать количество замен. Подсчитать количество букв «О» и «о» в строке.
problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
countOfAnswers, counter: integer;
userAnswer: String;
begin
countOfAnswers := 0;
for counter:=0 to 9 do
begin
write('Введите ответ уравнения ', problems[counter], ' : ');
readln(userAnswer);
if userAnswer = answers[counter] then Inc(countOfAnswers);
end;
if countOfAnswers > 8 then writeln('Отлично')
else if countOfAnswers > 5 then writeln('Хорошо')
else writeln('Плохо');
end.
#include <conio.h>
#include <time.h>
using namespace std;
void main()
{
srand(time(NULL));
setlocale(0, "");
int arr[17];
int a, b, chet=0, nechet = 0;
cout << "Введите диапазон ." << endl << "Нижняя граница диапазона: "; cin >> a; cout << "Верхняя граница диапазона: "; cin >> b; cout << endl;
for (int i = 0; i < 17; ++i)
{
arr[i] = a + rand() % (b-a+1);
cout <<" "<<arr[i];
}
for (int i = 0; i < 17; ++i)
{
if (arr[i] % 2 == 0) chet++;
else nechet++;
} if (chet > nechet)
cout << " \n Четных больше";
else if (nechet>chet)
cout << "\n Нечетных больше";
else cout << "\n Одинаковое количество четных и нечетных";
_getch();
}