(Pascal) Помогите с решением задач
Здравствуйте помогите пожалуйста с решением задач с циклом repeat.А то я не очень хорошо эту тему усвоил))За ранее спасибо
1.Используя цикл repeat, напишите программу-фильтр, которая вводит любые символы, но комментирует только буквы русского алфавита. Завершение работы программы — по нажатию буквы «Я».
2.Используя цикл repeat, напишите программу, которая требует ввод пароля, например, числа 111, и, если пароль правильный, заполняет все строки экрана сообщением «Молодец!!!». Если после пятой попытки пароль неверен, выйти из программы.
1.Используя цикл repeat, напишите программу-фильтр, которая вводит любые символы, но комментирует только буквы русского алфавита. Завершение работы программы — по нажатию буквы «Я».
2.Используя цикл repeat, напишите программу, которая требует ввод пароля, например, числа 111, и, если пароль правильный, заполняет все строки экрана сообщением «Молодец!!!». Если после пятой попытки пароль неверен, выйти из программы.
[highlight=pascal]
const pass='111';
var i : integer; {счетчик для кол-ва вводов пароля}
s : string[16]; {вводимый пароль}
begin
clrscr;
i := 0;
repeat
write('Type your password: '); readln(s);
inc(i);
clrscr;
until (s = pass)or(i >= 5);
if i < 5 then
for i := 1 to 25 do writeln('Молодец!');
readln;
end.
[/highlight]
Вроде так. Сам не компилил, да и в паскале давно не писал. А к 1-ой условие не понял, символы сама прога вводит или юзер?
const pass='111';
var i : integer; {счетчик для кол-ва вводов пароля}
s : string[16]; {вводимый пароль}
begin
clrscr;
i := 0;
repeat
write('Type your password: '); readln(s);
inc(i);
clrscr;
until (s = pass)or(i >= 5);
if i < 5 then
for i := 1 to 25 do writeln('Молодец!');
readln;
end.
[/highlight]
Вроде так. Сам не компилил, да и в паскале давно не писал. А к 1-ой условие не понял, символы сама прога вводит или юзер?