Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
русский
0 / 0 / 0
Регистрация: 21.02.2010
Сообщений: 16
1

меняющиеся пароли

03.10.2010, 15:57. Просмотров 418. Ответов 4
Метки нет (Все метки)

Помогите написать программу:
в программе 2 пользователя :
  1. Лена(её пароль 12345,время её работы с 8-13)
  2. Нина(её пароль 56789,время её работы с 13-17)

если вводишь другое имя - то выдавало ошибку "такого имени нет"
и два этих пользователя могли входить в программу только под своим паролем и в свое время ,иначе ошибку должно выдавать
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.10.2010, 15:57
Ответы с готовыми решениями:

меняющиеся картинки
суть в чем. на сайте: http://bfo.16mb.com/col/ c лева есть большая картинка и...

меняющиеся цифры в квитанциях
суть в общем такая есть квитанция и в ней есть № мне нужно чтобы цифры в этом...

Меняющиеся картинка бэкграунда
Возможно ли сделать средствами CSS меняющиеся картинки бэкграунда во весь экран...

Меняющиеся заголовки в слайдерах
Добрый день, подскажите пожалуйста, как реализовать подобный слайдер с меню как...

Меняющиеся заголовки в слайдерах
Здравствуйте! У меня такой вопрос. Недавно начала изучать WordPress. В шапке...

4
pavelr
Заблокирован
03.10.2010, 15:59 2
Это на Паскале нужно типа интерфейса к другой программе,что ли,написать?
0
русский
0 / 0 / 0
Регистрация: 21.02.2010
Сообщений: 16
03.10.2010, 16:07  [ТС] 3
что -то наподобии этой программы только с 2 именами, и если неправильно ввели имя,несоответсвующий пароль имени или время то выдавало ошибку и начиналось всё заново:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
const par1='01234';
      par2='56789';
var h:0..23;
    m:0..59;
    s:string;
    c:char;
begin
clrscr;
repeat
writeln('vvedite vrem, chas i minyt:');
readln(h,m);
until (h in [0..23])and(m in [0..59]);
writeln('vvedite parol:');
readln(s);
if ((h in [0..11]) and(s=par1))
or((h in [12..23])and(s=par2))then
writeln('dobro pogalovat')
else writeln('parol ne veren');
readln
end.
0
Puporev
Модератор
54582 / 42088 / 29061
Регистрация: 18.05.2008
Сообщений: 99,260
03.10.2010, 16:19 4
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 p1='12345';
      p2='56789';
      i1='Лена';
      i2='Нина';
var p,i:string;
    h,m:byte;
begin
clrscr;
write('Введите имя: ');
readln(i);
if (i<>i1)and(i<>i2)then
 begin
  write('Имя введено неверно, работа программы завершена!');
  readln;
  exit;
 end;
write('Введите время в часах и минутах: ');
readln(h,m);
if not(h in [8..17]) or not(m in [0..59])then
 begin
  write('Время введено неверно, работа программы завершена!');
  readln;
  exit;
 end;
write('Введите пароль: ');
readln(p);
if(h in [8..12])and(p<>p1)
or(h in [13..16])and(p<>p2)then
write('Пароль неверный,  работа программы завершена!')
else
 begin
  if p=p1 then write('Добро пожаловать ',i1,'!')
  else if p=p2 then write('Добро пожаловать ',i2,'!');
 end;
readln
end.
1
русский
0 / 0 / 0
Регистрация: 21.02.2010
Сообщений: 16
20.10.2010, 17:18  [ТС] 5
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
const p1='12345';
      p2='56789';
      i1='Лена';
      i2='Нина';
var p,i:string;
    h,m:byte;
begin
clrscr;
write('Введите имя: ');
readln(i);
if (i<>i1)and(i<>i2)then
 begin
  write('Имя введено неверно, работа программы завершена!');
  readln;
  exit;
 end;
write('Введите время в часах и минутах: ');
readln(h,m);
if not(h in [8..17]) or not(m in [0..59])then
 begin
  write('Время введено неверно, работа программы завершена!');
  readln;
  exit;
 end;
write('Введите пароль: ');
readln(p);
if(h in [8..12])and(p<>p1)
or(h in [13..16])and(p<>p2)then
write('Пароль неверный,  работа программы завершена!')
else
 begin
  if p=p1 then write('Добро пожаловать ',i1,'!')
  else if p=p2 then write('Добро пожаловать ',i2,'!');
 end;
readln
end.
[/QUOTE]

помогите в этой программе немного изменить условие:Лена работает с 8-13,а Нина с 13-17...и если вводишь несоответствующее имени время выдавало ошибку "не ваше время"...а всё остальное в программе оставить так как есть..
0
20.10.2010, 17:18
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.10.2010, 17:18

Меняющиеся компоненты Label
Всем привет. Существует программа,в которой есть несколько компонентов Label...

меняющиеся название записываемого файла
TStringList * listR = new TStringList(); for (int i = 0; i &lt; k; i++) { //...

Меняющиеся знаки при ожидании ввода
Необходимо что-бы при ожидании нажатия клавиши поочередно выводились на экран 2...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

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