Практикум по решению задач на ЭВМ. Тарова И.Н - 57 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Практикум по решению задач на ЭВМ
множества точек). Медианой множест-
ва, состоящего из четного числа точек
плоскости, никакие три точки из кото-
рых не лежат на одной прямой, назы-
вается прямая, соединяющая две точки
множества, с обеих сторон от которой
лежит равное число точек.
Даны действительные числа х
1
, у
1
, х
2
,
у
2
, … , х
n
, у
n
(n – четное число). Найти
число медиан множества точек с коор-
динатами (х
1
, у
1
), (х
2
, у
2
), … , (х
n
, у
n
).
заданной области). На плоскости задана
точка М (х, у) и треугольник с вершина-
ми (х
1
, у
1
), (х
2
, у
2
), (х
3
, у
3
). Определить,
лежит ли точка М внутри треугольника.
Зад.5. (файлы: стандартные операции).
Дан файл f, компоненты которого яв-
ляются действительными числами.
Найти:
а) сумму компонент файла;
б) последнюю компоненту файла;
в) наибольшее из значений компонент.
Зад.5. (файлы: перестановка компонент в
обратном порядке).
Дан файл f, компоненты которого – це-
лые числа. Записать в файле g компонен-
ты файла f в обратном порядке.
Лабораторная работа № 16
Целые числа Простые и составные числа
1) Дано натуральное число n. Получить первые n строк треугольника
Паскаля.
2) Дано натуральное число n. Получить все пифагоровы тройки натураль-
ных
чисел, каждое из которых не превосходит n.
3)Дано натуральное число n. Найти все меньшие n простые числа, исполь-
зуя решето Эратосфена.
4)Найти все пары дружественных чисел, лежащих в диапазоне от 200 до
300.
5)Найти все меньшие 100 натуральные числа, которые при возведении в
квадрат дают палиндром.
6) Даны три целых числа A, B, C, найти НОД(A,B,C) (
вариант 1 обычный,
вариант 2 с процедурой или функцией).
Вариант I
program nod1(input,output);
var A,B,C,D:integer;
function nod(a,b:integer):integer;
57
                     Практикум по решению задач на ЭВМ


  множества точек). Медианой множест-          заданной области). На плоскости задана
  ва, состоящего из четного числа точек        точка М (х, у) и треугольник с вершина-
  плоскости, никакие три точки из кото-        ми (х1, у1), (х2, у2), (х3, у3). Определить,
  рых не лежат на одной прямой, назы-          лежит ли точка М внутри треугольника.
  вается прямая, соединяющая две точки
  множества, с обеих сторон от которой
  лежит равное число точек.
  Даны действительные числа х1, у1, х2,
  у2, … , хn, уn (n – четное число). Найти
  число медиан множества точек с коор-
  динатами (х1, у1), (х2, у2), … , (хn, уn).
  Зад.5. (файлы: стандартные операции).        Зад.5. (файлы: перестановка компонент в
  Дан файл f, компоненты которого яв-          обратном порядке).
  ляются действительными числами.              Дан файл f, компоненты которого – це-
  Найти:                                       лые числа. Записать в файле g компонен-
  а) сумму компонент файла;                    ты файла f в обратном порядке.
  б) последнюю компоненту файла;
  в) наибольшее из значений компонент.

  Лабораторная работа № 16
  Целые числа Простые и составные числа
1) Дано натуральное число n. Получить первые n строк треугольника
Паскаля.

2) Дано натуральное число n. Получить все пифагоровы тройки натураль-
ных чисел, каждое из которых не превосходит n.

3)Дано натуральное число n. Найти все меньшие n простые числа, исполь-
зуя решето Эратосфена.

4)Найти все пары дружественных чисел, лежащих в диапазоне от 200 до
300.

5)Найти все меньшие 100 натуральные числа, которые при возведении в
квадрат дают палиндром.

6) Даны три целых числа A, B, C, найти НОД(A,B,C) (вариант 1 обычный,
вариант 2 с процедурой или функцией).

  Вариант I
  program nod1(input,output);
  var A,B,C,D:integer;
    function nod(a,b:integer):integer;


                                         57

Страницы