Рефетека.ру / Информатика и програм-ие

Курсовая работа: Создание презентации, формирование массива

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

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

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

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

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


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

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


Задание №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.


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

Рефетека ру refoteka@gmail.com