Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Метод сортировки выбором https://www.cyberforum.ru/ pascal/ thread895671.html
Нужно создать программу при помощи которой 1)заполнить масив А(40) случайными числами из диапазона 100 до 999 2)вывести елементы масива в одну строчку 3)упорядочить масив учитывая такие критерии 1)Диапазон елементов масива 1-33 2)Метод сортировки выбором 3)Все выведенные рандомные числа должны быть кратны 3 Я тут уже немного сделал, но вот с кратностью не получается... program MAS;... 		Разработать программу сложения и вычитания двух матриц Pascal
Даны натуральные числа n, m и две матрицы разрядности nхm целочисленных элементов, где n,m≤10. Разработать программу сложения и вычитания двух матриц. %-) Помогите очень прошу! :wall:
Pascal Представление математическим выражением Доброго времени суток, дано выражение: X+9/(3*X/A)+Sqr(Cos(X))/2/Sqrt(X)+1.0E-5*Exp(9*Ln(X)) Собственно сам не могу решить задачу так как не могу точно сказать где начинается знаменатель, и смущает (3*X/A):xex: Вот все что осилил сам и уверен что правильно: x+9/(3*X/A)+cos^2/2/x^0.5+10^-5*X^9 Заранее благодарен за советы и помощь! https://www.cyberforum.ru/ pascal/ thread895610.html Pascal Создать текстовый файл, который содержит 1000 случайных целых чисел https://www.cyberforum.ru/ pascal/ thread895517.html
Создать текстовый файл, который содержит 1000 случайных целых чисел. Числа в файле должны быть разбиты на 50 строк по 20 чисел в строке. После создания этого файла вывести его на экран.
Ряд Маклорена Pascal
Помогите решить,в PascalABC 		Pascal Midlet Pascal: поле чудес Нужна в помощь в написании игры Помогите пожалуйста написать игру "поле чудес" ...Но с минимум визуализацией...Можно чуть чуть графики... Вопрос и ответ,которые уже заранее написанные в файле... https://www.cyberforum.ru/ pascal/ thread895442.html
Pascal Построить секторную диаграмму для данных чисел https://www.cyberforum.ru/ pascal/ thread895297.html
Помогите с простенькой задачкой :) Дано пять целых чисел a1...a5 Построить секторную диаграму для этих чисел. желательно с использованием "pieslice" 		Pascal Дана строка s, содержащая менее чем 100 символов. Заменить в данной последовательности все строчные латинские буквы одноименными заглавными
Дана строка s, содержащая менее чем 100 символов. Заменить в данной последовательности все строчные латинские буквы одноименными заглавными. Использовать стандартные процедуры и функции в действиях над строками. Показал var s:string; i:integer; begin readln(s); for i:=1 to length(s)do s:=Upcase(s);
Pascal Динамический список в Pascal Здравствуйте. Изучаю список в паскале и наткнулся на непонятную вещь. Суть задачи: есть программа. Программа умеет создавать новые элементы списка и заполнять их, умеет выводить статистику по элементам и выводить содержимое элементов. Но после вывода статистики или содержимого становится невозможным добавить еще один элемент в список. Грешу на указатели, но черт знает... type Ukazatel = ^S;... https://www.cyberforum.ru/ pascal/ thread895086.html Pascal Найти число положительных элементов и их сумму, которые находятся на главном диагонале элементов матрицы Кто сможет решит ?! Пожалуйста! 2 - задача Массив: С(N,N) Найти число положительных элементов и их сумму, которые находятся на главном диагонале элементов матрицы. https://www.cyberforum.ru/ pascal/ thread894996.html
Pascal Сортировка односвязного списка
Помогите доделать эту лабораторную. В ней проблема с сортировкой односвязного списка, функцию для сортировки взял отсюда, но она не работает с этими входными данными: 153 967 8 0 9 22 35 1, к тому же автор не знает про именование функций и переменных и читать его код его сортировки тяжело. Сортирую по ключам (ключ - первая цифра числа). Вчера нашел ошибку, она была в том, что при обмене значений... 		Pascal Найти сумму чисел ряда, модуль которых больше или равен числу е https://www.cyberforum.ru/ pascal/ thread894535.html
Даны числовой ряд и некоторое число е. Найти сумму чисел ряда, модуль которых больше или равен числу е.Общий член ряда имеет вид a_{n}=\frac{(-1)^{n-1}}{n^{n}} Программа в любом случае выдает в ответе сумму чисел 0, почему??? program posledovatelnost; var i,n,m:integer; a,e,s:real; begin write('Введите число m - ');readln(m); write('Введите число e - ');readln(e); a:=0;
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32835 / 21172 / 8148
Регистрация: 22.10.2011
Сообщений: 36,431
Записей в блоге: 8
10.06.2013, 00:58 0

Сохранить бинарное дерево в файл - Pascal - Ответ 4697320

10.06.2013, 00:58. Показов 2952. Ответов 7
Метки (Все метки)

Ответ

Цитата Сообщение от Roxanne Посмотреть сообщение
Не сохраняется
Да, не сохраняется, потому что Exit, который выполняется при вводе звездочки, выходит не из цикла, а из процедуры orgtree, соответственно, до sohr дело даже не доходит... Если честно - не совсем понятно, чего ты хочешь добиться, сохранять дерево через sohr, или сохранять данные через write(f, ...), не используя sohr. вместе это использовать не нужно. А судя по дальнейшей работе с файлом (попытка добавления в конец файла из dobl, последовательное чтение из файла в процедуре prosmotr) - тебе нужно именно второе.

Либо вообще убери все попытки работать с файлом кроме как sohr + readfile:

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

procedure dobl; {процедура добавления листа к дереву}
begin
  writeln('Добавления листа к дереву');
  readln(z.nomer);
  readln(z.st_otp);
  readln(z.st_pr);
  readln(z.vr_otp);
  readln(z.vr_pr);
  readln(z.stoim);
  top:=addtree(top,z); // добавили к дереву узел
  rewrite(f);
  sohr(top); // сохранили полностью дерево в файле
  close(f);
end;
 
procedure orgtree; {процедура организации дерева}
var answer : char;
begin 
  writeln('Организация дерева');
  writeln(' ');
  top:=nil;
  repeat
    dobl; // добавляем узел, используя процедуру dobl, не надо дублировать код !!!
    writeln('еще узел? (y/n)');
    readln(answer);
  until not (answer in ['y', 'Y']); 
  // ничего не надо сохранять, сохранение всего дерева
  // делается после ввода узла в dobl
end;
В общем, программу проще полностью переписать с нуля, чем исправить, в ней я вижу копи-паст как минимум из трех разных программ, и работать оно правильно уже не будет, всё перемешано...

Вернуться к обсуждению:
Сохранить бинарное дерево в файл Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 10.06.2013, 00:58
Готовые ответы и решения:

Исходное бинарное дерево превратить в бинарное дерево поиска, при этом сохранив его структуру
Помогите, не могу понять!( Нужно исходное бинарное дерево превратить в бинарное дерево поиска, при...

Преобразовать идеальное бинарное дерево в бинарное дерево поиска
Всем привет, я создал идельное бинарное дерево и написал к нему функции. Как мне теперь можно...

бинарное дерево?Файл?
объясните пожалуйста что означает слово бинарное?

файл, структура, бинарное дерево
-------------------------------------------------------------------------------- Доброго времени...

7
10.06.2013, 00:58
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 10.06.2013, 00:58
Помогаю со студенческими работами здесь

Бинарное дерево в типизированный файл
Задача над которой бьюсь уже третий день. 1. Сделать базу данных клиентов банка на основе ...

Бинарное дерево поиска. Как осуществить запись в файл и чтение из файла
Добрый день! Если кому не жаль своего времени окажите помощь! Необходимо осуществить запись в...

Бинарное дерево: как происходит добавления элемента в дерево с двумя параметрами
Здравствуйте! Прошу помощи у опытных программистов...)))) Есть класс дерево: class class1 ...

Бинарное дерево. Удалить из дерева часть вершин так, чтобы оставшееся дерево стало пирамидой
Дано бинарное дерево. Удалить из дерева часть вершин так, чтобы оставшееся дерево стало пирамидой.

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru