begin. ifpassword='secret' then

Пример 1. Для входа в систему запрашивается пароль пользователя, если пароль введен верно, то запрашивается фамилия пользователя и выводится соответствующее сообщение [2].

Решение: присвоим переменной lastname строку длиной в 20 символов, а переменной password – 6 символов. Присваиваем переменной password слово, которое будет является паролем к доступу. С помощью условного оператора проверяем пароль. Если пароль неверен, то на экран выводится сообщение о неверном вводе пароля, если пароль верен, то необходимо ввести фамилию и на экран будет выведено сообщение о предоставлении доступа.

Блок-схема алгоритма (рис. 1):

Рисунок 1 – блок-схема 1

Запишем программу на языке Паскаль:

var

lastname: string[20];

password: string[6];

begin

write('Введите пароль: '); readln(password);

ifpassword='secret' then

begin

write('Введите свою фамилию: '); readln(lastname);

writeln(lastname, ', Вам доступ разрешен! ');

end

else writeln('Неверный пароль! Доступ запрещен! ');

end.

Пример 2. Ввести Фамилию Имя Отчество. Преобразовать их к формату «Фамилия И. О. ». Использовать функции: Pos, Copy, Delete.

Решение: С клавиатуры вводим фамилию имя отчество. Удаляем пробелы в начале строки, если они есть. С помощью функции pos ищем первый пробел в строке. В новую строку, с помощью функции copy, копируем часть исходной строки, начиная с первого символа и заканчивая символом с индексом равным индексу первого пробела плюс 1. добавляем к новой строке символ '. ' Удаляем, с помощью функции delete, из исходной строки часть строки, содержащую фамилию вместе с первым пробелом, затем ищем в строке следующий пробел. Добавляем к новой строке первую букву, следующую за найденным пробелом и символ ‘. ’. В результате на экран выведется «Фамилия И. О»

Блок-схема алгоритма (рис. 2).

Запишем программу на языке Паскаль:

12 Следующая ⇒