Контрольная работа по дисциплине "Информатика"

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

Государственное образовательное учреждение высшего профессионального образования

«ЧИТИНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ»

(ЧитГУ)

Институт строительства и экологии

 

 

 

 

 

 

 

 

Контрольная работа № 1 

По дисциплине: ИНФОРМАТИКА

Вариант 3

 

 

 

 

 

 

 

 

 

Выполнил:

Проверил:

 

 

Чита – 2013г. 

СОДЕРЖАНИЕ

 

ЗАДАНИЕ 1

Составить программу вычисления следующих функций:

Справка об используемых операторах:

Оператор присваивания – служит для вычисления некоторого значения выражения и присваивания его имени переменной (результата). Общий вид оператора: имя переменной := выражение;

Во всех случаях вначале вычисляется значение выражения, расположенного справа от символа присваивания « := », а затем вычисленное значение присваивается переменной слева.

Данные, используемые в программе, можно задавать с помощью оператора присваивания, но существует и специальный оператор ввода (READ).

Операторы ввода имеет структуру: READ (список переменных) или READLN (список переменных) ;

Оператор READLN осуществляет ввод данных с переводом на новую строку. Типы вводимых переменных должны соответствовать типам вводимых значений.

Операторы вывода имеет структуру: WRITE ( список переменных ) или WRITELN ( список переменных ) ;

Оператор WRITE выводит на экран значения переменных из списка. Список вывода данных может содержать константы, переменные, строковые или арифметические выражения, функции. Элементы списка разделяются запятой. Оператор WRITELN выполняет вывод значений и после вывода последнего значения осуществляет переход к началу новой строки.

 

Текст программы:

program LIN ;

var x, a, b, z: real ;

begin

writeln ( ‘ введите x, a, b ‘ ) ;

read ( a , b , c ) ;

t := (7*x*x*x-ln(abs(a)))/2,7/b ;

y := sin(t) - sin(a) ;

z :=3,87*y*y*y+ arctan(t)

writе ( ‘ Z = ‘ , z , ‘ t = ‘ , t , ‘ y = ‘ , y )

end

 

ЗАДАНИЕ 2

Составить программу вычисления следующих функций:

Справка об используемых операторах:

Для изменения порядка выполнения операторов после проверки некоторого условия предназначен условный оператор.

Условный оператор может быть неполным и полным.

Неполный условный оператор имеет вид:

IF < условие > THEN < выполняемый оператор > ;.

Данный оператор выполняется следующим образом: если условие после слова IF выполнено, то выполняется указанный после слова THEN оператор, если же условие не выполнено, управление передается следующему после IF оператору.

Полный условный оператор имеет вид:

IF < условие > THEN < оператор1> ELSE < оператор2 > ;.

Работа оператора заключается в следующем: если условие выполнено, то выполняется оператор 1, если же условие не выполнено, то выполняется оператор 2.

Блок - схема алгоритма

4)  распечатку текстов программ и полученных результатов.

program GG ;

var x , a , y : real ;

begin

writeln (‘ введите X, A ‘ ) ;

read (x , a ) ;

IF x >5 THEN y := ln(abs(sin (x)) ELSE IF (x <= 5) AND (a >3) THEN

y := sqr(x)+sqr(a) ELSE y := x/a+7,8*a ;

writeln ( ‘ Y = ‘ , y )

end

 

ЗАДАНИЕ 3

Найти максимальное число из a и b.

Cправка об используемых операторах:

Для вычисления конечных сумм и произведений используется оператор цикла FOR.

Он имеет следующий вид: FOR < параметр цикла > := <начальное значение параметра цикла > TO <конечное значение параметра цикла > DO < оператор > ;

Параметр цикла, начальное и конечное значение параметра цикла должны быть одного и того же типа, но не действительного. Шаг изменения параметра цикла равен 1. Работа оператора заключается в следующем: переменная-параметр цикла принимает последовательно значения от начального до конечного с шагом равным единице, при этом каждый раз выполняется оператор (простой или составной), стоящий после DO.  

Блок - схема алгоритма

 

Текст программы

program SR ;

var

A, B : real ;

i, k  : integer ;

begin

writeln  ( ‘ вычисление А и В ‘ ) ;

A := 0 ;

for i := 1 to 2 do A := A+i*i/(i+1)

B := 1 ;

for k := 1 to 3 do B := B*k/(k*k+1) ;

if A > B then Max := A else Max := B ;

write ( ‘ Max = ‘ , Max )

end .

Полученный результат:

Max = a

 

ЗАДАНИЕ 4

Составить таблицу значений функции 

Справка об используемых операторах:

Для реализации задачи табулирования функции Y=F(x), если x , с шагом h, используют операторы REPEAT.

Оператор REPEAT имеет следующую структуру: REPEAT <последовательность операторов> UNTIL < условие выхода из цикла> ;

Работа оператора заключается в том, что выполнение последовательности операторов повторяется до тех пор, пока будет выполнено условие выхода. Как только условие выхода выполняется, управление передается следующему оператору.

Блок - схема алгоритма:

program TAB ;

var

x , y : real ;

n : integer ;

begin

x := 0 ;

repeat

y := 0 ;

for n := 1 to 9 do y := y+sin(x)/(n+1) ;

writeln ( ‘ Y = ‘ , y , ‘ X = ‘ , x ) ;

x := x + 0,5 ;

until x > 5 ;

writeln ( ‘ конец ‘ )

end .

Полученный результат:

Х	0	0,5	1	1,5	2	2,5
У	0	0,015088	0,030175	0,045259	0,06034	0,075417
Х	3	3,5	4	4,5	5
У	0,090487	0,105551	0,120607	0,135653	0,15069

 

 

ЗАДАНИЕ 5

1. Даны две матрицы А ( 3 × 3 ) и В ( 3 × 3 ). Составить по следующему правилу матрицу С:

блок - схема алгоритма:

 
текст программы

program MAS ;

var  A,B : array [ 1 .. 3 ] of real ;

i  : integer ; c : real ;

begin

for i := 1 to 3 do

begin

for j := 1 to 3 do

begin

writeln ( ‘ ввод A [ ‘  i , j‘ ] = ‘‘ ввод B [ ‘  i ,j ‘ ] = ‘) ;

read ( A [ i,j ] B [ i,j ]) ;

end ;

S := 0 ;

for i := 1 to 3 do;

if A [ i,j ] < B [ i,j ] then C [i,j ] := A [i,j] else B [ i ] := A [ i,j ]+ B [ i,j ] ;

for i := 1 to 3 do writeln ( ‘C [i,j ] = ‘ , C [i,j ])

end .

 

2. В последовательности xi, i=1,..., 10 найти минимальный элемент и на него разделить все элементы последовательности.

справка об используемых операторах:

 

блок - схема алгоритма:

Текст программы:

program MIN ;

var

X : array [ 1 .. 10 ] of  real ;

i  : integer ;

Min : real ;

begin

for i := 1 to 10 do

begin

writeln ( ‘ введите X [ ‘ , i , ‘ ] = ‘ ) ;

read ( X [ i ] ) ;

end ;

Min := X [ 1 ] ;

for i := 2 to 10 do

if  X [ i ] < Min  then Min := X [ i ] ;

writeln ( ‘ Min = ‘ , Min );

for i := 1 to 10 do

C := X [ i ]/Min

writeln ( ‘ частное = ‘ , C );

end .

 

 

СПИСОК ЛИТЕРАТУРЫ

 

1. Фигурнов В. Э. IBM PC для пользователя. Изд. 5-е, исправл. и доп. - М.: Финансы и статистика, НПО « Информатика и компьютеры », 1994. - 368с.
2. Турбо-Паскаль 7.0. Киев : Торгово-издательское бюро BHV, 1996-448с.
3. Применение численных методов : Метод. Указ. Чита : ЧитПИ, 1991. - 59с.
4. Алгоритмические языки : Бейсик и Паскаль :Метод. Указ. Чита : ЧитПИ, 1992 - 87с.
5. Элементы численных методов и обработки экспериментальных данных : Учебное пособие. Чита : ЧитПИ, 1994. - 87с.
6. Тупякова В. П., Тупякова Г. Г., Забелина Н.А. Вычислительная техника и программирование. Учебное пособие. Чита : ЧитГТИ, 1997. - 73с.