Методичка Программирование

b)	;
c)	вычисление площади треугольника по сторонам a,b,c.
9.
a)	Y sin(x3) x3 5 x2 x3 при x = 1.031;
b)	;
c)	вычисление объема параллелепипеда по сторонам a,b,c.
10.
a)	Y x5	| x 1|	|25 x5 | при x = 11.131;
b)	;

c)вычисление площади поверхности пирамиды (основанием которой является треугольник) по сторонам a,b,c и высоте h.

31

	11.			cos(x					1)
	a)	Y 2 x x								при x = 34.211;
							3 x
	b)		;
	c)	вычисление площади эллипса по радиусам a и b.
	12.
	a)	Y	x 4				| x| при x = –12.333;
					| x|
	b)		;

c)вычисление объема пирамиды (основанием которой является треугольник), по сторонам a,b,c и высоте h.

13.

a)	Y 3 ex tg(x) 1	при x = –3.449;
	x
b)		;
c)	вычисление площади параллелограмма по основанию a и высоте h.

14.

32

	a)	Y 4			1		при x = –45.276;
			| x 1|
					x2
	b)								;
	c)	вычисление площади поверхности тетраэдра по стороне a.
	15.
	a)	Y	sin(x) | x2				x| при x = 3.778;
	b)								;
	c)	вычисление площади равностороннего треугольника по высоте h.
	16.						x4
	a)	Y arcsin(x)							при x = –0.671;
						x2 x3
	b)								;
	c)	вычисление площади поверхности куба по стороне a.
	17.

33

a) Y cos(	x	) 2x при x = 0.692;

arctg(x)

b) ;

c)вычисление площади равнобедренной трапеции по основаниям a,b и высоте h.

18.

x5

a)

Y

| x 1|

при x = 14.072;

x2 x

b)

;

c)

вычисление объема сферы по диаметру D.

19.

a)

Y 5 x3

5

1

1

при x = 28.954;

x2

x3

34

b)			;
c)	вычисление площади ромба по диагоналям a и b.
20.
a)	Y 2x		x 4				при x = –4.741.;
				| x|
b)			;
c)	вычисление объема тетраэдры по стороне a.
21.
a)	Y 3 ex sin(x) при x = 2.312;
b)			;
c)	вычисление площади прямоугольника по стороне a и диагонали d.
22.

11

a)Y 1 3 x5 при x = 28.954;x

35

b) ; c) вычисление объема куба по стороне a.

23.

a)Y cos2(x x2) 1 при x = 4.823;

x3

b)		;
c)	вычисление площади поверхности сферы по диаметру D.
24.		sin(x2)
	Y
a)					1 при x = 5.311;
		| x2 x|
b)		;

c)вычисление объема пирамиды (основанием которой является квадрат) по стороне a и высоте h.

25.

36

a) Y 3| x3 ex | при x = 8.416;

2

b) ;

c)вычисление площади поверхности конуса по длине окружности c и высоте h.

Задания к лабораторной работе № 1

(Элементарные вычисления)

1.Присвоить переменной A значение 10259, а переменной B значение 137321. Вывести на экран сумму, разность и среднее значения этих переменных.

2.Инициализировать три переменные (A, B, C), вывести их на экран, вывести на экран их среднее значение, определить значение выражения

A2 B C3.

3.Ввести на отдельных строках фамилия, имя и отчество студента (должно быть приглашение к вводу). Затем вывести на экран полное имя

водну строку с пробелами между словами.

4.Ввести число X, вывести (x 1)2 , (x 1)3 ,x4 .

5.Предложить пользователю ввести три числа и запомнить их в

переменные A, B, C. Вычислить и вывести на экран значение b2 4 a c.

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

7.Температура в градусах Фаренгейта (F) может быть выражена в

градусах Цельсия (C) как C 59 (F 32). Предложите пользователю

ввести температуру в градусах Фаренгейта, выведите на экран значение в градусах Цельсия.

8.В колхозе есть силосная башня диаметром 4 метра и высотой 10 метров. Предложите пользователя ввести значение высоты силосной

массы, которая хранится в башне. Выведите на экран массу силоса в башне. Плотность силосной массы принять равной 1230 кг/м3.

9.Предложите пользователю ввести размеры прямоугольной комнаты и стоимость линолеума за квадратный метр. Добавьте 150 руб./м2 за укладку и 300 руб. за доставку. Выведите на экран общую стоимость.

37

10. Связь между вложенным капиталом P и будущим значением капитала A, получаемого за N лет при проценте прибыли J, задается формулой

P= A(1+J 100)N . Предложите пользователю ввести значение вклада,

процент прибыли и количество лет. Выведите на экран сумму по пришествии указанного периода.

11. Предложите пользователю ввести трехзначное число, сохраните это число в одну переменную целочисленную переменную, переверните цифры в этом числе.

Тема № 2. Условный оператор

К операторам, позволяющим из нескольких возможных вариантов выполнения программы (ветвей) выбрать только один, относятся if и case.

Условный оператор if

Оператор if выбирает между двумя вариантами развития событий: if <условие>

then <один_оператор> [else <один_оператор>];

Условный оператор if работает следующим образом:

1.Сначала вычисляется значение <условия> – это может быть любое выражение, возвращающее значение типа boolean.

2.Затем, если в результате получена «истина» (true), то выполняется оператор, стоящий после ключевого слова then, а если «ложь» (false) - без дополнительных проверок выполняется оператор, стоящий после ключевого слова else. Если же else-ветвь отсутствует, то не выполняется ничего.

Оператор выбора case

Оператор case позволяет сделать выбор между несколькими вариантами: case <переключатель> of

<список_констант> : <один_оператор>; [<список_констант> : <один_оператор>;] [<список_констант> : <один_оператор>;] [else <один_оператор>;]

end;

Замечание. Обратите внимание, что после else двоеточие не ставится. Существуют дополнительные правила, относящиеся к структуре этого оператора:

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

2.Переключатель может быть переменной или выражением.

3.Список констант может задаваться как явным перечислением, так и интервалом или их объединением.

4.Повторение констант не допускается.

38

5.Тип переключателя и типы всех констант должны быть совместимыми.

Пример оператора выбора:

case symbol(* :char *) of 'a'..'z', 'A'..'Z' :

writeln('Это латинская буква'); 'а'..'я', 'А'..'Я' : writeln('Это русская буква'); '0'..'9' : writeln('Это цифра');

' ',#10,#13,#26:

writeln('Это пробельный символ'); else writeln('Это служебный символ');

end;

Выполнение оператора case происходит следующим образом:

1)вычисляется значение переключателя;

2)полученный результат проверяется на принадлежность к тому или иному списку констант;

3)если такой элемент списка найден, то дальнейшие проверки уже не производятся, а выполняется оператор, соответствующий выбранной ветви, после чего управление передается оператору, следующему за ключевым словом end, которое закрывает всю конструкцию case;

4)если подходящего списка констант нет, то выполняется оператор, стоящий за ключевым словом else. Если else-ветви нет, то не выполняется ничего.

Задание

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

Образец выполнения задания

Определить, является ли треугольник со сторонами А, В, С равносторонним.

Текст программы: var a,b,c:real; begin

write(Rus('Введите сторону A:')); readln(a);

write(Rus('Введите сторону B:')); readln(b);

write(Rus('Введите сторону C:')); readln(c);

if ((a=b) and (b=c) and (c=a)) then writeln(Rus('Треугольник со сторонами A='),a:0:2,'

B=',b:0:2,' C='

39

,c:0:2,Rus(' равносторонний')) else

writeln(Rus('Треугольник со сторонами A='),a:0:2,' B=',b:0:2,' C='

,c:0:2,Rus(' не равносторонний')); readln;

end.

Рис. 7. Результат работы программы

Варианты домашних заданий

1.Дано натуральное число. Если оно чётное, то разделить его на два, в противном случае – умножить на два. Полученное число вывести на экран.

2.Для заданного натурального числа n (n > 10, проверить, указать если число меньше) вывести три последующих числа, если оно четное и три предыдущих в противном случае.

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

4.У вас имеется a рублей. Видеокассета стоит b рублей. Сможете ли вы купить n таких кассет? Сколько денег у вас останется.

5.Если данное натуральное число a меньше 10, то прибавить к нему 10, иначе – вычесть 10. Квадрат полученного числа вывести на экран.

6.Даны три натуральных числа. Определить большее из них.

7.Участники соревнований делятся на возрастные группы: 15-20 лет – первая группа; 21-35 лет – вторая группа; 36-50 лет – третья группа; Определить номер группы для участника соревнования.

8.Даны три натуральных числа. Определить, делится ли меньшее из них на пять.

9.Даны три натуральных числа. Определить, делится ли большее из них на меньшее без остатка.

10.Дано натуральное трехзначное число. Определить и вывести на экран наибольшую цифру этого числа.

11.Даны три числа. Определить, будет ли сумма двух любых из них более

50.

12.Дано натуральное трехзначное число. Определить, будет ли сумма его цифр четным числом.

13.Цена одной единицы товара составляет a рублей. Если покупатель берет больше 10 единиц товара, то цена за единицу b рублей. Определить стоимость n штук товара.

14.Известна скорость легковой машины, измеренная в км/ч, и скорость поезда, измеренная в м/с. Указать, чья скорость больше?

40