Лінійні алгоритми мовою Pascal

Практична робота 1. 
Лінійні алгоритми мовою Pascal

Завдання 1(6 балів). Скласти і реалізувати алгоритм в програмному середовищі, який виконує взаємний обмін числовими значеннями двох цілих змінних; і виводить на екран  два початкових значення змінних і два кінцеві значення цих змінних. Використовувати в алгоритмі більше двох цілих змінних не можна.

Алгоритм  мовою Pascal

program SuperposiziaNumer;

{алгоритм обміну числовими значеннями двох змінних}

var       {оголошується опис змінних величин, які використовує алгоритм}

x,y: integer;            {оголошуються дві цілі змінні у даному  алгоритмі}

begin                     {оголошується початок алгоритмічних дій}

write('x=');       {на екрані запит на введення з клавіатури цілого числа: х}

readln(x);     {зчитування числового значення і внесення його в змінну  х}

write('y=');      { на екрані запит на введення з клавіатури цілого числа: у}

readln(y);     {зчитування числового значення і внесення його в змінну  у}

 write('початкове значення x='); writeln(x,'  ');  { перевірка початкового: х}

 write('початкове значення y='); write(y,'  ');     { перевірка початкового: у}

x:=x+y; y:=x-y; x:=x-y;                {взаємний обмін числами за допомогою арифметичних дій.}

writeln;                                     {поставити курсор на екрані з нового рядка}

 write('кінцеве значення x=');         {виведення на екран  повідомлення}

writeln(x,'    ');             {виведення на екрані  числового значення змінної х}

 write('кінцеве значення y=');        {виведення на екран  повідомлення}

write(y,'    ');                {виведення на екрані  значення значення змінної у}

 writeln;                       {поставити курсор на екрані з нового рядка}                 

end.                              {закінчення дій алгоритму}

Протестувати правильну роботу цього алгоритму  для двох цілих  чисел:

  -9 і 17;     0 і 7;       100 і; 250;           -900 і - 1000.

Завдання 2(6 балів). Cамостійно скласти і реалізувати алгоритм program SuperposiziaNumer, який виконує взаємний обмін числовими значеннями між трьома цілими  змінними; і виводить на екран  три початкових значення змінних і три  кінцеві значення цих змінних. Використовувати в алгоритмі більше чотирьох  цілих змінних не можна.

Протестувати правильну роботу цього алгоритму  для трійок цілих  чисел:

 -2;  -9 і 17;      -1;  0 і 7;      7;  100 і 250;         -300;  -900 і - 1000.

Практична робота 2. Лінійні алгоритми мовою Pascal

Завдання 1(6 балів). Скласти і реалізувати алгоритм в програмному середовищі, який визначає із двох довільних дійсних чисел найменше число та найбільше число. Значення  двох дійсних змінних вводяться зклавіатури; і виводить на екран  найменше значення із двох  чисел  та найбільше значення із двох  чисел. Використовувати в алгоритмі більше трьох дійсних змінних не можна.

Алгоритм  мовою Pascal

program  МАхМіnNumer;  {алгоритм знаходження МАХ(x;y) та МІN(x;y) }

var     {оголошується опис змінних величин, які використовує алгоритм}

x,y,z: real;            {оголошуються три дійсні  змінні у даному  алгоритмі}

begin                        {оголошується початок алгоритмічних дій}

write('x=');     {на екрані запит на введення з клавіатури цілого числа: х}

readln(x);     {зчитування числового значення і внесення його в змінну  х}

write('y=');   { на екрані запит на введення з клавіатури цілого числа: у}

readln(y);    {зчитування числового значення і внесення його в змінну  у}

 write('початкове значення x='); writeln(x,'  '); { перевірка початкового: х}

 write('початкове значення y='); write(y,'  '); { перевірка початкового: у}

 z:=abs(x-y); x:=0.5*(x+y-z);  y:=x+z;    {знаходження МАХ(x;y) та МІN(x;y)}

 writeln;                                 {поставити курсор на екрані з нового рядка}

 write('найменше значення x=');   {виведення на екран  повідомлення}

writeln(x,'  ');    {виведення на екран   числового значення змінної х}

 write('найбільше значення y=');    {виведення на екран  повідомлення}

write(y,'  ');     {виведення на екрані  числового значення змінної y}

 writeln;              {поставити курсор на екрані з нового рядка}                 

end.                                             {закінчення дій алгоритму}

Протестувати правильну роботу цього алгоритму  для двійок цілих  чисел:       -9 і -17;      0 і -8;    -2 і 0;    -1 і 1;    100 і 250;    900  і - 1000.

Завдання 2(6 балів). Cамостійно скласти і реалізувати алгоритм в програмному середовищі, який визначає із трьох довільних дійсних чисел найменше число та найбільше число. Значення  трьох дійсних змінних вводяться з клавіатури; і результат  виводить на екран  найменше значення із трьох  чисел  та найбільше значення із трьох  чисел. Використовувати в алгоритмі більше чотирьох дійсних змінних не можна.

Протестувати правильну роботу цього алгоритму  для трійок цілих  чисел:

 -2;  -9 і -17;      -1;  0 і - 7;      7;  100 і 250;         300;  300 і - 300.

Сайти для навчання програмуванню

Code.org – середовища навчання програмуванню  для початківців

Code School  -  Практичні завдання для навчання програмуванню.

Codecacademy – інтерактивне навчання програмуванню.

Stuk.io - Навчання з нуля для майбутніх програмістів.

Udaccity – курси від  Google, Facebook та інших великих компаній.

Platzi – курси по дизайну, маркетингу, програмуванню.

Learnable -  курси веб-розробці.

Code School  -  Практичні завдання для навчання програмуванню.

Code.org – середовища навчання програмуванню  для початківців

BasePails - Навчання Рубі та Раілз та іншим веб-технологіям

Treehouse - Розробка на   HTML, CSS, та додатків на ІОS.

One Month – навчання основам створення веб-додатків за місяць.

Dash – створення веб-сайтів.