Создание презентации, формирование массива

Федеральное агентство по образованию

Ливенский филиал ГОУ ВПО

Орловский государственный технический университет

Факультет экономики и права

Кафедра общетехнических дисциплин

Курсовая работа по курсу: Информатика

Создание презентации, формирование массива

Задание №1

Создать презентацию к реферату на тему «Excel – фильтрация данных».

Задание №2

Условие

Дан массив D(N). Сформировать массив В из элементов массива D кратных 4 или 3.

Программа

Program zadacha;

var N,K,I:integer;

B,D:array[1..10] of integer;

begin

writeln('введите количество элементов');

readln(N);

for I:=1 to N do begin

writeln ('вв-те эл-т массива');

readln(D[N]);

end;

K:=0;

for I:=1 to N do begin

if D[I]mod 3=0 then begin

if D[I]mod 4=0 then begin

K:=K+1;

B[K]:=D[I];

end;end;

for I:=1 to K do begin

writeln (B[I]);

end;

end;

end.

Условие

2. Задан одномерный массив, состоящий из нулей и едниниц. Проверить существует ли строгое чередование.

Программа

Program zadacha;

var A:array [1..10] of integer;

I,K,K1,N:integer;

begin

writeln('вв-те кол-во строк');

readln(N);

for I:=1 to N do begin

writeln('вв-те эл-т');

readln(A[I]);

end;

K:=0;K1:=0;

for I:=1 to N-1 do

if A[I]<A[I+1] then K:=K+1;

for I:=1 to N-1 do

if A[I]>A[I+1] then K1:=K1+1;

if K=N-1 then writeln('да');

if K1=N-1 then writeln('нет');

end.