Написати програму “Банкомат”. Програма зберігає логіни і паролі для трьох користувачів:

login1 – 1, password1 – 1111.

login2 – 2, password2 – 2222.

login3 – 3, password3 – 3333.

Користувач вводить свій логін, якщо такого логіна немає – неправильний логін.

Користувач вводить поки не введе правильний логін. Далі користувач вводить пароль, який відповідає цьому логіну, якщо вводить неправильно – введіть ще раз, поки не введе правильний пароль. Після вводу коректної інформації, користувач може зняти певну суму грошей. Користувач вводить суму(сума має бути кратна 5 і не перевищувати загальну кількість грошей в банкоматі, якщо ні – повідомлення, введіть ще раз суму). Далі банкомат видає користувачеві гроші – спочатку крупніші купюри, потім менші(в банкоматі є такі купюри: 50 грн., 20 грн., 10 грн. і 5 грн.). Після того, як сума була видана, банкомат знову чекає на ввід даних від іншого користувача. Якщо в банкоматі не залишається грошей програма повинна видавати повідомлення – Вибачте, в банкоматі немає грошей.

function fibonacchi(x:integer):integer;

// функция возвращает порядковый номер введённого числа

// ряда Фибоначчи. Если число не является элементом

// из данного ряда, то функция возвращает -1

var counter:integer = 2;

   s1,s2,s3:integer;

begin

   s1 := 0;

   s2 := 1;

   s3 := 0;

   if x = 0 then fibonacchi:=1

   else if x = 1 then fibonacchi:=2

   else begin

       while s3 < x do begin

           s3 := s1 + s2;

           s1 := s2;

           s2 := s3;

           inc(counter);

       end;

       if s3 = x then fibonacchi:=counter

       else fibonacchi:=-1;

   end;

end;

begin

   write(fibonacchi(13));

end.

Відповідь:

Профориентация

Школьникам

Взрослым

Студентам

Тесты

Список профессиий

FAQ

Статьи

Книги

Задать вопрос

ПрофГид

Профессии

Информационные технологии (IT)

Показаны записи 1-20 из 70.

Аналитик

Компьютерный лингвист

Инженер-программист

Архитектор интеллектуальных систем управления беспилотного транспорта

UI-дизайнер

UX-аналитик

UX-дизайнер

Художник компьютерной графики

Лингвоэксперт

Intelligent Systems Developer

Агроинформатик, агрокибернетик

Quant developer

Data Mining Specialist

BI разработчик (BI архитектор)

Программист Kotlin

Программист JavaScript

Программист C++

Биоинформатик

Архитектор информационных систем

Сценарист компьютерных игр

Пояснення: