- •ИНФОРМАТИКА
- •Методические указания к выполнению семестровой работы № 1
- •Титульный лист
- •СЕМЕСТРОВАЯ РАБОТА № 1
- •Волгоград 2003
- •Тестовый пример
- •Тестовый пример
- •Тестовый пример
- •Вариант 1
- •Вариант 2
- •Вариант 3
- •Вариант 4
- •Вариант 5
- •Вариант 6
- •Вариант 7
- •Вариант 8
- •Вариант 9
- •Вариант 10
- •Вариант 11
- •Вариант №12
- •Вариант №13
- •Вариант №14
- •Ввести числа x1, x2, x3, x4, и вычислить их среднее арифметическое d. Если «d < 100», напечатать «d < 100 ». Если d = 100, вывести на печать значения x1, x2, x3, x4. Если d < 100, вычислить и напечатать среднее геометрическое этих чисел.
- •Вариант №15
- •Вариант №16
- •Вариант №18
- •Вариант №19
- •Вариант №20
- •Вариант № 21
- •Вариант № 22
- •Вариант № 23
- •Вариант № 25
- •Вариант № 26
- •Вариант № 27
- •Вариант № 28
- •Вариант № 29
- •Вариант № 30
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