Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
русский
0 / 0 / 0
Регистрация: 21.02.2010
Сообщений: 16
#1

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

03.10.2010, 15:57. Просмотров 401. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос меняющиеся пароли (Turbo Pascal):

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

меняющиеся цифры в квитанциях - Delphi
суть в общем такая есть квитанция и в ней есть № мне нужно чтобы цифры в этом номере менялись 1 2 3 по очереди и если программа закрывается...

Меняющиеся компоненты Label - Delphi
Всем привет. Существует программа,в которой есть несколько компонентов Label (допустим 4), они все наложены друг на друга, т.е. нужно чтоб...

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

Меняющиеся заголовки в слайдерах - WordPress
Добрый день, подскажите пожалуйста, как реализовать подобный слайдер с меню как на сайте - http://sirivannavari.com/biography Нужно...

Меняющиеся картинка бэкграунда - HTML, CSS
Возможно ли сделать средствами CSS меняющиеся картинки бэкграунда во весь экран через определенный промежуток времени? Если нельзя, то...

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
Модератор
53842 / 41475 / 14582
Регистрация: 18.05.2008
Сообщений: 97,198
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
Привет! Вот еще темы с ответами:

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

Меняющиеся знаки при ожидании ввода - Assembler
Необходимо что-бы при ожидании нажатия клавиши поочередно выводились на экран 2 символа &quot;&lt;&quot;и&quot;&gt;&quot; Подскажите, как реализовать? Ассемблер...

Два меняющиеся расчетные поля в форме - MS Access
Уважаемые, помогите, плиз, еще в одном вопросе Подкинули, так скать, задачку: есть форма по операции продажи, в ней, кроме прочего,...

Как получить постоянно меняющиеся данные в HTML странице - Delphi
Всем Га! Во общем мне нужно вывести в переменную данную String из HTML Я пытался провернуть дело с Memo, но т.к. HTML - это одна...


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

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

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