Федеральное агентство по образованию
Ливенскийфилиал ГОУ ВПО
Орловскийгосударственный технический университет
Факультет экономики и права
Кафедра общетехнических дисциплин
Курсовая работа по курсу: Информатика
Создание презентации, формирование массива
Задание №1
Создать презентациюк реферату на тему «Excel – фильтрация данных».
/>
/>
/>
/>
/>
/>
/>
/>
/>
/>
Задание№2
Условие
1. Дан массивD(N). Сформировать массив В изэлементов массива D кратных 4 или 3.
/>
Программа
Programzadacha;
varN,K,I:integer;
B,D:array[1..10]of integer;
begin
writeln('введите количество элементов');
readln(N);
forI:=1 to N do begin
writeln ('вв-те эл-т массива');
readln(D[N]);
end;
K:=0;
forI:=1 to N do begin
ifD[I]mod 3=0 then begin
ifD[I]mod 4=0 then begin
K:=K+1;
B[K]:=D[I];
end;end;
forI:=1 to K do begin
writeln(B[I]);
end;
end;
end.
/>
Условие
2. Задан одномерныймассив, состоящий из нулей и едниниц. Проверить существует ли строгое чередование.
/>
Программа
Programzadacha;
varA:array [1..10] of integer;
I,K,K1,N:integer;
begin
writeln('вв-те кол-во строк');
readln(N);
forI:=1 to N do begin
writeln('вв-те эл-т');
readln(A[I]);
end;
K:=0;K1:=0;
forI:=1 to N-1 do
ifA[I]
forI:=1 to N-1 do
ifA[I]>A[I+1] then K1:=K1+1;
ifK=N-1 then writeln('да');
ifK1=N-1 then writeln('нет');
end.
/>