Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Информатика / контр. раб.pdf
Скачиваний:
31
Добавлен:
14.03.2016
Размер:
301.49 Кб
Скачать

1. ТРЕБОВАНИЯ К ОФОРМЛЕНИЮ СЕМЕСТРОВОГО ЗАДАНИЯ

Семестровая работа предполагает закрепление студентом полученных знаний по курсу «Информатика».

1. Семестровая работа должна быть написана на одной стороне белой бумаги формата А4 с полями и сброшюрована в папку с титульным листом. Титульный лист (первый лист) должен содержать номер варианта, номер группы, фамилию, имя и отчество студента.

Титульный лист

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ ВОЛГОГРАДСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ КАФЕДРА ВЫЧИСЛИТЕЛЬНОЙ ТЕХНИКИ

СЕМЕСТРОВАЯ РАБОТА № 1

по курсу «Информатика» Вариант 35

Выполнил: студент гр. ТС-100 Иванов И.А. Проверил:

преп. Петров А.Р.

Волгоград 2003

2.На втором листе – задание к семестровой работе.

3.На следующих листах – блок – схема решения задачи.

4.Далее следует текст программы.

5.После текста программы следует привести тестовый пример.

6.На последнем листе указать список использованной литературы.

Пункты 3,4,5 следует выполнить для каждой задачи.

2.ПРИМЕР ВЫПОЛНЕНИЯ СЕМЕСТРОВОЙ РАБОТЫ

Вариант 35

Задача 1. Дано a,b,x.

Если a>b, вычислить значение функции

 

ì

 

 

 

 

 

 

 

 

 

x

2

+ 1, если x > 5

 

 

Y =

ï

 

 

 

.

í

5x3

+ tg(a),если x < =

5

 

ï

 

 

î

 

 

 

 

 

 

 

Если a<=b, вычислить значение функции z = 2ex/xb и вывести на печать значения z >=10.

Задача 2. Дано х, k (целые числа).

Вычислить и напечатать значения функции

2

y =

k

((

i

(n × x))!+

1)

Õ

å

 

i= 1

n = 0

i!

где i изменяется в интервале от 1 до k с шагом 1, а n изменяется в интервале от 0 до i с шагом 1.

Задача 3. Задан массив Т(N) (N<=60).

Найти в массиве минимальный элемент и сумму четных элементов. Затем заменить этой суммой все отрицательные элементы, стоящие после минимального элемента. Отпечатать исходный и преобразованный массив Т.

Задача 1 Блок-схема:

Начало

Ввод

a,b,x

 

 

Нет

 

 

 

Да

 

 

 

a > b

 

 

Да

 

 

 

 

Нет

 

 

Z=2e

x/xb

 

 

 

 

x > 5

 

 

 

 

Нет

Z >=10

Да

Y = 5x3 + tg(a)

Y =

x2 + 1

 

 

 

Вывод

 

 

 

 

 

Z

Вывод

 

 

 

 

 

 

 

 

 

 

Y

 

 

Конец

Программа на ЯВУ ТР7.0

PROGRAM ZADACHA1; USES CRT;

VAR

A,B,X,Y,Z:REAL;

BEGIN CLRSCR;

WRITELN('ВВЕДИТЕ A,B,X:'); READ(A,B,X);

IF A>B THEN

BEGIN

IF A>B THEN Y:=SQRT(SQR(X)+1)

ELSE Y:=5*X*SQR(X)+SIN(A)/COS(A); WRITELN('Y=',Y:9:3);

END

ELSE BEGIN

Z:=2*EXP(X)/EXP(B*LN(X));

IF Z>=10 THEN WRITELN('Z=',Z:9:3); END

READKEY;

END.

3

Тестовый пример

 

Ввод:

Вывод:

A=3, B=2, X=6.

Так как X>5, то Y=6.023

Задача 2 Блок-схема:

Начало

Ввод

K,X

S=0; Y=1; P2=1

I=1,K,1

S=S+I*X

P1=1

J=1,S,1

P1=P1*S

P2=P2*I

Y=Y*(P1+1/P2)

Вывод

Y

Конец

Программа на ЯВУ ТР7.0

PROGRAM ZADACHA2; USES CRT;

VAR

N,I,J,K,X,S,P1,P2:INTEGER;

Y:REAL;

BEGIN CLRSCR;

WRITELN('ВВЕДИТЕ X,K:'); READ(X,K);

S:=0;

P2:=1;

Y:=1;

FOR I:=1 TO K DO BEGIN

S:=S+I*X;

P1:=1;

FOR J:=1 TO S DO

P1:=P1*S;

P2:=P2*I;

Y:=Y*(P1+1/P2);

END;

WRITELN('Y=',Y:9:3);

READKEY;

4

END.

 

Тестовый пример

 

Ввод:

Вывод:

X=3, K=5

Y=33699973.866

Задача 3

 

Блок-схема с пошаговой детализацией:

 

5

Программа на ЯВУ ТР7.0

PROGRAM ZADACHA3;

CONST

N1=50;

TYPE

MAS1=ARRAY[1..N1] OF INTEGER;

VAR

 

T:MAS1;

 

IMIN,MIN,S:INTEGER;

 

I:INTEGER;

 

N:INTEGER;

 

BEGIN

 

{ШАГ 1-2}

 

WRITE('ВВЕДИТЕ РАЗМЕР N=');

 

READ(N);

 

FOR I:=1 TO N DO

 

BEGIN

 

WRITE('T[',I,']= ');

 

READ(T[I]);

 

END;

 

{--------------------------------------------------------

}

{ШАГ 2-3}

 

MIN:=T[1];

 

IMIN:=1;

 

FOR I:=2 TO N DO

 

IF T[I]<MIN THEN

 

BEGIN

 

MIN:=T[I];

 

IMIN:=I;

 

END;

 

WRITELN('МИНИМАЛЬНЫЙ ЭЛЕМЕНТ МАССИВА: ',MIN);

{--------------------------------------------------------

}

{ШАГ 3-4}

 

S:=0;

 

FOR I:=1 TO N DO

 

IF T[I] mod 2=0 THEN

 

S:=S+T[I];

 

WRITELN('СУММА ЧЕТНЫХ ЭЛЕМЕНТОВ МАССИВА: ',S);

{--------------------------------------------------------

}

IF IMIN<N THEN

 

BEGIN

 

{ШАГ 4-5}

 

FOR I:=IMIN+1 TO N DO

 

IF T[I]<0 THEN

 

T[I]:=S;

 

{--------------------------------------------------------

}

{ШАГ 5-6}

 

FOR I:=1 TO N DO

 

6

Соседние файлы в папке Информатика