Я готуюсь до курсу інформатики. Алгоритмізація та програмування

УРОК 14. Програми з вказівкою розгалуження

Мета уроку: навчити складати алгоритми з використанням команди розгалуження та записувати їх мовою програмування.

Практична робота

На початку уроку бажано зробити експрес-опитування за матеріалом попереднього уроку (поняття умови, умови прості та складені, поняття команди розгалуження, її форми, запис мовою програмування та мовою блок-схем). Далі пропонується розглянути типові задачі з використанням команди розгалуження.

ЗАДАЧА № 97

Умова: Дано значення дійсних величин а, b, с. Знайти:

min((a + b + с) /2, 1/(а2 +l)+l/(b2 +l)+l/(c2 +1)

Використані у програмі змінні, на наш погляд, є очевидними. Тому наводимо програму без пояснень.

Program Example_97_2;

Uses crt;

Var а,Ь,с : real;

Rezl,Rez2,Min : real; {а,Ь,с - вхідні дамі; Rezl, Rez2 -проміжні обчислення; Міn - результат виконання програми}

Begin

Clrscr; {Очищення екрану}

Write(“Введіть числа а,b,с: ‘);

Readln(a,b,c);

Rezl:=(a + b + с) / 2;

Rez2:=sqrt(1/ (sqr (a) +1) + 1/ (sqr (b) +1) +1/ (sqr (c) +1)) ;

If Rezl<Rez2 Then Min:=Rezl

Else Min:=Rez2;

Writeln(‘Min=’,Min:8:2);

Readkey; {Затримка зображення на екрані}

End.

ЗАДАЧА № 100

Умова: Дано значення дійсної величини х. Визначити:

х-5___

хг+х-2

На перший погляд діти можуть не зрозуміти, навіщо у цій задачі команда розгалуження. Треба їм нагадати відоме правило: ділити на нуль не можна. І тоді розв’язок стає очевидним.

Program Example_100_2;

Uses crt;

Var X,Rezultat:real;

Begin

Clrscr; {Очищення екрану}

Write(‘Введіть значення X: ‘);

Readln(X);

If X*X*X+X-2<>0 Then

begin

Rezultat:=(X-5)/(X*X*X+X-2);

Writeln(‘Rezultat=’,Rezultat:8:2);

end

Else

Writeln(‘Обчислення неможливі - ділення на нуль!’);

Readkey;

End.

ЗАДАЧА №101

Умова: При даному значенні х обчислити: