Перегляньте слайди презентації.

​

Створіть програми мовою Pascal, та надішліть створені файли з розширенням .pas на скриньку вчителя ostrenko.aleks@gmail.com.

​

Якщо у Вас немає середовища програми Pascal, то ви можете написати текст програми в текстовому редакторі Microsoft Word або на слайдах цієї презентації. Перешліть створений документ чи презентацію на скриньку вчителя ostrenko.aleks@gmail.com.

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

У мові програмування Lazarus цикл із передумовою описується оператором while...

Розділ 6 § 25

Скорочена форма

Повна форма

while <логічний вираз> do <команда>;

while <логічний вираз> do

begin

<команда1>;

<команда2>;

…

<команда n>;

end;

8

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

Скорочена форма оператора while працює таким чином. Визначається значення логічного виразу. Якщо це значення True, то виконується команда, записана після службового слова do. Якщо значення логічного виразу False, то цикл завершується й управління передається команді, записаній у програмному коді після тіла циклу.

Розділ 6 § 25

У тілі циклу обов'язково використовують команду, яка змінюватиме значення величини, що використовується в логічному виразі.

8

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

Повна форма оператора while мовою програмування передбачає, що після службового слова do будуть виконуватись команди, які містяться між операторними дужками:

Розділ 6 § 25

begin

end

8

Розділ 8 § 39

var A: Integer;

begin

А := 1; { Початкове значення А}

While А < 100 do

А := А + 1;

end;

Поки А менше за 100, збільшувати значення А на одиницю

​

​

​

8

Алгоритм обчислення суми n членів числової послідовності

Алгоритм обчислення n-го члена послідовності натуральних чисел і суми n членів складається з таких дій:

Розділ 6 § 25

8

Алгоритм обчислення суми n членів числової послідовності

Знайти суму n чисел

{ Задаються початкові значення:}

S := 0; {суми S}

і := 1; {лічильника}

Randomize;

While і < n do

begin

a:=random(10);

S := S + A; { додається до суми S}

і := і + 1 { збільшення лічильника}

end;

Розділ 6 § 25

8

Задача 1.

Дано натуральне число n дійсні числа а₁, а₂,..., а_n (а₁<>0). Відомо, що в заданій послідовності є хоча б одне нульове значення. Розглядаючи члени послідовності, що розташовані до першого нульового елемента, визначити:

1) кількість від'ємних елементів;

2) суму додатних елементів;

Program z1;

Uses crt;

Var a,sum,k:integer;

Begin

randomize;

sum:=0; k:=0; a:=1;

while a<>0 do

begin

a:=random(10)-5; write(a,’ ’);

if a<0 then k:=k+1;

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

end;

writeln; writeln(‘sum=’,sum);

writeln(‘k=’,k);

readkey; End.

Задача 2.

Дано n чисел. Обчислити суму парних чисел.

Для визначення парності числа необхідно використати функцію mod.

​

a mod 2 = 0

​

Перед початком циклу змінну для суми необхідно обнулити sum:=0;

Program z2;

Uses crt;

Var a,sum,i,n:integer;

Begin

writeln(‘Введіть кількість чисел’); readln(n);

randomize; sum:=0; i:=1;

while i<n do

begin a:=random(10); write(a,’ ’); i:=i+1;

if then ;

end;

writeln; writeln(‘sum=’,sum);

readkey; End.

Задача 3. Дано n чисел. Знайти середнє арифметичне чисел, які діляться на 3 та 5 одночасно.

Якщо (a mod 3=0)and(a mod 5=0) то збільшити суму і кількість

Program z3;

Uses crt;

Var a,i,n,k,sum:integer; sa:real;

Begin writeln(‘Введіть кількість чисел’); readln(n);

randomize; k:=0; sum:=0; i:=1;

while i<n do

begin a:=random(30); write(a,’ ’); i:=i+1;

if then

begin

end;

end;

sa:=sum/k;

writeln; writeln(‘sa=’,sa:3:2);

readkey; End.

Задача 4. Дано число n. Знайти суму цифр у числі.

​

Функція div знаходить цілу частину від ділення

​

Наприклад, якщо n=123, то n div 10 = 12

​

Функція mod знаходить остачу від ділення

​

Наприклад, якщо n=123, то n mod 10 = 3

​

Послідовне виконання: {цикл повинен виконуватись поки n>0}

Наприклад, n=123, {в цій задачі цикл виконається 3 рази}

​

n mod 10 = 3 {12,3 – беремо тільки трійку}

n div 10 = 12 {12,3 – беремо тільки 12 і присвоюємо його

змінній n, в результаті n=12 }

​

n mod 10 = 2 {1,2 – беремо тільки 2}

n div 10 = 1 {1,2 беремо тільки 1 і присвоюємо його

змінній n, в результаті n=1 }

​

n mod 10 = 1 {0,1 – беремо тільки 1}

n div 10 = 1 {0,1 беремо тільки 0 і присвоюємо його

змінній n, в результаті n=0}

Program z4;

Uses crt;

Var n,sum:integer;

Begin writeln(‘Введіть число’); readln(n);

sum:=0;

while n>0 do

begin

end;

writeln; writeln(‘sum=’,sum);

readkey; End.