14138

Запис алгоритмів з використанням вказівки розгалуження мовою програмування

Конспект урока

Информатика, кибернетика и программирование

Тема уроку: Запис алгоритмів з використанням вказівки розгалуження мовою програмування. Мета уроку: Навчити складати алгоритми з використанням команди розгалуження та записувати їх мовою програмування.Тип уроку: Розбір задач що потребують для свого розв'язання вказ

Украинкский

2013-05-21

63.5 KB

0 чел.

Тема уроку: "Запис алгоритмів з використанням вказівки розгалуження мовою програмування."

Мета уроку: Навчити складати алгоритми з використанням команди розгалуження та записувати їх мовою програмування.
Тип уроку: Розбір задач, що потребують для свого розв'язання вказівку розгалуження.

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

Задача №96 (1).
Умова: Дано значення цілих величин x та y . Знайти:

Program Example_96_1;

Uses crt;

Var x,y,Max,Min,Rezultat:integer;   

Begin 

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

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

 Readln(x,y);

 If x{Знаходження максимуму та мінімуму} 

 Then  

   Begin 

      Max:=y;

      Min:=x;

   end 

 Else 

   Begin 

      Max:=x;

      Min:=y;

   End;

 Rezultat:=sqr(Max)-sqr(Min);

 Writeln(‘Резудьтат обчислень:  ’,Rezultat:8:2);

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

                натискання будь якої клавіші} 

End.

Задача №97(2).
Умова: Дано значення дійсних величин a, b, c. Знайти:

Program Example_97_2;

Uses crt;

Var a,b,c : real;  

   Rez1,Rez2,Min : real; {Rez1, Rez2 – проміжні  

            обчислення; Min – результат виконання програми} 

 Begin 

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

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

 Readln(a,b,c);

 Rez1:=(a + b + c) / 2;

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

 If Rez1Then Min:=Rez1

 Else Min:=Rez2;

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

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

                 натискання будь якої клавіші} 

End.

Задача №100(2).
Умова: Дано значення дійсної величини Х. Визначити:

Для розв'язання цієї задачі необхідно пам'ятати, що ділити на нуль не можна.

Program Example_100_2;

Uses crt;

Var X,Rezultat:real;

Begin 

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

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

 Readln(Х);

 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(4).
Умова: При даному значенні Х обчислити:

Для розв'язання цієї задачі необхідно пам'ятати, що не можна знайти квадратний корінь з від'ємного числа.

Program Example_101_4;

Uses crt;

Var X,Rezultat:real;

Begin 

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

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

 Readln(Х);

 If (X>=1) and (X*X*X-sqrt(X-1)>=0)

 Then 

   begin  

     Rezultat:=sqrt(X*X*X-sqrt(X-1));

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

   end 

 Else 

   Writeln(‘Обчислення неможливівідємний  

            підкореневий вираз!’);

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

               натискання будь якої клавіші} 

End.

Задача №102(3).
Умова: Дано дійсні значення x та y. Обчислити:

Для розв'язання цієї задачі необхідно виконання умов обох попередній прикладів.

Program Example_102_3;

Uses crt;

Var X,Y,Rezultat:real;

Begin 

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

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

 Readln(Х);

 If (sqr(X)-sqr(Y)<>0) and (X*X*X-Y+0.5>=0)

 Then 

   begin  

     Rezultat:=sqrt(X*X*X-Y+0.5)/(sqr(X)-sqr(Y));

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

   end 

 Else 

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

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

            натискання будь якої клавіші} 

End.

Задача №107.
За рейтинговою системою оцінка визначається таким чином, якщо сумарний бал учня становить не менше 92% від максимального, то виставляється оцінка 12, якщо не нижче 70%, то виставляється 8, якщо ж не нижче 50%, то оцінка 5, в інших випадках - оцінка 2. Визначте оцінку учня, якщо він набрав
N балів, а максимальне значення сумарного балу становить S.
В цій задачі можна використати повну або скорочену форму команди розгалуження. Вам пропонується розв'язок зі скороченою формою.

Program Example_107;

Uses crt;

Var N,S,Grade:integer; {N – бали, що набрав учень; S  

                       – максимальне значення  

                       сумарного балу; Grade –

                       оцінка учня} 

Begin 

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

 Write(‘Введіть максимальне значення сумарного балу,  

       що може набрати учень: ’);

 Readln(S);

 Write(‘Введіть кількість балів, що отримав учень: ‘);  

 Readln(N);

 If (S<=0) or (N<=0) or (N>S)

 Then writeln(‘Помилка вхідних даних.’)   

 Else 

   Begin 

     N:=round(N/S*100); {Знаходження процентного  

                         відношення балів учня до  

                         максимально можливого} 

     If N>=92 then Grade:=12;

     If (N<92) and (N>=70) then Grade:=8;

     If (N<70) and (N>=50) then Grade:=5;

     If (N<50) then Grade:=2;

     Writeln(‘Учень отримав оцінку - ’, Grade);

   End;

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

                  натискання будь якої клавіші} 

End.

Задача №103.
Умова: На площині дано дві точки (x1, y1) та (x2, y2). Визначити, яка з них знаходиться далі від початку координат.
Для розв'язання цієї задачі необхідно скористатися теоремою Піфагора для знаходження відстані від початку координат до заданої точки (дивись малюнок):

Очевидно, що відстань від початку координат до точки з координатами (x, y) буде обчислюватись наступним співвідношенням: .
Зверніть увагу на те, що в зв'язку з тим, що кожна з координат в формулі підноситься до квадрату, неважливо, в якій чверті координатної площини буде знаходитись точка.
Виходячи з усього вище сказаного, програма для розв'язання даної задачі має наступний вигляд:

Program Example_103;

Uses crt;

Var X1,Y1,X2,Y2:real; {X1,Y2,X2,Y2 – координати даних  

                      точок} 

   S1,S2:real;     {S1,S2 – відстані відповідно до  

                   першої та другої точки} 

 

Begin 

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

 Write(‘Введіть координати першої точки: ’);

 Readln(Х1,Y1);

 Write(‘Введіть координати другої точки: ’);

 Readln(Х2,Y2);

 S1:=sqrt(sqr(X1)+sqr(Y1));

 S2:=sqrt(sqr(X2)+sqr(Y2));

 If S1Then Writeln(‘Друга точка далі від початку координат’)

 Else Writeln(‘Перша точка далі від початку координат’);

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

                  натискання будь якої клавіші} 

End.

Задача №112.
Умова: Дано значення дійсних величин a, b, c. Подвоїти ці значення, якщо a >= b >= c, і замінити їх абсолютними значеннями, якщо це не так.
В цій задачі зверніть увагу на дуже поширену помилку: в програмі не можна писати подвійну нерівність, як це робиться в математиці. Тобто, вираз
a >= b >= c в програмі записується як складена умова (a >= b) and (b >= c).

Program Example_112;

Uses crt;

Var a,b,c:real;  

Begin 

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

 Write(‘Введіть три числа: ’);

 Readln(a,b,c);

 If (a>=b) and (b>=c)

 Then  

   Begin 

     A:=A*2;

     B:=B*2;

     C:=C*2;

   End 

 Else 

   Begin 

     A:=abs(A);

     B:=abs(B);

     C:=abs(C);

   End;

 Writeln(‘Вихідні значення:’);

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

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

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

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

               натискання будь якої клавіші} 

End.

Домашнє завдання:

  •  прочитати сторінки 59 - 65 запропонованого підручника;

задачі №96(2), 97(3), 99, 100(4), 101(5), 102


 

А также другие работы, которые могут Вас заинтересовать

64368. АДМІНІСТРАТИВНА ВІДПОВІДАЛЬНІСТЬ ЗА СЛУЖБОВІ ПРАВОПОРУШЕННЯ У СФЕРІ ЗЕМЕЛЬНИХ ВІДНОСИН 182 KB
  Україна у межах адміністративної реформи здійснює реформування державної служби, як її органічної складової, що є цілісною системою становлення адміністративно-правового статусу посадових осіб...
64369. ПОЛІПШЕННЯ ПАЛИВНОЇ ЕКОНОМІЧНОСТІ БЕНЗИНОВОГО ДВИГУНА З СИСТЕМОЮ НЕЙТРАЛІЗАЦІЇ ВІДПРАЦЬОВАНИХ ГАЗІВ 2.71 MB
  Для ефективного зниження викидів шкідливих речовин ШР з ВГ бензинових двигунів широко використовують засоби зовнішньої очистки каталітичні нейтралізатори які дають можливість звести до нуля викиди ШР в окремих режимах роботи двигуна.
64370. ТЕРМОКІНЕТИЧНА ОЦІНКА І ПРОГНОЗ ВПЛИВУ ДОБАВОК НА ТВЕРДІННЯ ТА ВЛАСТИВОСТІ ЦЕМЕНТУ І БЕТОНУ 398.5 KB
  За рахунок освоєння високоефективних хімічних мінеральних і комплексних добавок забезпечуються недосяжні раніше властивості бетонних сумішей і бетонів віднесених у світовій практиці до бетонів нового покоління.
64371. ІНФОРМАЦІЙНА ТЕХНОЛОГІЯ ОБРОБКИ ЦИФРОВАНИХ ЗОБРАЖЕНЬ ЗА ВИКОРИСТАННЯМ В-СПЛАЙНІВ П’ЯТОГО ПОРЯДКУ 698.11 KB
  Розвиток інформаційних технологій ІТ в Україні та світі демонструє сталу тенденцію до потреби обробки даних у обсягах що збільшуються. Існує декілька факторів що стримують розвиток математичних методів обробки даних.
64372. НАУКОВЕ ОБҐРУНТУВАННЯ ВІДТВОРЕННЯ РОДЮЧОСТІ ҐРУНТІВ ТА ПІДВИЩЕННЯ ПРОДУКТИВНОСТІ ЗЕРНО-БУРЯКОВИХ СІВОЗМІН ЛІСОСТЕПУ УКРАЇНИ 763 KB
  Умовою інтенсивного ведення галузі землеробства є розширене відтворення родючості ґрунту за допомогою науково-обґрунтованих систем землеробства, які враховують ґрунтово-кліматичні умови, ландшафтні особливості і екологічну безпеку довкілля.
64373. ПРОГНОЗУВАННЯ, ДІАГНОСТИКА І ПРОФІЛАКТИКА УСКЛАДНЕНЬ ІНФЕКЦІЙНО-ЗАПАЛЬНОГО ГЕНЕЗУ У ОБПЕЧЕНИХ В ГОСТРІЙ СТАДІЇ ОПІКОВОЇ ХВОРОБИ 219 KB
  Результати лікування пацієнтів з поширеними та критичними опіками за площею ураження шкіри на сьогодні не можуть бути визнані задовільними. Незважаючи на певний прогрес в лікуванні такого контингенту травмованих завдяки обґрунтуванню та широкому застосуванню в останні роки раннього...
64374. РОЗРОБКА ТЕХНОЛОГІЇ ВЛАШТУВАННЯ БУРОНАБИВНИХ ПАЛЬ З ГІДРОФОБІЗОВАНИМ ПРОШАРКОМ У ПРОСАДОЧНИХ ҐРУНТАХ ІІ ТИПУ 915 KB
  Відомо що при влаштуванні буронабивних паль в просадочних ґрунтах ІІ типу для зниження негативного тертя що діє у просадочному шарі та підвищення несучої здатності рекомендується застосовувати антифрикційні покриття поліетиленові плівки пластик бітумні матеріали.
64375. Сучасні тенденції розвитку професійної технічної освіти у Польщі 158 KB
  Соціально-економічні перетворення, що відбулися в Україні впродовж останнього десятиліття, призвели до суттєвої реструктуризації багатьох галузей, зникнення одних напрямів і виникнення інших.
64376. ПАТОГЕНЕЗ НАБРЯКУ-НАБУХАННЯ ГОЛОВНОГО МОЗКУ ТА ОБҐРУНТУВАННЯ ОПТИМАЛЬНОЇ ФАРМАКОТЕРАПІЇ ПРИ ТЯЖКІЙ ЧЕРЕПНО-МОЗКОВІЙ ТРАВМІ 511.5 KB
  У зазначений термін до патологічного процесу залучаються всі системи життєзабезпечення організму розвивається набрякнабухання мозку вторинне ушкодження центральної нервової системи ЦНС причинами якого є ішемія гіпоксія і токсемія...