База знаний студента. Реферат, курсовая, контрольная, диплом на заказ

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

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

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

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

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

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

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

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

Федеральное агентство по образованию Ливенский филиал ГОУ ВПО Орловский государственный технический университет Факультет экономики и права Кафедра общетехнических дисциплинКурсовая работа по курсу: Информатика Создание презентации,

 

• 14:21 05 Июля 2016
  Российско-китайский медуниверситет откроет магистерскую программу по TCM
• 01:21 05 Июля 2016
  На форуме МГУ Россия и Китай обсудят научно-образовательное сотрудничество
• 11:00 04 Июля 2016
  Реморенко: "ЕГЭ-туризм" в России сходит на нет
• 10:52 04 Июля 2016
  Летняя российско-австрийская школа откроется в Москве
• 15:31 01 Июля 2016
  В СПбГУ могут воссоздать географический факультет

Заказать уникальную работу