Завдання № 24

На етапі виконання програми увага зосереджена на виконавці алгоритмів – вибирають комп'ютер з достатніми можливостями (суперкомп'ютер, мейнфрейм, сервери різних типів, персональний комп'ютер, робоча станція, мікропроцесор), виконують програму, одержують результати.

Завдання № 25

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

Завдання № 26

const n=5;

var a:array[1..n]of byte;

i:integer;

begin

{введення}

for i:=1 to n do

read(a[i]);

readln;

{виведення}

for i:=1 to n do

write(a[i]:4);

end.

Завдання № 27

const n=5;

var a,b:array[1..n]of byte;

i:integer;

begin

{введення масиву а}

for i:=1 to n do

a[i]:=i*i;

{ініціалізація масиву b }

b:=a;

{виведення масиву b }

for i:=1 to n do

write(b[i]:4);

end.

Завдання № 28

const n=5;

var a:array[1..n]of byte;

i,min:integer;

begin

for i:=1 to n do

a[i]:=random(20);

min:=a[1];

for i:=2 to n do

if a[i]<min

then min:=a[i];

writeln(‘min=‘,min);

end.

Завдання № 29

const n=5;

var a:array[1..n]of byte;

i,min:integer;

begin

for i:=1 to n do

a[i]:=random(20);

min:=1;

for i:=2 to n do

if a[i]<a[min]

then min:=i;

writeln(‘min=a[‘,min,’]=‘, a[min]);

end.

Завдання № 30

const n=5;

var a:array[1..n]of byte;

i,x:integer;

f:boolean;

begin

{ініціалізація масиву}

for i:=1 to n do

a[i]:=random(20);

{що шукати}

write(‘введіть x’); readln(x);

f:=false;

{пошук}

for i:=1 to n do

if a[i]=x

then begin

writeln(‘елемент знайдено в позиції ‘, i);

f:=true;

end;

if not(f) then writeln(‘елемент не знайдено‘);

end.

Завдання № 31

const n=5;

var a:array[1..n]of byte;

i,x,c,min,max:integer;

begin

{ініціалізація масиву}

for i:=1 to n do

a[i]:=random(20);

{що шукати}

write(‘введіть x’); readln(x);

{пошук}

min:=1;

max:=n;

while min<max do

begin

c:=(min+max)/2;

if a[c]=x

then begin

writeln(‘елемент знайдено в позиції ‘, c);

exit;

end;

if a[c]<x then min:=c+1 else max:=c-1;

end;

writeln(‘елемент не знайдено‘);

end.

Завдання № 32

const n=5;

var a:array[1..n]of byte;

i,s:integer;

begin

{ініціалізація масиву}

for i:=1 to n do

a[i]:=random(20);

{обчислення суми}

s:=0;

for i:=1 to n do

if a[i]>0 then s:=s+a[i];

{виведення результату}

writeln(‘s=‘, s);

end.

Завдання № 33

const n=5;

var a:array[1..n]of byte;

i,x:integer;

begin

{ініціалізація масиву}

for i:=1 to n do

begin

a[i]:=random(20);

write(a[i]:4);

end;

{перестановка}

for i:=1 to (n div 2) do

begin

x:=a[i];

a[i]:=a[n-i+1];

a[n-i+1]:=x;

end;

{виведення}

for i:=1 to n do

write(a[i]:4);

end.

Завдання № 34

const n=5;

var a:array[1..n]of byte;

i,x:integer;

begin

{ініціалізація масиву}

for i:=1 to n do

begin

a[i]:=random(20);

write(a[i]:4);

end;

{перестановка}

x:=a[1];

for i:=1 to (n-1) do

a[i]:=a[i+1];

a[n]:=x;

{виведення}

for i:=1 to n do

write(a[i]:4);

end.

Дата добавления: 2015-07-20