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). Відповісти чи одного знака введені числа.

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

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