Выражения и условный оператор IF. Операторы циклов. Массивы и подпрограммы

Томский межвузовский центр дистанционного образования

Томский государственный университет систем управления и радиоэлектроники (ТУСУР)

Кафедра экономика

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

по дисциплине «информатика»

автор пособия Тимченко С.В., Сметанин С.И.

вариант №1

Выполнила

Студентка гр.З-828-Б

Специальности 080105

Афонина Юлия Владимировна

Г. Нефтеюганск

2009 г.1.

Тестирование программы:

1. X=-1 (выполнено первое условие, x<0):

Расчет значения функции в заданной точке

Введите число x: -1

Значение f(-1.00000000) = 4.00000000

2. X=3 (выполнено второе условие, 0<=x<4):

Расчет значения функции в заданной точке

Введите число x: 3

Значение f(3.00000000) = -0.12021014

3. X=5 (выполнено третье условие, x>=4):

Расчет значения функции в заданной точке

Введите число x: 5

Значение f(5.00000000) = 1.00000000

Программа дает верные результаты, отладка завершена.

2.

При описании данной программы использовались переменные вещественного типа.

3.

Типом данных называется множество допустимых значений этих данных, а также совокупность операций над ними. Типы делятся на следующие группы: простые, структурированные, указатели, процедурные, объекты. Есть стандартные (предопределенные) и определяемые программистами в разделе, начинающемся со слова Type. Простые типы определяют упорядоченное множество значений элементов и делятся на вещественные, целые, символьный, логический, перечисляемый и тип-диапазон. Вещественные типы определяют дробные числа и представлены 5 стандартными типами: real, single, double, extended, comp. Целые типы определяют целые числа и представлены 5 стандартными типами: integer, longint, shortint, byte, word, стандартный символьный тип char определяет полный набор допустимых символов. Стандартный логический тип Boolean представляет собой тип данных, каждый элемент которого может принимать 1 из 2-х значений: False (ложь), True (правда). Перечисляемый тип не является стандартным и определяется набором идентификаторов, к которым может совпадать значение элемента данных.

В данной программе выбор типа real для переменной x обусловлен тем, что функции sqrt ( x ) ,sin ( x ) иsqr ( x ) допускают аргументы такого типа. А так как значение функции sin ( x ) имеет тип real для аргумента типа real , то для переменной f необходимо также выбрать тип real .1.

Вычислить сумму s значений функции f в точках x_i которые берутся с заданного интервала [a ;b ] через равные отрезки длиной h . Длина отрезка рассчитывается по формуле . Здесь i =1,2,3…n – номер точки; n – задаваемое количество точек; a – начло и b – конец интервала изменения x . Вывести на экран результаты вычислений, полученные при помощи следующих циклов:

- While логическое_выражение Do тело _цикла ;

- Repeat тело _цикла Until логическое _выражение ;

- For параметр :=мин ._значение To макс . Do тело _цикла ;

- For параметр :=макс ._значение DownTo мин . Do тело _цикла ;

При выполнении задания сначала в программе требуется задать значение исходных данных: границы интервала a и b , количество точек n . Это можно сделать, описав соответствующие константы в разделе объявления констант Const .

Затем при помощи операторов циклов, записываемых в программе последовательно друг за другом в любом порядке следования, необходимо в каждом из циклов вычислить сумму s и вывести ее на экран, т.е. в одной программе решить задачу 4-мя способами. Таким образом, в результате выполнения программе на экране должны быть 4 значения s , совпадающие между собой.

Решение :

Program prog2;

const

a=3;

b=10;

n=10;

var

s,x,h:real ;

i:integer ;

begin

writeln ('Вычисление суммы значений функции');

h:=(b-a)/(n-1);

writeln (' a = ',a);

writeln (' b = ',b);

writeln (' n = ',n);

writeln (' h = ',h:0:8);

writeln ;

{цикл "while"}

writeln ('1. Цикл "while"');

x:=a;

s:=0;

i:=1;

while i<=10 do

begin

s:=s+sin (x+3)/exp (2/5*ln (x+3));

x:=x+h;

i:=i+1;

end ;

write (' Значение s: ');

writeln (s:0:8);

{цикл "repeat"}

writeln ('2. Цикл "repeat"');

x:=a;

s:=0;

i:=1;

repeat

s:=s+sin (x

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать