Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Тест Delphi https://www.cyberforum.ru/ delphi-beginners/ thread1443587.html
Сделал тест на Delphi, но все делается только лишь однообразно 10 вопросов и по порядку каждый раз... А как мне сделать, чтобы эти вопросы наугад выводились, да и варианты ответов чтоб наугад выводились..? Помогите пожалуйста procedure TForm1.Button2Click(Sender: TObject); begin Inc(QuestionNum); lbl1.Visible:=true; Button2.Caption:='Далее'; GroupBox1.Color:=clYellow; if...
Delphi Функция среднего роста
Ребят, нужна помощь. Нужно описать функцию вычисления среднего роста в группе у девочек. С вводом и выводом проблем нет, помогите с функцией - в программе она называется sredrost. Заранее спасибо. unit Unit1; interface uses SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms, QDialogs, QStdCtrls, QExtCtrls, QGrids; type
Delphi Добавить букву в конец нетипизированного файла Здравствуйте.Такой вопрос.Как добавить букву в конец НЕтипизированного файла. С ними ведь можно делать следующее: просмотреть и добавить новый компонент в конец файла. Заранее спасибо. https://www.cyberforum.ru/ delphi-beginners/ thread1443534.html Delphi Ошибка в программе [тема textfile, параметры, var] program laalaa; {$APPTYPE CONSOLE} uses SysUtils; var NFile: string; Function max(var NFile: string): string; https://www.cyberforum.ru/ delphi-beginners/ thread1443532.html
Загрузка проекта с 3 формы Delphi
Ребят, как сделать что бы при запуске проекта, открывалась 3 форма допустим, а не 1; Подскажите пожалуйста.
Delphi StringGrid Работа со строками https://www.cyberforum.ru/ delphi-beginners/ thread1443453.html
Ох, люди добрые, помогите пожалуйста Делал лабу на Delphi, почти всё доделал и где-то допустил косяк Косяк следующий: На Form2 - есть поля, обозначающие какой-то набор атрибутов, который по нажатию на кнопку "Добавить" должен вноситься в StringGrid1 на Form1 По-началу всё прекрасно добавлялось в таблицу, но сейчас вообще ничего не происходит! P.S. Любопытно, что если использовать готовую...
Delphi Дублируется вывод информация из потока https://www.cyberforum.ru/ delphi-beginners/ thread1443451.html
В общем, каждый поток получает информацию со странички с разным id, т.е потоки синхронно работают с разными страницами, но иногда эта информация дублируется, т.е: hklkv / 487 fkplv / 498 dmlkv / 489 xulhv / 499 fdlnk / 500 fdlnk / 500 fdlnk / 500
Delphi Обработка данных комбинированного типа
Условие задачи на картинке. помогите пожалуйста реализовать код
Delphi Заменить все большие семи члены последовательности числом 7. Вычислить количество таких членов Даны натуральные число n,целые числа a1...an.Заменить все большее семи члены последовательности a1...an числом 7. Вычислить количество таких членов. Помогите с задачей. https://www.cyberforum.ru/ delphi-beginners/ thread1443424.html Delphi Как скомпилировать приложение Как сделать .exe файл в delphi7 через Project>Options? (packages) - точно как? p.s. другие способы создания .exe файлов читал, для меня они не подходят, нужен независимый .exe.:wall: https://www.cyberforum.ru/ delphi-beginners/ thread1443418.html
Delphi Вычислить выражения, не используя стандартную функцию min
Срочно нужна помощь с задачей по Delphi. Даны действительные числа a и b. Вычислить, не используя стандартную функцию min: u=min(a,b), v=min(a*b, a+b), min(u+v^2, 3.14).
Delphi Неправильно считает частоту https://www.cyberforum.ru/ delphi-beginners/ thread1443315.html
Подскажите как мне посчитать частоту букв. Здесь частота неправильно считается,т.е. если например в тексте 1200 символов неправильно считает unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls,math;
 Аватар для Mawrat
13107 / 5888 / 1707
Регистрация: 19.09.2009
Сообщений: 8,808
11.05.2015, 22:59 0

Неправильно работает функция - Delphi - Ответ 7600509

11.05.2015, 22:59. Показов 770. Ответов 1
Метки (Все метки)

Ответ

Потому, что массив x всегда обнулённый оказывается. Процедура Input() не возвращает заполненный массив в вызывающий код. Т. е., при вызове Input(x), содержание массива x не изменится. Чтобы это исправить, параметр надо объявить со спецификатором var:
Delphi
1
procedure Input(var x:t1);
Добавлено через 4 минуты
Цитата Сообщение от Mawrat Посмотреть сообщение
Потому, что массив x всегда обнулённый оказывается.
В дополнение. Если переменная объявлена на глобальном уровне, то она при запуске программы обнуляется. В том числе массивы - обнуляются их элементы. Если переменная объявлена на уровне подпрограммы или метода - тогда её содержимое не определено - там может быть любой "мусор".
В данном случае массив "x" объявлен на глобальном уровне. Поэтому, изначально, при запуске программы, все его элементы обнулены.

Вернуться к обсуждению:
Неправильно работает функция Delphi
1
Заказать работу у эксперта
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
11.05.2015, 22:59
Готовые ответы и решения:

Неправильно работает функция gets( )
..... char *str = new char; gets( str ); printf( "%s", str ); .....

Неправильно работает функция
Господа, написал следующий код, цель - заполнить имеющийся вектор структур данными из файла +...

Неправильно работает функция
Проблема заключается в том, что в случае, если пользователь вводит числа от 1 до 9 все работает...

Неправильно работает функция
void FreeTop( Tree *&tree ) { if( tree->d == NULL )delete tree; else FreeTop( tree->d...

1
11.05.2015, 22:59
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
11.05.2015, 22:59
Помогаю со студенческими работами здесь

Неправильно работает функция
You are given natural number n. Calculate 12+22+...+n2. Example Input Output 2 5 Добавлено...

Неправильно работает функция rand()
Добрый день, неправильно работает функция rand(). Должно генерироваться число от 1 до 12, но вместо...

Неправильно работает функция replace()?
Нужно написать программу, которая заменяет в строке символ '/' на строку "". Ниже дан цикл, в...

Неправильно работает функция strrev
Пробую функцию реверс строки, этот код- echo strrev("Hello world!"); // выводит "!dlrow olleH"...

0
Новые блоги и статьи
Создание макробота, как способа экономии времени и варианта ИИ.
Hrethgir 28.01.2025
Чисто теоретически, создание ИИ на ПК можно разделить на части. Создать бота отвечающего за железо (эмулирование вкл, выкл, мышь, клавиатура), другой бот осуществляет распознавание изображений,. . .
[Golang] 121. Best Time to Buy and Sell Stock
alhaos 28.01.2025
В этой задаче мы получаем слайс целых чисел, которые означают цену акции в разные моменты времени, и должны вернуть максимально возможную прибыль от купли продажи акции. / / . . .
Проектирование и моделирование
hw_wired 28.01.2025
Введение в моделирование Моделирование представляет собой один из фундаментальных методов научного познания, который позволяет изучать объекты и явления через создание их упрощенных аналогов. В. . .
Алгоритмы и исполнители
hw_wired 28.01.2025
Введение в алгоритмы В современном мире информационных технологий алгоритмы играют основополагающую роль в решении различных задач и автоматизации процессов. Алгоритм представляет собой точную. . .
Хранение информации
hw_wired 28.01.2025
Введение: Роль систем хранения информации в современном мире В современную эпоху цифровых технологий эффективное хранение информации становится одним из ключевых факторов успешного развития любой. . .
Обработка числовой информации
hw_wired 28.01.2025
Введение в обработку числовой информации В современном мире обработка числовой информации стала неотъемлемой частью как профессиональной деятельности, так и повседневной жизни. Электронные таблицы. . .
Мультимедиа
hw_wired 28.01.2025
Введение в мультимедийные технологии В современном мире мультимедийные технологии стали неотъемлемой частью нашей жизни, проникнув во все сферы человеческой деятельности. Термин "мультимедиа". . .
Обработка текстовой информации
hw_wired 28.01.2025
Введение в обработку текстовой информации В современном мире обработка текстовой информации играет фундаментальную роль в различных сферах человеческой деятельности. Текстовые редакторы стали. . .
Обработка графической информации
hw_wired 28.01.2025
Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .
Python в Алгоритмике: Решение задач
hw_wired 28.01.2025
Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .
Компьютер как универсальное устройство для работы с информацией
hw_wired 28.01.2025
Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .
Информация и информационные процессы
hw_wired 28.01.2025
Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru