Procedure GetWord(s:string; var p:integer; var w:string; delim:string:=' '); { Получает в w слово из строки s, которое начинается не ранее позиции p. Возвращает новое значение p, указывающее на первый разделитель delim, который следует за найденным словом или 0, если такой разделитель не найден. По умолчанию слова разделяются не менее чем одним пробелом } var i,n:integer; fBreak:boolean; { флажок для прерывания циклов } begin n:=Length(s); fBreak:=False; {ищем первый символ, отличный от разделителя - начало слова } while ((p<=n) and (not fBreak)) do if (p=n) or (s[p]<>delim) then fBreak:=True else Inc(p); { ищем очередной разделитель - конец слова } if p<n then begin i:=p; Inc(p); fBreak:=False; while (p<=n) and (not fBreak) do begin if (p=n) or (s[p]=' ') then fBreak:=True else Inc(p) end; { теперь слово находится между позициями i и p } w:=Copy(s,i,p-i) end; if p>=n then p:=0 end;
function CountG(w:string):integer; { возвращает количество гласных в слове w} var i,k:integer; begin k:=0; for i:=1 to length(w) do if w[i] in ['а','е','ё','и','о','у','ы','э','ю','я'] then Inc(k); CountG:=k end;
var s,w,wmax:string; p,k,gmax:integer; begin Writeln('Введите текст, разделяя слова пробелами'); Readln(s); s:=LowerCase(s); p:=1; gmax:=0; while p>0 do begin GetWord(s,p,w); k:=CountG(w);; if gmax<k then begin gmax:=k; wmax:=w end end; if gmax>0 then Writeln('В слове "',wmax,'" максимум гласных, равный ',gmax) else Writeln('Во введенной строке гласных букв не найдено') end.
1. метод проектів. вимоги до використання методу проектівметод проектів не є принципово новим у світовій педагогіці. він застосовувався як у вітчизняній дидактиці, так і в закордонній. виник у 20-ті роки минулого століття у сша. цей метод пов'язують з ідеями гуманістичного напряму в філософії й освіті, висунутими американським філософом і педагогом дж. дьюї, а також його учнем в. х. килпатріком. останнім часом цьому методу приділяється пильна увага в багатьох країнах світу. метод проектів набув поширення і популярності завдяки раціональному поєднанню теоретичних знань і можливостей їх практичного застосування для розв'язування конкретних проблем дійсності в спільній діяльності студентів. "все, що я пізнаю, я знаю, навіщо це мені потрібно, де і як я можу ці знання застосовувати" - основна теза сучасного розуміння методу проектів. метод проектів припускає можливість вирішення деякої проблеми. у ньому передбачається, з одного боку, необхідність використання різноманітних методів, засобів навчання, а з іншого - інтегрування знань, умінь з різних галузей науки і мистецтва. методом завбачено певну сукупність навчально-пізнавальних прийомів, що дозволяють вирішити ту чи іншу проблему шляхом самостійних дій студентів з обов'язковою презентацією чи представленням отриманих результатів, що сприяє використанню дослідницьких, пошукових, проблемних методів, творчих за своєю суттю. метод проектів - це метод в основі якого лежить розвиток пізнавальних, творчих навичок студентів, умінь самостійно конструювати свої знання, орієнтуватися в інформаційному просторі, критично мислити. мета використання методу полягає у формуванні навичок ефективного використання інформаційно-комунікаційних технологій при навчанні учнів (студентів) різного віку за інноваційних педагогічних технологій, якими передбачається самостійна (індивідуальна чи групова) дослідницько-пошукова діяльність учнів (студентів). серед основних вимог до використання даного методу доцільно виділити наступні: - наявність значущої в дослідницькому або творчому плані проблеми чи і, для розв'язування якої потрібні інтегровані знання та дослідницький пошук; - практична, теоретична, пізнавальна значущість передбачуваних результатів; - самостійна (індивідуальна, парна, групова) діяльність студентів; - визначення кінцевої мети проектів (спільних чи індивідуальних); - визначення базових знань з різних галузей, необхідних для роботи над проектом; - використання дослідницьких методів: визначення проблеми, дослідницьких , які випливають з проблеми, висунення гіпотез щодо їх розв'язування, обговорення методів дослідження, оформлення кінцевих результатів, аналіз отримання даних, підведення підсумків, корегування, висновки (використання в ході спільного дослідження методів мозкової атаки і "круглого столу", статистичних методів, творчих звітів, перегляду); - результати виконаних проектів мають бути певним чином оформлені (відеофільм, комп'ютерна газета, анімаційний мультфільм, веб-сторінка). это то?
{
Получает в w слово из строки s, которое начинается не ранее позиции p.
Возвращает новое значение p, указывающее на первый разделитель delim,
который следует за найденным словом или 0, если такой разделитель не найден.
По умолчанию слова разделяются не менее чем одним пробелом
}
var
i,n:integer;
fBreak:boolean; { флажок для прерывания циклов }
begin
n:=Length(s); fBreak:=False;
{ищем первый символ, отличный от разделителя - начало слова }
while ((p<=n) and (not fBreak)) do
if (p=n) or (s[p]<>delim) then fBreak:=True
else Inc(p);
{ ищем очередной разделитель - конец слова }
if p<n then begin
i:=p; Inc(p); fBreak:=False;
while (p<=n) and (not fBreak) do begin
if (p=n) or (s[p]=' ') then fBreak:=True else Inc(p)
end;
{ теперь слово находится между позициями i и p }
w:=Copy(s,i,p-i)
end;
if p>=n then p:=0
end;
function CountG(w:string):integer;
{ возвращает количество гласных в слове w}
var
i,k:integer;
begin
k:=0;
for i:=1 to length(w) do
if w[i] in ['а','е','ё','и','о','у','ы','э','ю','я'] then Inc(k);
CountG:=k
end;
var
s,w,wmax:string;
p,k,gmax:integer;
begin
Writeln('Введите текст, разделяя слова пробелами');
Readln(s);
s:=LowerCase(s);
p:=1; gmax:=0;
while p>0 do begin
GetWord(s,p,w);
k:=CountG(w);;
if gmax<k then begin gmax:=k; wmax:=w end
end;
if gmax>0 then Writeln('В слове "',wmax,'" максимум гласных, равный ',gmax)
else Writeln('Во введенной строке гласных букв не найдено')
end.