Министерство образования и науки Российской Федерации
Восточно-Сибирский государственный технологический университет
Задания по информатике для студентов специальностей:
140205 – “Электроэнергетические системы и сети”, 140211 – “Электроснабжение” “Тепловые электрические станции”
(№№ 1 – 9)
часть 1
Улан-Удэ
2005
Задание 1. Вычисления по формулам
Составить подробную спецификацию программы, реализующую линейный алгоритм с примерами входных и выходных данных. Разработать программу, используя таблицы разработки. Выполнить трассировку программы. Ввести программу в ЭВМ, сравнить результаты трассировки и работы программы.
Содержание отчета:
1.Задание
2.Спецификация с пояснениями расчетных формул
3.Таблица разработки
4.Текст программы
5.Таблица трассировки
1.Вычислить диагональ и площадь прямоугольника, вписанного в окружность радиуса R, если отношение его сторон равно n.
2.Даны три действительных положительных числа. Найти среднее арифметическое и среднее геометрическое этих чисел.
3.Даны два действительных числа. Найти среднее арифметическое чисел и среднее геометрическое их модулей.
4.Вычислить процент материала ушедшего в отходы, если из куба с ребром a был выточен шар радиуса R (2R < a)..
5.Смешано v1 литров воды температуры t1 с v2 литрами воды темпе-
ратуры t2. Найти объем и температуру образовавшейся смеси.
6.Определить периметр правильного n-угольника, описанного около окружности радиуса r.
7.Три сопротивления R1, R2, R3 соединены параллельно. Найти экви-
валентное сопротивление цепи.
8.Определить время падения камня на поверхность земли с высоты h.
9.Дана сторона равностороннего треугольника. Найти площадь этого треугольника.
10.Вычислить период колебаний маятника длины l.
11.Определить силу притяжения F между телами массой m1 и m2,
находящимися на расстоянии r друг от друга.
12.Дана гипотенуза и катет прямоугольного треугольника. Найти радиус вписанной окружности
13.Известна длина окружности. Найти площадь круга, ограниченного этой окружностью
14.Найти площадь кольца, внутренний радиус которого равен r1, а внешний – заданному числу r2 (r2 > r1).
15.Треугольник задан величинами своих углов и радиусом описанной окружности. Найти стороны треугольника.
16.Определить время, через которое встретятся два тела, равноускоренно движущиеся навстречу друг другу, если известны их начальные скорости, ускорения и начальное расстояние между ними
17.Найти сумму членов арифметической прогрессии a, a + d, ..., a + (n - 1)·d по данным значениям a, d, n.
18.Вычислить расстояние между двумя точками с координатами x1,
y1 и х2, у2.
19.Найти площадь сектора круга, радиус которого равен r, а дуга содержит заданное число радиан ϕ.
20.Даны действительные положительные числа а, b, с. По трем сторонам с длинами a, b, c можно построить треугольник.. Найти углы треугольника.
Задание 2. Условный оператор
Выполнить трассировку программы для заданных входных данных. Ввести программу в ЭВМ, сравнить результаты трассировки и работы программы.
Содержание отчета:
1.Задание
2.Текст программы
3.Таблица трассировки
1. program prim1(input, output); |
|
|
read(x, y); |
var x, y, z: integer; |
|
|
if x < y then |
begin |
|
|
z := x |
read(x, y); |
|
|
else |
if x > y then |
|
|
z := y; |
z := x |
|
|
writeln(z) |
else |
|
|
end. |
z := y; |
|
|
3. program prim1(input, output); |
writeln(z) |
|
|
var x, y, z, f: integer; |
end. |
|
|
begin |
|
|||
2. program prim1(input, output); |
|
|
read(x, y, z); |
var x, y, z: integer; |
|
|
if x > y then |
begin |
|
|
if x > z then |
f := x else f := z else
if y > z then f := y
else
f := z; writeln(f); end.
4.program prim1(input, output); var x, y, z, f: integer;
begin read(x, y, z); if x < y then if x < z then f := x
else f := z else
if y < z then f := y
else
f := z; writeln(f); end.
5.program prim1(input, output); var x, y, z, f: integer;
begin read(x, y, z);
f := x * y DIV z;
if x + y + z < f then f := x + y + z; writeln(f)
end.
6.program prim1(input, output); var x, y, z, f: integer;
begin read(x, y, z); f := x * y * z;
if x + y + z DIV 2 > f then
f := x + y + z MOD 2; f := sqr(f) + 1; writeln(f)
end.
7.program priml(input,output); var x, y, z: integer;
begin read(x, y); if x > y then
z := x - y else
z := y - x + 1; writeln(z); end.
8.program prim1(input, output); var x, y: integer;
begin read(x); y := x;
if x >= -2 then if x < 2 then y := sqr(x) else
y := 4; writeln(y) end.
9.program prim1(input, output); var x, y: integer;
begin read(x);
y := sqr(x) * sqr(x); if x >= 4 then
y := 0 else
if x > 0 then if x <= 4 then y := x; writeln(y) end.
10.program prim1(input, output); var x, y: integer;
begin read(x);
if x <= 2 then
у := sqr(x) + 4 * x + 5 else
y := sqr(x) DIV 4 + x * 5; writeln(y);
end.
11.program prim1(input, output); var x, y: integer;
begin read(x);
if x <= 0 then y := 0
else
if x <= 1 then y := sqr(x) - x else
y := sqr(x) - 10; writeln(y)
end.
12.program prim1(input, output); var x, y, f, d: integer;
begin read(x, y); if x > y then f := x
else
f := y;
if x < y then d := x
else
d := y;
f := d MOD f; writeln(f) end.
13.program prim1(input, output); var x, y, z, f: integer;
begin
read(x, y, z); f := x;
if f < y then f := y;
if f < z then f := z; writeln(f); end.
14.program prim1(input, output); var x, y, z, f: integer;
begin read(x, y, z); f := z;
if f > y then f := y;
if f > z then f := z; writeln(f) end.
15.program prim1(input, output); var x, у, z, f, d: real;
begin read(x, у, z); f := x;
if f < y then f := y;
if f < z then f := z;
if x > y then f := f * x else
f := f * y; writeln(f) end.
16.program prim1(input, output); var x, y: integer;
begin read(x);
if x MOD 2 = 0 then у := 2 * x + 3
else