Программа. Федеральное государственное бюджетное образовательное учреждение

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

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

Высшего профессионального образования

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

Кафедра автоматизированных систем обработки информации и управления

Отчет

по учебной практике

Выполнила: Ананьева А.М. гр. МВИ-13с

Приняла: Самойлова Т.А.

Москва 2014

Содержание

Задание

1. Дан одномерный массив Yn. Найти минимальный среди положительных элементов с четными номерами. Удалить каждый третий элемент.

2. Сформировать одномерный массив, в который войдут количество целочисленных элементов матрицы X (n x m) из нечетных строк.

3. Все элементы матрицы X (n x m), лежащие ниже главной диагонали заменить средним арифметическим отрицательных элементов, стоящих в четных строках.

Программа

Программа в Delphi

1.1 program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils,

windows,

Math;

var

y: array [1..10] of integer;

N, i, Nmin, NewN: integer;

begin

setconsolecp(1251);

setconsoleOutputcp(1251);

write('N=');

readln (N);

For i: =1 to N do begin

write('y(', i, ')=');

readln(y[i]);

end;

Nmin: =0;

i: =2;

While i< =N do begin

If (y[i]> 0)then

If (Nmin=0) or (y[i]< y[Nmin])then

Nmin: =i;

i: =i+2;

end;

writeln('Ввывод минимального положительного элемента с четным номером');

writeln('y(', Nmin, ')=', y[Nmin]);

NewN: =0;

For i: =1 to N do

If (i mod 3< > 0)then begin

y[i-(i div 3)]: =y[i];

inc(newN);

end;

N: =NewN;

writeln ('удаление каждого третьего элемента массива');

For i: =1 to N do

writeln ('y(', i, ')=', y[i]);

readln;

end.

2.1 program Project2;

{$APPTYPE CONSOLE}

uses

windows,

SysUtils;

var

x: array [1..10, 1..10] of real;

y: array [1..10] of integer;

N, M, i, j, k, p: integer;

begin

setconsolecp(1251);

setconsoleOutputcp(1251);

write ('N=');

readln(N);

write ('M=');

readln (M);

for i: =1 to N do

for j: =1 to M do begin

write('x(', i, ', ', j, ')=');

readln(x[i, j]);

end;

for i: =1 to N do begin

writeln;

for j: =1 to M do

write (x[i, j]: 9: 2);

end;

writeln;

i: =1;

p: =0;

while i< =n do begin

p: =p+1;

k: =0;

for j: =1 to m do

if frac(x[i, j])=0 then

k: =k+1;

y[p]: =k;

i: =i+2;

writeln('y[', p, ']=', k);

end;

readln;

{ TODO -oUser -cConsole Main: Insert code here }

end.

3.1 program Project4;

{$APPTYPE CONSOLE}

uses

windows,

SysUtils;

var

x: array [1..10, 1..10] of single;

N, M, i, j, k: integer;

sr, s: real;

begin

setconsolecp(1251);

setconsoleOutputcp(1251);

write ('N=');

readln(N);

write ('M=');

readln (M);

for i: =1 to N do

for j: =1 to M do begin

write('x(', i, ', ', j, ')=');

readln(x[i, j]);

end;

for i: =1 to N do begin

writeln;

for j: =1 to M do

write (x[i, j]: 9: 2);

end;

writeln;

k: =0;

i: =2;

s: =0;

while i< =n do begin

for j: =1 to m do

if x[i, j]< 0 then begin

s: =s+x[i, j];

k: =k+1;

end;

i: =i+2;

If k=0 then writeln('net') else

begin

sr: =s/k;

end;

end;

writeln('s=', s: 2: 2);

writeln('sr=', sr: 2: 2);

writeln('Матрица: ');

for i: =2 to n do

for j: =1 to i-1 do

x[i, j]: =sr;

for i: =1 to N do begin

writeln;

for j: =1 to M do

write (x[i, j]: 9: 2);

end;

writeln;

readln;

{ TODO -oUser -cConsole Main: Insert code here }

end.

Программа в С++

1.2

#include< stdio.h>

#include< math.h>

#include< conio.h>

#include < stdlib.h>

void main(void)

{

int i, N, NewN, Nmin, *y;

clrscr();

printf (" Vvedite N\n");

scanf (" %i", & N);

y=(int*)malloc(N*sizeof(int));

for (i=0; i< N; i++)

{printf (" y(%d)=", i);

scanf(" %i", & y[i]);

}

Nmin=0;

i=0;

while (i< N)

{

if (y[i]> 0)

if((Nmin==0)||(y[i]< y[Nmin]))

Nmin=i;

i+=2;

}

scanf (" Vvuvod minimal polojitel elementa chetnymi nomerami\n");

printf(" y(%i)=%i\n", Nmin, y[Nmin]);

NewN=0;

for (i=0; i< N; i++)

if ((i%3)! =0)

{

y[i-(i/3)-1]=y[i];

printf(" %i %i\n", i, i/3);

NewN++;

}

N=NewN;

printf(" udalenie kajdogo 3 elementa massiva\n");

for (i=0; i< N; i++)

printf(" y(%i)=%i\n", i, y[i]);

getch();

free(y);

}

2.2

#include< stdio.h>

#include< math.h>

#include< conio.h>

#include < stdlib.h>

void main(void)

{

int N, M, ip, jp, i, r, k, j, NM, rp, p, *y;

float *x;

double *ptr=NULL;

clrscr();

printf (" Vv N, M\n");

scanf (" %i, %i", & N, & M);

NM=N*M;

if ((x=(float*)malloc(NM*sizeof(float)))==NULL) /* выделение памяти */

printf(" нет свободной памяти! \n");

else

r=0;

for (i=0; i< N; i++)

for (j=0; j< M; j++)

{ printf (" x[%d][%d]=", i, j);

r=M*i+j;

scanf (" %f", (x+r));

}

i=1;

p=0;

while (i< N)

{

p++;

k=0;

for (j=0; j< M; j++)

{ r=M*i+j;

if (modf(*(x+r), ptr)==0)

k++; }

y[p-1]=k;

i+=2;

}

for (i=0; i< p; i++)

printf(" y(%i)=%i\n", i, y[i]);

getch();

free(y);

}