|
Вопрос # 3 679/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
можете вы составить код программы на следующие задание.
составить программу, запрашивающую пароль пользователя. в случае правильности пароля выводится фраза: "можно приступать к работе", если пароль 3 раза введен неверно, то вывести "вызываю охрану"
 |
Вопрос задал: serega7235 (статус: Посетитель)
Вопрос отправлен: 23 января 2010, 21:55
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: vlsavkin
Здравствуйте, serega7235!
program Project1;
const password='111';
var s:string;
i:Byte;
f:Boolean;
begin
i:=1;
f:=False;
while (i<=3) and (not f) do
begin
i:=i+1;
readln(s);
f:=s=password;
end;
if F then writeln('Work') else writeln('Not work');
readln;
end.
 |
Ответ отправил: vlsavkin (статус: 2-ой класс)
Время отправки: 25 января 2010, 12:04
Оценка за ответ: 5
Комментарий к оценке: спасибо,выручил.
|
Мини-форум вопроса
Всего сообщений: 8; последнее сообщение — 24 января 2010, 21:01; участников в обсуждении: 2.
23 января 2010, 22:07: Вопрос перемещён из тематического раздела Pascal » Программирование на Pascal в раздел Лабораторный практикум » Pascal модератором Ерёмин А.А.
|
min@y™ (статус: Доктор наук), 23 января 2010, 22:16 [#1]:
Цитата (serega7235):
можете вы составить код программы на следующие задание
Можем. Пиво будет?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
serega7235 (статус: Посетитель), 23 января 2010, 22:33 [#2]:
а тебе как налить?
|
|
|
min@y™ (статус: Доктор наук), 24 января 2010, 09:03 [#3]:
Цитата (serega7235):
а тебе как налить?
По WebMoney: 1пиво = 1WMZ.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
serega7235 (статус: Посетитель), 24 января 2010, 16:01 [#4]:
блин у меня нет WebMoney
|
|
|
min@y™ (статус: Доктор наук), 24 января 2010, 17:16 [#5]:
Цитата (serega7235):
блин у меня нет WebMoney
Какой жуткий нечеловеческий облом!!!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
serega7235 (статус: Посетитель), 24 января 2010, 18:32 [#6]:
я с тобой согласен 
|
|
|
min@y™ (статус: Доктор наук), 24 января 2010, 18:40 [#7]:
Попробуй сделать сам. Может из тебя программист получится... Хотя, врядли.
Когда я учился, интернета НЕ БЫЛО! СОВСЕМ, прикинь!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
serega7235 (статус: Посетитель), 24 января 2010, 21:01 [#8]:
тяжко тебе было
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
