Тема 3. Умовний оператор

Умовний оператор

If <вираз логічного типу> then <оператор> [else <оператор>];

Вираз в квадратних дужках [else <оператор>] може бути відсутнім, тоді говорять про скорочену форму умовного оператора. Читається розгалуження так:

 Якщо логічний вираз істинний, то виконується оператор1, інакше виконується оператор2.

Після then, else маємо право писати лише один оператор, якщо є потреба в більшій кількості, то в Pascal вводиться поняття складеного оператора. Це послідовність операторів, розділених (;), яка закріплена в операторну дужку : begin … end.

Обчислити у по формулі y := cos(x) ^2 , якщо х є (0,2),інакше обчислити у по формулі y := 1-sin(x ^2)    

program exam1;

var x,y: real;

begin  writeln('введіть значення x');read(x);

           if (x>0)and(x<2) then y := sqr(cos(x))            {обчислення за першою формулою}

                else y := 1-sin(sqr(x));     {обчислення за другою формулою}

           writeln('при x =', x, '  y = ', y)

end.

Обчислити z по формулі z := (x+5) ^9+ y^2, якщо х>0 і y>0.    

program exam2;

var x,y,z: real;

begin  read(x,y);

           if (x>0)and(y>0) then z := …   ;         {обчислення z}

           writeln(z)

end.

Гуржій, Карташова, Лапінський, Руденко  “Інформатика, 8 клас ”    ст. 260-268

Караванова “Інформатика. Основи алгоритмізації та програмування. 777 задач” ст.57-63

Д/з 1 : № 96(1,4), 99, 109, 113, 122 (Караванова “Інформатика.)

Д/з 2 : № 126(1,2,3), 127(1,3), 140(4,5) (Караванова “Інформатика.)

Тема 2. Вирази

Вирази

Розглянемо такі типи виразів:

1.      Дійсні

Ввести значення двох дійсних змінних. Обчислити їхню суму та різницю.

program  Examp1;

var a,b,s,r :real;

begin   writeln('введіть два дійсні числа'); read(a,b);

           s:= a + b;  r:= a - b; 

           writeln('результати s=', s, ' r=', r:5:2);     {на число r виділяється 5 позицій,

                                                                                                                    з них 2 - на дробову частину}

end.

Ввести значення довжини  кола L. Обчислити радіус цього кола і площу круга, обмеженого цим колом.

program  Examp2;

var L,s,r :real;

begin         

      writeln('введіть довжину кола');  read(l);

       r:=l/(2*pi);     {знаходження радіуса, використано стандартну функцію pi}

       s:=pi*sqr(r); {знаходження площі}

      writeln(‘коло довжини ‘, l ,’ має радіус ’, r ,’ та площу ’, s)

end.

2.      Цілочислові

Знайти суму цифр двоцифрового числа.

program  Examp1;

var c,c1,c2,s: integer;

begin          writeln(' введіть ціле двоцифрове число'); read(c);

      c1:= c div 10;                      {знаходження  першої цифри}

      c2:= c mod 10;                 {знаходження другої цифри}

      s:= c1 + c2;                         {обчислення суми цифр}

      writeln('сума цифр числа ', c, '  дорівнює  ',s);

end.

3.      Логічні

Логічній змінній t присвоїти значення true , якщо цілочислова величина k ділиться без остачі на 7 і false у протилежному випадку. Вивести значення t.

program  log1;

var k: integer; t: boolean;

begin

      writeln('введіть ціле число');  read(k);

      t:= k mod 7 = 0;  writeln('t=',t)

end.

Надрукувати true, якщо x належить проміжку (a,b) і false - у протилежному випадку.

program  log2;

var a,b,x: real;  t: boolean;

begin

    writeln('введіть проміжок (a,b)');  read(a,b);

    writeln('введіть дійсне число');  read(x);

    t:= (x>a) and (x<b);  writeln('t=',t)

end.

Гуржій, Карташова, Лапінський, Руденко  “Інформатика, 8 клас ”                                     ст. 240-254

Караванова “Інформатика. Основи алгоритмізації та програмування. 777 задач”     ст.37-42, 57-58

Д/з :

Дійсні вирази : № 50, 51, 54, 78 (а, б)    

(Караванова “Інформатика. Основи алгоритмізації та програмування. 777 задач”   ст. 54 )

Цілочислові вирази :

1.      Знайти суму крайніх цифр введеного трицифрового числа.

2.      Знайти останню цифру цілої частини та другу цифру дробової частини введеного дійсного числа.

Логічні вирази : № 82 

Тема 1. Програмування

Програмування

Зі сторінки      petriv.ho.com.ua/algo/         Ви можете скопіювати програмне середовище АЛГО, яке спеціально розроблене для вивчення основ програмування.

Підручники:

1.      Гуржій, Карташова, Лапінський, Руденко  “Інформатика, 8 клас ”

(виданий в бібліотеці ЛФМЛ 8-ому класу)

2.      Караванова “Інформатика. Основи алгоритмізації та програмування. 777 задач”

chashuk.edukit.volyn.ua/Files/downloads/Караванова_777.pdf

3.      Сайт :   http://pascal.org.ua

Основні поняття мови. Структура програми. Сталі та змінні величини

Гуржій, Карташова, Лапінський, Руденко  “Інформатика, 8 клас ”                                     ст. 227-236

Караванова “Інформатика. Основи алгоритмізації та програмування. 777 задач”     ст. 23-30, 42-45