Форум программистов, компьютерный форум, киберфорум
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;
13107 / 5888 / 1707
Регистрация: 19.09.2009
Сообщений: 8,808
11.05.2015, 22:59 0

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

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

Ответ

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

Вернуться к обсуждению:
Неправильно работает функция Delphi
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
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
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru