методическое руководство по PASCAL новое

оператор Writeln(′Тело вращения′) выводит на экране сообщение о названии задачи,

ека

оператор Writeln(′Введите исходные данные:′) на следующей строке выводитАГ

текст,

заключённый в апострофах,

Вид экрана:

о

т

и

л

б

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

и

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

(подтвердите ввод нажатием клавиши Enter), а значение площади 125.

ая

б

Вид экрана:

нн

т

р

о

Для просмотра результатов необходимо ввести команду Debug→User screen

(Alt+F5). Прокомментировать результат также можно с помощью операторов Write

к

или Writeln.

В нашейе

программе:

Writeln – отображает пустую строку для отделения результатов от данных

Эл

42

НИ

Writeln(′Объём полученного тела вращения равен′, V:6:2, ′куб.см′) – на следующей

строке отображает на экране искомый результат.

Вид экрана:

АГ

ека

и

о

т

Для возврата в режим редактирования можно нажать любую клавишу.

л

вторного запуска задачи. Лабораторная работа считается выполненной, если полу-

б

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

ая

б

и

нн

т

р

о

к

е

Эл

43

1. Теплоход прошёл по течению S

км за t часов. Сколько времени ему

потребовалось на обратный путь, если скорость течения реки V км/ч.

Время прохождения теплохода.

НИ

Введите исходные данные:

Расстояние по течению S (км): 100

Время, потраченное теплоходом по течению t (ч): 2

Скорость течения реки V (км/ч): 15

АГ

На обратный путь теплоход потратил 5 ч

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

S=135, t=3, V=10

{На обратный путь теплоход потратил 5.4 ч}

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

о

т

ека

tg(x+a)-ln(b+7), при ׀х׀ <10

У=

c 5 x 2

+ de 1 .3

, при ׀х׀ >10

Входные данные (х, a, b, c, d) ввести с клавиатуры.

Значение функции.

и

Введите через пробел значения данныхл

х, a, b, c, d:

4

2

1.5

2.8

10

б

Значение функции равно -2.43

и

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

х, a, b, c, d: 4

2

-8 2.8б

10 {Нет решения}

х, a, b, c, d: -20

3

-5.1

6 4.5{Значение функции равно 20.05}

3. Вычислить значения функции, если диапазон изменения аргумента и

нн

ая

шающих значения 0.45.

о

y =

(cos x + sin 2x)2

- a × sin x

a = 2.5;

0° £ x £ 25°; h = 5°

π + sin x

Аргументы и значения функции вывести в табличном виде.

Таблица значений функции.

Y

к

т

рх (градусы)

х (радианы)

Эле

0

0.00

0.32

5

0.09

0.36

10

0.17

0.40

15

0.26

0.44

20

0.35

0.47

25

0.44

0.49

Количество значений функций равно 4

44

объем.

АГ

НИ

Диагонали и объём куба.

Введите ребро куба а (см): 5

Диагональ основания равна 7.07 см

Диагональ куба равна 8.66 см

Объём куба равен 125.00 куб.см

Повторите запуск программы, введя другое значение ребра уба: а=10

{Диагональ основания равна 14.14 см

т

ека

Диагональ куба равна 17.32 см

Объём куба равен 1000.00 куб.см}

2. Дано трёхзначное число N. Определить, какая из его цифр больше - первая

или последняя. Если цифры равны, то выдать обоэтом сообщение.

Цифры трёхзначного числа.

и

Введите трёхзначное число N: 691

Первая цифра больше

б

л

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

N=258

и

{Последняя цифра больше}

N=414

{Цифры равны}

б

ая

3. Найти и вывести на печ ть десять первых натуральных чисел, которые

кратны

а.

нн

Натуральные числа кратные числу а.

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

Послед вательность чисел:

3

6

9

12о

15

18

21

24

27

30

Пов

к

ори

ре запуск программы, используя другое значение числа: а=12

{Последовательностьт

чисел:

е

24

36

48

60

72

84

96

108

120}

Эл

12

45

пунктами S км и машины встретились через t часов.

АГ

НИ

Скорость автомашин.

Введите исходные данные:

Расстояние между пунктами S (км): 120

Время встречи t (ч): 1

Скорость грузовой машины 40 км/ч

Скорость легковой машины 80 км/ч

Повторите запуск программы, используя другие исходные данные: S=150, t=1.2

{Скорость грузовой машины 41.67 км/ч}

т

ека

{Скорость легковой машины 83.33 км/ч}

о

2. Дано двузначное число N. Сравнить цифры этого числа и выдать соответст-

вующее сообщение.

л

и

Двузначное число.

Введите двузначное число N: 47

Первая цифра меньше второй

б

и

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

N=81 {Первая цифра большеб

второй}

N=22 {Цифры равны}

3. Дана последовательность чисел 31; 32; 33; …;3n, где n задаётся вводом. Найти

сумму элементов последовательностиая

, больших заданного числа a. Показа-

тели степеней и элеме ты последовательности вывести в табличном виде.

о

1

3

Сумма степе ей числа 3.

р

количество n и число а: 5 70

Введите черезннпробел

т

показатель

элемент

2

9

3

27

4

81

5

243

Эл

Суммак

равна 324

Повторитее

запуск программы, используя другие значения параметров:

n=10,a=50

{Сумма равна 88533}

46

ём конуса.

АГ

НИ

Объем конуса.

Введите исходные данные:

Длина образующей конуса L (см): 5

Длина окружности С (см): 20

Объем конуса равен 40.91 куб.см

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

L=15, С=25

{Объем конуса равен 239.77 куб.см}

2. Наибольшее из трех целых чисел

x, y, z замени ьекана (–1). Числа вывес-

ти в той же последовательности.

о

т

Максимум трех чисел.

45 23 11

Введите через пробел три числа x, y, z:

Результат: -1 23

11

л

и

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

x=-5, y=5, z=2

б

2}

{Результат: -5 -1

и

3. Вычислить значения функции, если диапазон изменения аргумента и его

шаг заданы. Вычислить сумму бзначений функции, радианная мера которых

больше 1.

x2 + 2a

y = 1− tg

a = 2.1; 150 ≤ x ≤ 900 , h = 150

нн

x + a2

Аргументы и значе ия функцииая

вывести в табличном виде.

Таблица з аче ий функции.

Y

х (градусы)

х (радианы)

т

р

о

15

0.26

3.34

30

0.52

3.10

к

45

0.79

2.66

60

1.05

2.20

е

75

1.31

1.79

Эл

90

1.57

1.44

Сумма значений функции равна 5.43

47

Вариант 5

НИ

1. Радиусы оснований усечённого конуса R1 см и R2 см, образующая наклоне-

на к плоскости основания под углом x0 . Найти объём конуса.

АГ

Объем усеченного конуса.

Введите исходные данные:

Радиус большего основания R1 (см): 5

Радиус меньшего основания R2 (см): 2

Угол наклона образующей x (градусы): 45

Объем усеченного конуса равен 122.52 куб.см

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

R1=15,R2=10,x=60

т

{Объем усеченного конуса равен 4307.77 кубека.см}

2. Вычислить значение функции при любых значениях параметров а, b и х.

ìln((x + 1)× (b - a)),

x > 0

оb > a

y = íïln((x + 1)× (a - b)),

x > 0 и

a > b

ï

2

+ a

2

2

,

б

и

îx

+ b

в других с учаях

Значение функции.

и

л

х: 1 2 1

Введите через пробел значения параметров а, b и

б

Значение функции y равно 0.69

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

а=1,b=2, х=-1

ая

{Значение функции y равно 6.00}

3. Найти и вывести на печ ть восемь первых натуральных чисел, которые

нн

оканчиваются и делятся на з данную цифру n.

Натуральные числа кратные числу а.

Введите цифру n: 1

Послед

вательность

чисел:

1

11

21

о31

41

51 61

71

Пов

к

ори

ре запуск программы, используя другое значение числа: n =6

{Последовательностьт

чисел:

е

36

66

96

126

156

186

216}

Эл

6

48

Вариант 6

НИ

1. В цилиндре площадь основания равна Q см2, а площадь полной поверхности

цилиндра равна S см2. Найти площадь осевого сечения цилиндра.

Площадь осевого сечения цилиндра.

АГ

Введите исходные данные:

Площадь основания Q (кв.см): 12

Площадь полной поверхности цилиндра S (кв.см): 40

ека

Площадь осевого сечения цилиндра равна 5.09 кв.см

Повторите запуск программы, используя другие исходные данные: Q=2, S=40

{Площадь осевого сечения цилиндра равна 11.46 кв.см}

2. Рис расфасован в два пакета. Вес первого – m

о

кг, в орого – n кг. Определить

и

вес этого пакета в

какой пакет тяжелее — первый или второй и перевестит

граммы, если он окажется меньше 15 кг.

Пересчет веса из килограммов в граммы.

Введите вес первого пакета m (кг): 5

Введите вес второго пакета n (кгл ): 8

Ответ: 8000 гр.

б

б

Повторите запуск программы, используяи

другие исходные данные:

m=15, n=25

{Ответ: 25 кг}

y = a ×sin

xая

a = 8 .45 ;

5 0

≤ x ≤ 55 0 ,

h = 10 0

x + cos 2

x

о

Аргументы и з аче ия функции вывести в табличном виде.

Таблица значенийнн

функции.

y

т

р

х (градусы) х (радианы)

к

5

0.09

0.23

15

0.26

0.63

е

25

0.44

0.98

35

0.61

1.30

Эл

45

0.79

1.60

55

0.96

1.85

Вариант 7

НИ

го числа N.

АГ

Сумма цифр трёхзначного числа.

Введите натуральное трехзначное число N: 128

Сумма цифр числа равна 11

Дважды повторите запуск программы, используя другие зн чения чисел:

N=450

{Сумма цифр числа равна 9}

N=999

{Сумма цифр числа равна 27}

2.

Определить является ли введенное вами целое число N чётным. Для четного

числа извлечь квадратный корень, если оно положительноеека

, в противном

случае — возвести в куб. Для нечетного числа вывести соответствующее со-

общение.

и

о

т

Четность числа.

Введите целое число N: 16

Квадратный корень из четного числал

равен 4

Дважды повторите запуск программыб,

спользуя другие значения числа:

N=-2

{Куб чётного числа равен -8}

N=15

и

{Введённое число не является чётным}

3.

б

В ЭВМ вводятся по очереди данные о росте N учащихся. Определить коли-

чество учащихся кл сса, рост которых превышает a см.

Средний рост учащихся.

ая

Введите исход ые данные:

общее количество учащихся класса N: 7

рост a (см): 150

через пр бел

ннданные о росте каждого учащегося (см):

150

150.5

145

170.8

147

164.3

154

о

Количес во равно 4 человек

р

запуск программы, используя другие данные: N=11, a=170

Повторитет

169.5

142

180

163

170

170.3

152

178

190

151

185

к

{Количество равно 5 человек}

Эл

е

50