0 / 0 / 0
Регистрация: 14.11.2019
Сообщений: 77
1

Блок-схема алгоритма

16.12.2019, 10:12. Показов 432. Ответов 2
Метки нет (Все метки)

Подскажите как к этой программе составить блок схему?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
const
  nmax = 100;
 
function Dlina(x1, y1, x2, y2: real): real;
begin
  Dlina := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
end;
 
function cond(a, b, c: real): boolean;
begin
  cond := (a > abs(b - c)) and (a < b + c);
end;
 
function Perimetr(x1, y1, x2, y2, x3, y3: real): real;
begin
  Perimetr := Dlina(x1, y1, x2, y2) + Dlina(x1, y1, x3, y3) + Dlina(x2, y2, x3, y3);
end;
 
var
  t: array[1..nmax, 1..2] of real;
  n, i, j, k, imx, jmx, kmx: byte;
  mx: real;
 
begin
  randomize;
  repeat
    write('Введите количество точек от 3 до ', nmax, ' n=');
    readln(n);
  until n in [3..nmax];
  for i := 1 to n do
  begin
    t[i, 1] := random (1,5);
    t[i, 2] := random (1,5);
  end;
  writeln('Координаты точек:');
  writeln;
  write('N');
  for i := 1 to n do
    write(i:5);
  writeln;
  writeln;
  write('X');
  for i := 1 to n do
    write(t[i, 1]:5:1);
  writeln;
  write('Y');
  for i := 1 to n do
    write(t[i, 2]:5:1);
  writeln;
  writeln;
  mx := 0;
  imx := 0; jmx := 0; kmx := 0;
  for i := 1 to n - 2 do
    for j := i + 1 to n - 1 do
      for k := j + 1 to n do
        if cond(Dlina(t[i, 1], t[i, 2], t[j, 1], t[j, 2]),
                Dlina(t[i, 1], t[i, 2], t[k, 1], t[k, 2]),
                Dlina(t[j, 1], t[j, 2], t[k, 1], t[k, 2]))
        and (Perimetr(t[i, 1], t[i, 2], t[j, 1], t[j, 2], t[k, 1], t[k, 2]) > mx) then
        begin
          mx := Perimetr(t[i, 1], t[i, 2], t[j, 1], t[j, 2], t[k, 1], t[k, 2]);
          imx := i;
          jmx := j;
          kmx := k;
        end;
  if mx = 0 then write('Данные точки не образуют ни одного треугольника!')
  else write('Максимальный периметр имеет треугольник с вершинами № '
       , imx, ' ', jmx, ' ', kmx, ' = ', mx:0:2);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2019, 10:12
Ответы с готовыми решениями:

Блок-схема алгоритма
Здравствуйте! Помогите, пожалуйста, создать блок-схему по заданию: &quot;Составить алгоритм...

Блок-схема алгоритма
нужно написать блок-схему и написать программу в паскале. я чет вообще не врубаюсь в это...

Приведена блок-схема алгоритма

Правильна ли блок-схема алгоритма?
Ребята! Схема алгоритмов правильная? program lab_1_sm; const a=-11; b=-3; h=0.2; var...

2
Эксперт Pascal/Delphi
6756 / 4531 / 4801
Регистрация: 05.06.2014
Сообщений: 22,351
16.12.2019, 10:42 2
https://www.softsalad.ru/softw... y/fceditor
1
0 / 0 / 0
Регистрация: 14.11.2019
Сообщений: 77
16.12.2019, 15:42  [ТС] 3
Спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2019, 15:42

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

Составить блок – схему алгоритма и определить, что выводится в результате выполнения следующего алгоритма
Всем привет. Помогите плиз. Составить блок – схему алгоритма и определить, что выводится в...

Схема алгоритма
Составьте пожалуйста схему алгоритма программы с таким исходным кодом: program lab1; const ...

Схема алгоритма получения (печати) всех перестановок из n чисел
Помогите пожалуйста, нужна блок схема и код алгоритма получения (печати) всех перестановок из n...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.