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

Посмотреть архив целиком


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

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

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

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

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










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

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




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

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.






Случайные файлы

Файл
47930.rtf
97158.rtf
161339.rtf
152948.rtf
19502-1.rtf