Создание презентации, формирование массива
Федеральное агентство по образованию
Ливенский филиал ГОУ ВПО
Орловский государственный технический университет
Факультет экономики и права
Кафедра общетехнических дисциплин
Курсовая работа по курсу: Информатика
Создание презентации, формирование массива
Задание №1
Создать презентацию к реферату на тему «Excel - фильтрация данных».
Задание №2
Условие
1. Дан массив 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.
