Program zadacha2_3;

var а,v,s:real; {опис змінних}

Begin

writeln('Введите сторону куба'); {введення даних}

Read(a);

v:=a*a*a; (обрахувати об'єм)

s:=6*a*a; {обрахувати площу поверхні}

{висновок результатів}

writeln('Об'єм = ',v:8:3,' Площа поверхні = ',s:8:3);

End.

В записаній вище програмі використані пояснюючі коментарі. Коментарі - це будь-який текст, обрамлений фігурними дужками { і } або символами (* і *).

Питання для повторення:

1. Яка команда служить для введення даних? Для висновку даних?

2. Чим відрізняється висновок інформації на екран комп'ютера оператором write( ) від висновку оператором writeln( )?

3. Як вивести на екран текст?

4. Чи можна вивести на екран декількох змінних або текстів одним оператором writeln()?

5. Що означає число 7 в команді writeln(pi:7:5)? А що означає число 5?

6. Скільки знаків після коми буде виведено при записі команди:

а) writeln(pi:7:5); b) writeln(pi:5:7)?

7. Які символи використовуються для розміщення коментарів в програмі?

Завдання для самостійної роботи:

1. Є два числа.

a) Обчисліть суму і різницю цих чисел, використовуючи двох операторів readln.

b) Перепишіть програму так, щоб використовувався один оператор readln.

c) Додайте коментарі до програми.

2. Є три числа. Обчисліть їх твір.

3. По заданих сторонах прямокутника а і b обчислите його периметр і площа.

4. Людині сьогодні виповнилося R літ. Скільки йому днів? Годинника? Хвилин? Секунд? (Високосні роки не враховувати)

5. Після початку деякого експерименту пройшло t годинника m хвилин і до секунд. Скільки всього секунд триває експеримент?

6. Задана відстань між містами у верстах. Переведіть цю відстань в кілометри (точність: три знаки після коми) використовуючи дані:

1 верста=500 сажням; 1 сажень=3 аршина; 1 аршин=0.7112 метра

Вивчаємо “Розгалуження в Pascal”

Тема уроку:

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

Структура умовного оператора.

Мета заняття:

1. Сформувати поняття про умовного оператора;

2. Навчитися використовувати повний і неповний умовний оператор;

3. Отримати навики запису простих умов.

Якщо залежно від первинної умови задачі, повинні виконуватися різні вирази, то ми використовуватимемо умовний оператор.Умовний оператор може бути записаний в повній і неповній формі.

повна форма умовного оператора

if <умова> then <оператор 1> else <оператор 2>

неповна форма умовного оператора

if <умова> then <оператор>

if then else –зарезервовані слова (якщо, то, інакше)

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

Дано два числа. Знайти більше з них.

program zadacha3_1;

var max,x,y:real;

Begin

writeln('Введіть число x '); readln(x);

writeln(' Введіть число у '); readln(y);

if x>y then max:=x else max:=y;

writeln('більше з двох = ',max);

End.

Дано три числа. Знайти максимальне.

program zadacha3_2;

var max,x,y,z:real;

Begin

riteln(' Введіть три числа ');

readln(x,y,z);

if x>y then max:=x else max:=y;

if z>max then max:=z;

writeln('більше з трьох =',max);

End.

Задано число а. Чи кратне воно 3.

program zadacha3_3;

var а:longint;

Begin

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

readln(а);

if а mod 3 =0 then writeln(а,' кратне 3’)

else writeln(а,' не кратне 3’);

End.

Замість умови а mod 3 = 0напишіть умова int(a/3) = a/3. Придумайте свої умови і перевірте їх правильність.

Дано число. Дати характеристику числа:

ü позитивне, негативне;

ü парне, непарне;

ü ціле, не ціле.

program zadacha3_4;

var а:real;

к,m,p:string;

Begin

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

readln(a);

if a<0 then до:='негативне' else до:='позитивне';

if a=int(a) then m:='ціле' else m:='не ціле';

if a/2=int(a/2) then p:='парне' else p:='непарне';

writeln('число ',a,' ; ',k,' ; ',m,' ; ',p);

End.

Дано три числа x, у, z. Обчислити суму тільки позитивних чисел з трьох даних.

program zadacha3_5;

var x,y,z,sum:real;

Begin

writeln('Введіть три числа');

readln(x,y,z);

sum:=0;

if x>0 then sum:=sum+x;

if y>0 then sum:=sum+y;

if z>0 then sum:=sum+z;

writeln('сумма позитивних чисел = ',sum);

End.

Питання для повторення:

1. Які форми запису оператора if вам відомі?

2. Поясніть виконання оператора if.

3. Для чого в задачі 3 5 змінну sum спочатку була обнулено?

Завдання для самостійної роботи:

1. Задане x. Обчислити у

a) б)

2. Дано два числа. Знайти менше з них.

3. Дано три числа. Знайти мінімальне число.

4. Задано натуральне число а. Чи є воно парним? Вирішіть задачу

а) використовуючи операцію mod;

b) використовуючи функцію int.

5. Задано натуральне число а. Чи є воно кратним 7?

6. Задано натуральне число а. Чи закінчується воно на 0?

7. Дано тризначне число. Чи кратна сума його цифр шести?

8. Дано ціле число a>9. Чи більше цифра десятків цифри одиниць?

9. Дано двозначне число. Чи є сума його цифр

а) однозначним числом;

b) двозначним числом.

10. Задано двухзначное число. Дайте характеристику числа по наступному плану:

- сума цифр числа;

- число парне (непарне);

- число більше (менше) п'ятдесяти;

- перша цифра рівна (нерівна) другій цифрі.

11. Дано два дійсні числа. Зменшити перше число в п'ять разів, якщо воно більше другого за абсолютною величиною.

12. Задано три числа x, у, z. Обчислити твір тільки негативних чисел з трьох даних.

13. Задано чотири цілі числа x, у, z, w. Обчислити суму тільки парних чисел з чотирьох заданих.

14. Дано три числа x, у, z. Обчислити кількість чисел великих 7.

Вивчаємо “Розгалуження в Pascal”

Тема уроку:

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

Прості і складові умови.

Мета заняття:

1. Закріпити навики використовування умовного оператора;

2. Сформувати поняття про складову умову;

3. Отримати навики запису складових умов.

Умови, які ми дотепер використовували, є простими. Якщо після службового слова ifперевіряється тільки одна умова (а mod 3=0; a>b; k=1), то таку умову називатимемо простою умовою.

Якщо після службового слова ifвиникає необхідність перевірити відразу декілька умов, то групу таких простих умов називатимемо складовою умовою. При написанні складових умов, кожна з простих умов, що входять в складове, береться в дужки. Можна використовувати союзи and(і) або or(або).

Розглянемо наступний приклад:

Дано два числа а,b (а,b?0). Відповісти чи одного знака введені числа.

Розберемо дану задачу.

Тут можливі чотири варіанти вхідних даних, для кожного з яких запишемо окрему складову умову: