IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> опять программа пароль, теперь по другому
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 9
Пол: Мужской
Реальное имя: ASD

Репутация: -  0  +


Помогите пожалуйста нужно что бы вместо цифр '123' было ***.
unsure.gif Мне уже помогали но я не смог сделать.

вот прога

program parol;
uses crt;
const password:string = '123';

var y:integer;
passwordstring:string;
Procedure PasswordWindow ;
Begin
TextBackGround (Black);
TextColor (White);
ClrScr;
gotoxy(27,10);

write('ЙНННННННННННННННННННННННННН»');
gotoxy (27,12);
write('є є');
gotoxy (27,13);
write('є є');
gotoxy (27,14);
write('є є');
gotoxy(27,11);
write('є є');
gotoxy(27,15);
write('ИННННННННННННННННННННННННННј');

End;


BEGIN

clrscr;
Y := 3;
Repeat
ClrScr;
PasswordWindow;
gotoxy(34,10);
write('Введите пароль');
if (y=3) or (y=2) then
begin
gotoxy(29,14);
writeln ('У вас осталось 'y' попытки');
end;
if y=1 then
begin
gotoxy(29,14);
writeln ('у вас осталось 'y' попытка');
end;
gotoxy(36,12);
readln (passwordstring);
if passwordstring <> Password Then
Begin
TextColor (Red);
gotoxy(33,12);
Write ('непрвильно');
y:=y-1;
End;
If PasswordString = Password Then
Begin
TextColor (Green);
gotoxy(34,12);
Write ('правильно');
End;

Readkey;
Until (PasswordString = Password) Or (Y = 0);

If Y = 0 Then
exit;
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 60
Пол: Мужской
Реальное имя: Никита

Репутация: -  0  +


пожалуйста..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
ASD_9   опять программа пароль   23.05.2007 2:05
nikita182   If Y = 0 Then exit; зачем тебе этот кус…   23.05.2007 2:09
ASD_9   зачем тебе этот кусок? прога и без него на выходе…   23.05.2007 2:11
ASD_9   Спасибо :) А можно еще так сделать что бы больше…   23.05.2007 2:27
Sto   Спасибо :) А можно еще так сделать что бы больш…   23.05.2007 2:29
nikita182   program parol; uses crt; const password:string =…   23.05.2007 2:22
Sto   ch : Char; cif : Integer; ... writeln ('У вас …   23.05.2007 2:23
ASD_9   я не могу сделать здесь же нет readln(passwordstr…   23.05.2007 2:40
nikita182   Я написал, смотри выше. у тебя ТОЛЬКО 8 цифр, 3 …   23.05.2007 2:41
ASD_9   у тебя ТОЛЬКО 8 цифр, 3 не введешь вот мой вариа…   23.05.2007 2:53
nikita182   хм.. у мну все норм. что именно не получается?   23.05.2007 3:03
ASD_9   хм.. у мну все норм. что именно не получается? …   23.05.2007 3:08
Sto   Работает program parol; uses crt; const password:s…   23.05.2007 3:06
nikita182   а обнулять кто будет! passwordstring := …   23.05.2007 3:14
ASD_9   Сделал :) Большое спасибо :good:   23.05.2007 3:24
nikita182   пожалуйста..   23.05.2007 3:51


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 14.08.2022 19:00
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name