помогите,плиз..срочно: Написать функцию,которая осуществляет поиск буквы в заданной строке.Функция возвращает истина если в строке есть хотябы одна эта
10-11 класс
|
буква и ложь в противном случае.
Program bukva;
var s:string; i,n:integer; c:char;
function Proverka(s:string):boolean;
begin
for i:=1 to length(s) do
if s[i]=c then n:=n+1;
if n>0 then Proverka:=true else Proverka:=false;
end;
begin
writeln('Daite stroku'); readln(s);
writeln('Kakaya bukva doljna biti?'); readln(c);
writeln(Proverka(s));
readln;
end.
var
a: char; //Символ, который надо найти
s: string; //Строка в которой надо искать
function Search(Symbol: char; Stroka: string): boolean;{Функция логического типа с входными параметрами - символом и строкой}
var i: integer; //Переменная для цикла
begin
Result:= false;{Вначале присваиваем функции значение false, чтобы если в строке не будет найден символ, она вернула значение false}
for i:= 1 to length(Stroka) do //Проверяем все символы строки
if Stroka[i] = Symbol then Result:= true; {Если символ строки равен символу, который ищут, то присваиваем функции значение true}
end;//Конец функции
begin
writeln('Введите строку, в которой нужно искать символ');
readln(s);
writeln('Введите символ, который нужно искать в строке');
readln(a);
writeln('Результат выполнения функции: ', Search(a, s)); {Выводим значение функции}
end.
Другие вопросы из категории
2: вычти 2! Например, алгоритм получения из числа 2 число 8:12122! Прошу напишите ответ
2.Дано слово ДЕРЕВО.Напишите действие,которое необходимо сделать со словом,чтобы получилось:ДЕЛРЕВО
переменные ? (Указатель количество различных наборов значений переменных K, L, M, N, удовлетворяющих уравнению.) 1) 4; 2) 10; 3) 8; 4) 12
Дана матрица А (4, 5)
2, 3, -5, -10, 7
4, -10, -3, 2, 4
5, -2, -7, 11, -13
18, 19, -2, -4, -7
Из нее образовать две матрицы: в одной оставить все отрицательные элементы матрицы А (на месте положительных элементов поставить ноль), в другой оставить все положительные элементы (на месте отрицательных поставить ноль).
НАПИСАТЬ ПРОГРАММУ в VBA excel
Читайте также
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))
использования. Пример: Введите число: 100 сумма = 5050
"5":
Составить функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат (на 1-ую – 1 зерно, на 2-ую – 2 зерна, на 3-ю – 4 зерна, …) Пример: Введите номер клетки: 28 На 28-ой клетке 134217728 зерен.
28 15 10
Наибольшее число: 28
2)Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее использования.
Пример:
Введите число:
100
Сумма = 500
Буду очень признателен за помощь.
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.