Программирование в Турбо Паскале

Структура программы в Турбо Паскале и определение переменной в ней. Понятие идентификатора и его основные ограничения. Операторы присваивания в языке программирования. Процедура ввода-вывода информации. Способы описания массива, обработка его элементов.
Краткое сожержание материала:

Размещено на

Санкт-Петербургский Государственный университет телекоммуникаций им. проф. М.А. Бонч-Бруевича

ФАКУЛЬТЕТ ВЕЧЕРНЕГО И ЗАОЧНОГО ОБУЧЕНИЯ

КОНТРОЛЬНАЯ РАБОТА №1, №2

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

СОДЕРЖАНИЕ

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

Задание №1

Задание №2

Задание №3

2. Контрольные вопросы к заданиям №1, №2, №3

3. Контрольная работа №2

Задание №4

4. Контрольные вопросы к заданию №4

1. КОНТРОЛЬНАЯ РАБОТА №1

программа идентификатор массив оператор

ЗАДАНИЕ №1

1. Постановка задачи

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

при x < -12

y = при -12 x < 1

при x 1

Рабочий набор исходных данных:

a = 1,5, x = -17,3

2. Таблица идентификаторов

Обозначение в задании	Идентификатор	Назначение
a	a	коэффициент-константа
x	x	переменная, используемая для задания значения аргумента
y	y	переменная, используемая для хранения значения вычисляемой функции

3. Текст программы с комментариями

program exm_1;

{разветвляющийся алгоритм, в котором вычисление функции по той или иной ветке алгоритма определяется величиной аргумента, введенного самим пользователем}

uses CRT;

const

a=1.5; {описание констант}

var

x,y:real; {описание переменных}

begin

clrscr; {очистка экрана}

write('введите х = '); {вывод на экран монитора надписи "введите х ="}

readln(x); {считывание данных с клавиатуры}

if x<-12 then {если x <-12 то }

y:=a*sin(abs(x+23))/cos(abs(x+23)); {расчет y}

if (x>=-12) and (x<1) then

y:=a*(sin(x)+10)/(sin(x)/cos(x)+5);

if x>=1 then

y:=sqrt(abs(x-4));

writeln('при x =',x:5:2,' y =',y:5:2); {вывод на экран полученных x и y}

readln {удержание экрана с результатами, для просмотра}

end.

4. Контрольный расчет

Входные данные	Результаты контрольного расчета для а=1	Результаты, полученные на ЭВМ (проверяются на лабораторных работах)
x	y	x	y
-15	-6,80	-15
-2	1,27	-2
6	1,41	6

ЗАДАНИЕ №2

1. Постановка задачи

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

Рабочий набор исходных данных:

x=, n=5

2. Таблица идентификаторов

Обозначение в задаче	Идентификатор	Назначение
x	x	исходные данные
y	y	результат решения задачи
	p b	промежуточный результат
i	i	счетчик цикла
n	n	константа, определяющая верхнюю границу изменения счетчика цикла

3. Текст программы с комментариями

program ex_1_2;

{Задача на вычисление конечного произведения}

uses CRT;

const x=Pi/4; {описание констант}

n=5;

var

b,p,y:real; {описание переменных}

i:byte;

begin

clrscr;

b:=(x+0.8)/x; {подготовка к циклу}

p:=1;

for i:=1 to n do {параметр цикла, изменяется от 1 до n}

p:=p*sqrt(b+cos((x)*i)); {цикл}

y:=4.2*x+p; {вычисление y}

write('ответ ');

writeln(' y = ',y:5:3); {вывод на экран полученных результатов}

readln

end.

4. Контрольный расчет

Ответ y = 6,403.

ЗАДАНИЕ №3

1. Постановка задачи

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

Рабочий набор исходных данных:

Хнач = 0; Х=0,5; а=1,01; N=10.

2. Таблица идентификаторов

Обозначение в задаче	Идентификатор	Назначение
N a Xнач Х	n a xn dx	исходные данные
x y	x y	Результат решения задачи
i	i	Счетчик цикла

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

program ex_1_3;

{Задача на вычисление таблицы значений функции}

uses CRT;

const

n=10; a=1.01; {описание констант}

xn=0; dx=0.5; line='******************************************';

var

x,y:real; {описание переменных}

i:byte;

begin

clrscr; {очистка экрана}

x:=xn; {подготовка к циклу}

writeln; {напечатает пустую строку}

writeln('ТАБЛИЦА ЗНАЧЕНИЙ ФУНКЦИЙ');

writeln;

writeln;

writeln(line); {напечатает полоску в виде звездочек}

writeln('| X | Y |');

writeln(line);

for i:=1 to n do

begin

y:=sqrt(a+2.8*x)/(sqrt(x)+2.8+x);

writeln('! ',x:5:2,' ! ',y:5:2,' !');

x:=x+dx;

end;

writeln(line);

readln

end.

4. Контрольный расчет



2. КОНТРОЛЬНЫЕ ВОПРОСЫ К ЗАДАНИЯМ №1, №2 И №3

1. Структура программы в Турбо Паскале.

Структура программы в Турбо Паскале состоит из заголовка программы и тела программы, оканчивающегося точкой. Структуру программы можно показать следующим образом:

(Заголовок программы)

Program Имя программы,

(Раздел указания используемых модулей)

Uses (Список используемых модулей)

(Раздел описаний)

Label (описание меток)

const (описание констант)

type (описание типов)

var (описание переменных)

procedure

function

(Раздел операторов (Операторный блок))

begin (начало программы)

раздел операторов

end (конец программы)

Заголовок программы необязателен и используется в декоративных целях. Имя программы начинается со слова program и далее содержит буквы, цифры и знаки подчеркивания.

Например: program exm_1;