Особливий випадок розгалуження: case of

Особливим випадком розгалуження є оператор вибору case. Оператор case використовують у тому випадку, коли необхідно зробити вибір більш ніж із 2-х варіантів. Загальна структура оператора:

сase <вираз-селектор> of

<значення 1>:<оператор 1>;

<значення 2>:<оператор 2>;

……………………………………………

<значення m>:<оператор m>

еlse <оператор>  {Може бути відсутній}

еnd;

Приклади програм з розгалуженням

Повне розгалуження

If <умова> then <команда 1>

          else <команда 2>

Задача 1. Вивести на екран більше з двох чисел.

Реалізація на Pascal (з коментарями):

program example1;

var x, y: real; {задаємо дві змінних, які будуть присутні в програмі, вони будуть дійсного типу}

begin    {початок}

   write('х='); {на екран виводиться повідомлення "x="}

   read(x); {зчитується значення змінної х, яке задав користувач}

   write ('y='); {на екран виводиться повідомлення "y="}

   read (y); {зчитується значення змінної y}

   if x>y  {перевіряється твердження: "x>y"}

     then write(x) {якщо це твердження істинне, то на екран виводиться значення змінної х}

    else write(y) {інакше, якщо твердження хибне, виводиться значення змінної у}

end.  {кінець програми}

Юним програмістам про Pascal

Існує багато середовищ програмування, у яких використовується мова програмування Pascal. До них належать: Turbo Pascal, Free Pascal, ABC Pascal та ін. У кожному з цих середовищ є свої особливості, пов'язані з типами даних, компіляцією, інтерпретацією та самим інтерфейсом. Проте є ряд правил, які є спільними для усіх цих середовищ. Вивчити їх потрібно обов'язково, інакше Ви жодним чином не уникнете помилок у своїй роботі. І як би Ви не намагалися зрозуміти все самотужки, проте Урок 1 прочитати таки доведеться.

Приклади лінійних програм

Задача 1
Обчислити суму цифр цілого двоцифрового числа n.
Реалізація на Pascal з коментарями:
program sumofdigits;
var n, a, b, sum: integer; {оголошуємо змінні, всі вони будуть цілого типу}
begin
 writeln ('введіть ціле двоцифрове число n'); {виводимо користувачу повідомлення про те, які дані потрібно ввести}
 read (n); {зчитується число, яке ввів користувач}
 n:= abs(n); {визначається модуль числа}
 a:= n div 10; {знаходимо неповну частку від ділення з остачею на 10}
 b:= n mod 10; {знаходимо остачу від ділення на 10}
 sum:= a+b; {знаходимо суму результатів від попередніх операцій}
 write ('Сума цифр дорівнює ', Sum) {результат виводиться на екран}
end.

5G

Україною 3G-інтернет почав поширюватися лише 2015 року. Хоча у світі він відомий вже давно. За даними Wireless Intelligence, на кінець 2006 року у світі нараховувалось 364 млн абонентів 3G... І у той момент, коли ми тільки стали на широкий 3G-шлях, у Британії з'явився 5G-інтернет.

Компанія Microsft збирається перетворити гру Minecraft на посібник з програмування?

Як виявилося, ще минулого року компанія Microsoft придбала права на одну з найпопулярніших ігор - Minecraft. Microsoft, Mojan та Code.org об'єднали свої зусилля для створення посібника з програмування під назвою Minecraft. Офіційна інформація щодо строків реалізації цього проекту відсутня. Проте експерти вважають, що він стане доступним для користувачів не раніше, ніж за п'ять років, коли гра Minecraft вже навряд матиме таку популярність як зараз...  

Нові шаблони презентацій Power Point

Дорогі друзі! Сьогодні Вам часто доводиться використовувати редактор презентацій Power Point у навчанні. Можливостей і причин для цього надзвичайно багато. Але стандартні шаблони могли за цей час Вам уже і набриднути, тому багато хто створює свої власні фони слайдів і намагається екпериментувати зі шрифтами. Сьогодні я пропоную Вам гіперпосилання, використовуючи яке, Ви зможете скачати найновіші та найсучасніші шаблони презентацій та схем. Реєстрацію на сайті можна здійснити через соціальну мережу, натиснувши всього одну кнопку: Безкоштовні шаблони презентацій PowerPoint

Де і як скачати ABCPascal.Net?

На Ваші численні прохання розміщую посилання на ресурс, який дасть Вам змогу скачати середовище програмування ABCPascal.net: http://pascalabc.net/ssyilki-dlya-skachivaniya

Де знайти домашні завдання?

Над дизайном було вирішено особливо не заморочуватись. Головне, щоб ми перебували на зв'язку увесь час та мали змогу ділитись усіма найсвіжішими новинами. Домашні завдання та анонси уроків будуть розміщуватись на сторінках "5 клас", "6 клас" або "7 клас" відповідно. Вдосконалення обіцяю в майбутньому :)

Вітаю, дорогий друже!

Кожен із нас прагне до постійного самовдосконалення, бажає бути в центрі подій, встигнути всюди і завжди. У кожного з нас є своя мрія. Хтось бажає стати видатним поетом, хтось мріє створити свій власний бізнес. І, напевно, жоден не відмовиться стати видатним діячем, відомим в усьому світі! Будь-яка нова інформаційна технологія, яку Ви опануєте - це сходинка до успіху. Дозвольте Світу дізнатися про Вас!