Контрольная работа: Розробка алгоритмів та складання програм на мові програмування MS VisualBasic for Application

begin

writeln('Введите длины сторон четырехугольника');

read(a,b,c,d);

if ((a=b) and (c=d)) or ((a=c) and (b=d))

then writeln('Четырехугольник- паралелограмм')

else writeln('Это другая фигура');

readln

end.

Результат роботи програми:

2. Задача на одновимірний масив

Визначити максимальний елемент серед елементів масиву В, які задовольняють умову х_і < 0, та його порядковий номер.

Текст програми:

program k2;

const n=10;

var

b:array [1..n] of integer;

i,max,number:integer;

begin

writeln('Введите элементы массива');

for i:=1 to n do

begin

write('b[',i,']=');

readln(b[i])

end;

for i:=1 to n do

begin

write(b[i]:4);

end;