Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

примеры лаб

.pdf
Скачиваний:
31
Добавлен:
02.04.2015
Размер:
1.27 Mб
Скачать

Варианты индивидуальных заданий

1)

Y

X

3)

Y

X

2)

Y

X

4)

Y

X

5)

6)

Y

Y

X

X

11

7)

8)

Y

Y

X

X

9)

10)

Y

Y

X

X

11)

Y

X

12

12)

13)

Y

Y

0

X

0

X

14)

15)

Y

Y

0

X

0

X

16)

Y

0

X

17)

Y

0

X

13

18)

19)

Y

Y

0

X

0

X

20)

 

Y

 

0

 

 

X

22)

 

Y

 

0

X

21)

Y

0

X

14

23)

24)

Y

Y

X

X

25)

26)

Y

Y

0

X

X

 

0

0

27)

 

Y

 

R/2

Y=R/2

 

0

 

 

X

28)

 

Y

 

R/2

Y=R/2

 

0

 

 

X

15

 

29)

 

Y

 

 

Y=R/2

R/2

 

0

X

31)

 

Y

 

 

Y=X2

 

Y=1

0

X

33)

 

Y

 

 

Y=X2

 

Y=1

0

X

30)

 

Y

 

 

Y=R/2

R/2

 

0

X

 

32)

 

Y

 

 

Y=X2

 

Y=1

0

X

34)

 

Y

 

 

Y=X2

 

Y=1

0

X

16

 

35)

 

 

 

Y

 

 

0

 

 

 

X

 

-1

Y=-1

 

 

Y=-X2

37)

 

 

 

Y

 

 

0

 

 

 

X

 

-1

Y=-1

 

 

Y=-X2

39)

 

 

 

Y

 

 

R

Y=X

-R

0

R X

 

 

-R

 

36)

 

Y

 

0

 

 

X

-1

Y=-1

 

Y=-X2

38)

 

Y

 

0

 

 

X

-1

Y=-1

 

Y=-X2

17

Пример схемы алгоритма и текста программы определения местоположения точки для варианта задания вида:

Y

R

R/2

0

X

Начало

Ввод X,Y

 

Да

X=0 и Y=0

Нет

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Вывод (.)

 

Да

 

 

 

 

 

 

 

 

 

 

 

Нет

 

 

 

 

 

 

 

 

 

 

 

 

2 2

 

 

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

в НК

 

 

 

X +Y >R

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

S=(.) в М4

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Да

Нет

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y>=R/2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

S=(.) в М1

 

 

 

 

 

 

 

Да

 

 

 

 

 

 

Нет

 

 

 

 

 

 

 

 

 

 

 

y<=|x|

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

S=(.) в М2

 

 

 

 

 

S=(.) в М3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Вывод

S

Конец

18

Program Tochka;

{Определение местоположения точки на плоскости Входные данные: x, y – координаты точки Выходные данные: s - сообщение}

Var x, y: Real; s: String;

Begin

{Ввод и контроль}

Write(‘Введите координаты точки :’);

ReadLn(x, y);

{Анализ координат}

If (x = 0) And (y = 0)

Then WriteLn (‘Точка в начале координат’);

Else Begin

If x * x + y * y > r * r {Вне круга?} Then s:= ‘ вне круга’

Else {В круге}

If y >= r / 2 {Выше горизонтальной линии?} Then s:= ‘ в круге выше горизонтальной линии’ Else {Ниже горизонтальной линии}

If y <= - Abs (x)

Then s:= ‘ ниже ломаной’

Else s:= ‘ между горизонт. линией и ломаной’; {Вывод сообщения}

WriteLn (‘Положение точки:’, s); End;

End.

19

Лабораторная работа №2. Выбор варианта

Объем в часах: аудиторных занятий - 3, самостоятельных - 4.

Цель лабораторной работы:

изучение концепций и освоение технологии структурного программирования, приобретение навыков программирования на языке Турбо Паскаль многовариантных вычислений.

Задание на программирование

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

Порядок выполнения работы

1.Получить у преподавателя индивидуальное задание и выполнить постановку задачи: сформулировать условие, определить входные и выходные данные.

2.Разработать математическую модель:

составить список различных вариантов получения выходных данных

задачи,

выявить ключ выбора - данное целого типа, значения которого могут служить ключами различных вариантов выполнения действий,

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

3.Построить схему алгоритма решения задачи.

4.Составить программу на языке Турбо Паскаль.

5.Входные данные вводить с клавиатуры по запросу. Выходные данные выводить на экран в развернутой форме с пояснениями.

6.Проверить работу программы на полном наборе тестов. Продемонстрировать преподавателю возможные варианты выполнения, в том числе

сошибочными данными.

7.Оформить отчет о лабораторной работе в составе: постановка задачи,

математическая модель, схема алгоритма решения, текст программы, контрольные примеры.

20