Проект – це скоординована робота людини або групи людей спрямована на досягнення поставленої мети за визначений час.
Що почати працювати над проектом потрібно пройтись по ряду етапів:
1. Визначити тему. До вашої уваги пропонується розгляд теми «Алгоритми навколо нас»
2. Визначимо мету проекту. Н-д: Працюючи у групах, знайти приклади алгоритмів у власному оточенні та створити комп’ютерні моделі окремих виконавців алгоритмів. Розглянемо приклад проекту для однієї з груп на тему «Перехрестя алгоритмів».
3. Нашим завданням буде:
• визначити види перехресть, які зустрічаються на дорогах, та об’єкти на перехрестях, які є виконавцями алгоритмів;
• описати алгоритми, які виконує кожен з виконавців;
• вибрати одного з виконавців та його алгоритм, розробити комп’ютерну модель реалізації вибраного алгоритму;
• оформити результати роботи у проекті.
Сценарій
Пошук опитування, пошук у літературі та Інтернеті): види перехресть, об’єкти дорожнього руху - виконавці алгоритмів
Опрацювання знайдених відомостей: визначити типи алгоритмів, порівняти, алгоритми якого типу найчастіше виконуються учасниками дорожнього руху на перехрестях, описати алгоритми кожного виконавця у словесній формі, скласти блок-схеми описаних алгоритмів.
Створення моделі: вибрати виконавця алгоритмів, вибрати алгоритм, вибрати засіб подання моделі, розробити модель, у якій буде реалізовано вибраний алгоритм.
Оформлення результатів: вибрати засоби подання результатів, розробити структуру звіту, сформулювати висновки, оформити звіт.
Практичне завдання:
Розпочніть пошук потрібної інформації в мережі відповідно до сценарію.
до ть его зделать
begin
repeat
write('Êàê ñ÷èòàåì ïëîùàäü? 1-Ïî Ãåðîíó, 2-÷åðåç ïîëîâèíó ïðîèçâåäåíèÿ îñíîâàíèÿ íà âûñîòó: ');
readln(ch);
if ch='1' then begin
write('a='); read(a); write('b='); read(b); write('c='); read(c);
p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Ïëîùàäü ðàâíà ',s); f:=true;
end
else if ch='2' then begin
write('a='); read(a); write('h='); read(h);
writeln('Ïëîùàäü ðàâíà ',0.5*h*a);
f:=true;
end
else begin cls; writeln('Îòâåò ôèãîâûé! Åùå ðàçîê: 1-Ïî Ãåðîíó, 2-÷åðåç ïîëîâèíó ïðîèçâåäåíèÿ îñíîâàíèÿ íà âûñîòó: '); end;
until f;
end.
Зацикливание в for
Вообще идея зацикливания проста : необходимо всего-то в каждом шаге цикла уменьшать оператор шага на 1 (i:=i-1;) . Однако именно такая реализация возможна не везде. Рассмотрим простой пример.
for i:=1 to 5 do begin
i:=i-1;
write(i);
end.
Казалось бы все просто,да не тут то было.В то время как в Turbo Pascal все проходит на ура,в PascalABC такое не возможно и для зацикливания необходимо использовать оператор goto.
label m;
var i:integer;
begin
m:
for i:=1 to 5 do begin
write(i);
if i=2 then goto m;
end;
end.
Зацикливание в while
Напомню,что в операторе while шаг цикла необходимо добавлять самостоятельно. Поэтому произвести зацикливание проще всего : нужно только убрать шаг цикла
var i:integer;
begin
i:=0;
while i<>1 do
write(i);
end.
Оба компилятора адекватно реагируют на пропуск шага.
Зацикливание в repeat
Для создание бесконечного цикла в этом случае, как и предыдущем, достаточно не указывать шаг цикла
var i:integer;
begin
i:=0;
repeat
write(i);
until i=1;
end.
тут вам приведены различные варианты для создание бесконечного цикла. Однако запомните,что зацикливание создает нагрузку и вообще редко используется. Гораздо чаще применяют неполное зацикливание при котором выход из цикла все же совершается.