Выпуск № 1389 от 09.06.2009, 17:35
Администратор рассылки: Калашников О.А., Руководитель
В рассылке: подписчиков - 559, экспертов - 185
В номере: вопросов - 2, ответов - 4
Нам очень важно Ваше мнение об этом выпуске рассылки. Вы можете оценить этот выпуск по пятибалльной шкале, пройдя по ссылке: оценить выпуск >>
Вопрос № 168928: Уважаемые экспетры, я уже задавал вопрос по поводу ввода пароля при помощи функции InputBox. Но ситуация несколько изменилась. Пароль вводится в стандартную форму Password Dialog и при проверке правильности пароля с помощью InputBox выводится сообщен...
Вопрос № 168949: Помогите сделать прогу Плиз Пожалйста !!! Работа с массивами Дана последовательность действительных чисел а1 , …, а10. Заменить все ее члены, большие данного Z, этим числом. Подсчитать количество замен....
Вопрос № 168928:
Уважаемые экспетры, я уже задавал вопрос по поводу ввода пароля при помощи функции InputBox. Но ситуация несколько изменилась. Пароль вводится в стандартную форму Password Dialog и при проверке правильности пароля с помощью InputBox выводится сообщение пароль правильный , если нет повторите ввод пароля. Помогите, пожалйуста разобратся, что-то у меня не получается.
Отвечает Victor Pyrlik, Модератор :
Здравствуйте, Vlad9240. Вы немножко путаете.. функция InputBox предназначена для ввода текста.. я уже Вам это говорил, в неё не вводят пароль, т.к. он там открытый. Для вывода сообщения, используется, например, MessageBox.
Если пароль не верный, то и закрывать окно Password Dialog нет смысла - пусть повторяет пользователь ввод пока не введет верный пароль, или пока не нажмет "Отмена". Вот, не большая программка. Конечно, в реальных ситуациях проверку пароля выносят в главную
функцию (как минимум) и формы с запросом пароля и т.д. создается динамически. Но в данном случае показан сам смысл.
Ответ отправил: Victor Pyrlik, Модератор
Ответ отправлен: 06.06.2009, 12:18
Оценка ответа: 5 Комментарий к оценке: Спасибо за пример!
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 250527
на номер 1151 (Россия) |
Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 168949:
Помогите сделать прогу Плиз Пожалйста !!! Работа с массивами Дана последовательность действительных чисел а1 , …, а10. Заменить все ее члены, большие данного Z, этим числом. Подсчитать количество замен.
Отвечает Padre, 1-й класс :
Здравствуйте, Васильев Евгений !
Функция построена неверно. Поскольку переменные и массива и числа для сравнения и замены заданы локально, внутри функции, то и заполнять их значениями нужно тоже внутри функции. А сейчас работа идёт с незаполненным массивом и числом. И задать.заполнить их невозможно.
-----
∙ Отредактировал: sir Henry, Модератор
∙ Дата редактирования: 05.06.2009, 12:03 (время московское)
Приложение:
Ответ отправил: Padre, 1-й класс
Ответ отправлен: 04.06.2009, 17:34
Оценка ответа: 3
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 250436
на номер 1151 (Россия) |
Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Отвечает Абельхарисов Руслан/Marked One, Практикант :
Здравствуйте, Васильев Евгений . Код программы для Delphi с комментариями(программа сделана в виде консольного приложения):
Код:
program Project2; {$APPTYPE CONSOLE}
const //Длина массива N = 10;
var //Массив a: array [1..N] of integer; //i
- для цикла For, count - кол-во замен i, z, count: integer;
begin //Получаем число z Write('Введите z: '); ReadLn(z); //Заполняем и выводим массив Write('Исходный массив со случаными числами: '); randomize; for i := 1 to N do begin a[i] := random(10); write(a[i], ' '); end; //Обнуляем кол-во замен count := 0; //Перебираем массив for i := 1 to N do
//Если текущий элемент больше z, то... if a[i] > Z then begin //...заменяем его на z... a[i] := Z; //...и увеличиваем счетчик замен inc(count); end; //Выводим результаты WriteLn; WriteLn('Кол-во замен: ', count); Write('Обработанный массив: '); for i := 1 to N do write(a[i], ' '); ReadLn; end.
#thank 250455
на номер 1151 (Россия) |
Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Отвечает alexng, 1-й класс :
Здравствуйте, Васильев Евгений .
program Project1; {$APPTYPE CONSOLE}
var i,n:integer; var nass:[1..10] as integer; begin n:=0; read(x); for i:=1 to 10 do begin if nass[i]>x then begin nas[i]:=x; n:=n+1; end; end; end.
Работа с необъявленой переменной Х. Компилятор такую трагическую ошибку не пропустит.
-----
∙ Отредактировал: sir Henry, Модератор
∙ Дата редактирования: 05.06.2009, 12:05 (время московское)
Ответ отправил: alexng, 1-й класс
Ответ отправлен: 05.06.2009, 11:37
Оценка ответа: 4
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 250472
на номер 1151 (Россия) |
Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Нам очень важно Ваше мнение об этом выпуске рассылки. Вы можете оценить этот выпуск по пятибалльной шкале, пройдя по ссылке: оценить выпуск >>
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.