Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Где скачать Pascal для Windows 10 https://www.cyberforum.ru/ turbo-pascal/ thread1669396.html
Можете пожалуйста скинуть ссылку, или архив, нормального турбо паскаля который будет работать без проблем на windows 10. Я сколько смотрел, по этому сайту и по другим, нормального нигде не нашел.
Turbo Pascal Чтение csv файла с разделителем ";"
Всем привет. Подскажите как реализовать чтение файла csv с разделителем ";" и занесением значений в переменные. Структура файла - текстовые поля, т.е. : текст1; текст2; текст3 и т.д. Вот что ...
Turbo Pascal Получить целую часть числа
Дано действительное число х. Получить целую часть числа х; затем – число х, округленное до ближайшего целого; затем – число x без дробных цифр. *) Целой частью числа х, обозначаемой , называется...
Turbo Pascal В векторах заменить каждое число остатком от деления её квадрата на число компонентов вектора. В векторах a и b заменить каждое число остатком от деления её квадрата на N, где N- число компонентов вектора. https://www.cyberforum.ru/ turbo-pascal/ thread1668819.html
Turbo Pascal Почему дочернее окно не выводится https://www.cyberforum.ru/ turbo-pascal/ thread1668662.html
В руководстве сказано, что показывать дочернее окно нужно примерно так panel^.show(sw_showNA); Почему не выводится? С главным окном все нормально... Оно конечно ничего не делает, но так и должно...
Turbo Pascal Перебор четырехугольников и нахождение выпуклого
Такое задание, у меня есть N точек, я прохожусь по ним и формирую четырехугольники. После, мне из этих четырехугольников нужно выбрать выпуклый четырехугольник. Есть такой цикл: for i := 1 to N...
Сортировка двухмерного массива из файла без процедур и string Turbo Pascal
Здравствуйте! Дан файл с массивом 5х25 символов. В начале строки идет название, а в конце номер (типа: название____1238739). Его нужно считать, отсортировать (любым методом) по второму столбику и...
Turbo Pascal Какое минимальное расстояние должен проплыть Яша, чтобы выбраться из бассейна на бортик? ша плавал в бассейне размером NM метров и устал. В этот момент он обнаружил, что находится на расстоянии x метров от одного из длинных бортиков (не обязательно от ближайшего) и y метров от одного из... https://www.cyberforum.ru/ turbo-pascal/ thread1668390.html
Turbo Pascal Ход коня https://www.cyberforum.ru/ turbo-pascal/ thread1668387.html
Шахматный конь ходит буквой “Г” — на две клетки по вертикали в любом направлении и на одну клетку по горизонтали, или наоборот. Даны две различные клетки шахматной доски, определите, может ли конь...
Turbo Pascal Определите, может ли ферзь попасть с первой клетки на вторую одним ходом Шахматный ферзь ходит по диагонали, горизонтали или вертикали. Даны две различные клетки шахматной доски, определите, может ли ферзь попасть с первой клетки на вторую одним ходом. Входные данные... https://www.cyberforum.ru/ turbo-pascal/ thread1668386.html
3181 / 1755 / 470
Регистрация: 28.02.2015
Сообщений: 3,566
24.02.2016, 11:21 0

Ввод пароля с отображением звездочки вместо символа

24.02.2016, 11:21. Показов 2469. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses
  crt;
const
  z:string='qwerty';
var
  a:char;
  b:string;
  c:integer;
begin
  c:=2;
  repeat
    ClrScr;
    write('Enter password:');
    b:='';
    repeat
      a:=ReadKey;
      write('*');
      if a<>chr(13) then b:=b+a;
    until a=chr(13);
    writeln;
    if b<>z then
      begin
        writeln('wrong pssword');
        dec(c);
        delay(10000);
      end;
  until(c=0)or(b=z);
  if c>0 then
    begin
      writeln('Start any program . . . ');
    end
    else
    begin
      writeln('wrong access . . .');
    end;
  delay(10000);
end.
Добавлено через 1 минуту
Цитата Сообщение от Луч света Посмотреть сообщение
Если пароль введен, верно, то ведется запуск любой программы.
Не писал, т.к. ТР 16-ти битный, а ОСь больше.

Вернуться к обсуждению:
Ввод пароля с отображением звездочки вместо символа
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.02.2016, 11:21
Готовые ответы и решения:

Звездочки вместо символов пароля
как сделать чтобы вместо символов пароля на экран выводились звездочки? #include &quot;stdafx.h&quot;...

Как при вводе вместо пароля отображать звёздочки?
Пишу окно авторизации у программы, на форму кинул виджет tkinter.Entry, это поле будет служить для...

Как сделать звездочки у поля ввода пароля?
Всем привет! Подскажите, плз, как в Unity 2018 сделать обычные для html поля &lt;input...

Звездочки вместо букв!
Как сделать так, чтобы при наборе текста в поле формы на экране отображались звездочки, типа как...

__________________
2
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.