uses crt;
const raz=[' ','.',',','?','!'];{/разделители слов, можно добавить}
var s,sl:string;
i,k:byte;
begin
clrscr;
writeln('Строка:');
readln(s);
writeln('Слово:');
readln(sl);
k:=0;
for i:=1 to length(s) do{идем по строке}
if(s[i]=sl[1])and((s[i-1] in raz)or(i=1)){если символ равен первому символу слова
а перед ним разделитель или начало строки}
and((s[i+length(sl)] in raz)or(i+length(sl)=length(s))){и после слова разделитетль или конец строки}
and(copy(s,i,length(sl))=sl){и все буквы на интервале равны слову}
then k:=k+1;{считаем}
write('Слово ',sl,' встречается ',k,' рз.');
readln
end.
Объяснение:
на каком языке? (В ответе паскаль)
uses crt;
const raz=[' ','.',',','?','!'];{/разделители слов, можно добавить}
var s,sl:string;
i,k:byte;
begin
clrscr;
writeln('Строка:');
readln(s);
writeln('Слово:');
readln(sl);
k:=0;
for i:=1 to length(s) do{идем по строке}
if(s[i]=sl[1])and((s[i-1] in raz)or(i=1)){если символ равен первому символу слова
а перед ним разделитель или начало строки}
and((s[i+length(sl)] in raz)or(i+length(sl)=length(s))){и после слова разделитетль или конец строки}
and(copy(s,i,length(sl))=sl){и все буквы на интервале равны слову}
then k:=k+1;{считаем}
write('Слово ',sl,' встречается ',k,' рз.');
readln
end.
Объяснение:
на каком языке? (В ответе паскаль)
Ваша программа:
mas = [3,5,67,-65,34,21] # задаем список
print(mas)
point=3 # задаем искомое значение
l = len(mas) # вычисляем длину списка (количество элементов)
for i in range( l ):
if mas [i]==point:
print("Содержит")
break
else:
print ("Не содержит")
Можно ещё так записать:
mas = [3,5,67,-65,34,21] # задаем список
print(mas)
point=3 # задаем искомое значение
for i in mas: #смотрим каждый элемент в массиве
if i == point:
print("Содержит")
break
else:
print ("Не содержит")
Можно написать так, что более понятно:
mas = [3,5,67,-65,34,21] # задаем список
print(mas)
point=3 # задаем искомое значение
if point in mas:
print("Содержит")
else:
print ("Не содержит")