Найдите ошибку, пожалуйста

09.12.2014, 17:40. Показов 612. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

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
program ShennonFano;
uses crt;
const
  a :array[1..6] of char = ('a','b','c','d','e','f'); 
  af:array[1..6] of integer = (10, 8, 6, 5, 4, 3);    
 
 
procedure SearchTree(branch:char; full_branch:string; start_pos:integer; end_pos:integer);
var
  dS:real; 
  i, m, S:integer; 
  c_branch:string; 
begin
 
  if (a[i]<>0) then c_branch := full_branch + branch
  else c_branch := '';
 
 
  if (start_pos = end_pos) then
  begin
    WriteLn(a[start_pos], ' = ', c_branch);
    exit;
  end;
 
 
  dS := 0;
  for i:=start_pos to end_pos do dS:= dS + af[i];
  dS := dS/2;
 
   for, while, repeat 
  S := 0;
  i := start_pos;
  m := i;
  while ((S+af[i]<dS) and (i<end_pos)) do
  begin
    S := S + af[i];
    inc(i); inc(m);
  end;
 
  
  SearchTree('1', c_branch, start_pos, m);
 
  SearchTree('0', c_branch, m+1, end_pos);
 
end;
 
begin
  WriteLn('Press <enter> to show');
  ReadLn;
  ClrScr;
 
  SearchTree(' ',' ', 1, 6);
  ReadLn;
end.

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

09.12.2014, 17:40

Ответы с готовыми решениями:

Найдите пожалуйста ошибку
Найдите, пожалуйста, ошибку. Здесь у меня программка, которая рисует левой клавишей мыши синие квадрат, линию и круг, а при нажатие правой...

Найдите пожалуйста ошибку в коде
uses crt; var x:arrayof integer; S,T,U,i,n:integer; y:real; begin n:=0; write('Введите размерность массива->'); readln(n); ...

Пожалуйста найдите ошибку в программе
Program p1; uses crt; var s:real; a,n,i,p:integer; Begin clrscr; writeln('vvedite a,n'); readln(a,n); s:=0; p:=a; for...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

09.12.2014, 17:40

Помогаю со студенческими работами здесь

Программа знак. Найдите пожалуйста ошибку
Помогите пожалуйста найти ошибку. Я не понимаю в чем здесь заключается ошибка.Вот программа Program Svetofory; uses GraphABC; var...

сортировка массива. найдите ошибку, пожалуйста
Дан трехмерный массив. Расположите его элементы в порядке возрастания. uses crt; type matr= array of integer; matr1=...

Найдите ошибку,пожалуйста((заранее благодарен!!!
Матрица 5х5 хранится в текстовом файле mdata.txt.Написать программу,которая транспонирует матрицу и дописывает её в данный файл. ...

Найдите ошибку пожалуйста
Дано два одномерных массива все числа у которых все цифры кратны 2 в новый массив и отсортировать по возрастанию!!!! Проблема в том что у...

найдите пожалуйста ошибку!
Построить таблицу значений функции y=cos2 x(косинус в квадрате) +2sin x –ex(х это степень) +3/x, при x, принимающем значения от -2 до 1 с...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

Наверх