Запросить не сам пароль, а сумму части пароля и числа месяца текущей даты - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Разработать “умную” программу запрашивающую не сам пароль, а сумму части пароля и числа месяца текущей даты. Помогите, пожалуйста, создать

Решение задачи: «Запросить не сам пароль, а сумму части пароля и числа месяца текущей даты»

textual
Листинг программы
uses dos;
const
   password='0123456789';
var
  i1,i2,s,t:longint;
  y,m,d,dw:word;
  c:integer;
begin
  randomize;
  getdate(y,m,d,dw);
  writeln('Сегодня ',d,' число');
  repeat
    i1:=random(10)+1;
    i2:=random(10)+1;
  until (i1<i2);
  write('Введите сумму с части пароля (с ',i1,' по ',i2,' цифры) и текущего числа:');
  readln(s);
  val(copy(password,i1,i2-i1+1),t,c);
  if s=t+3 then writeln('верно')else writeln('не верно');
end.

Объяснение кода листинга программы

  1. В начале кода подключается библиотека DOS.
  2. Затем определяются константы и переменные: password - это строка, содержащая пароль; i1, i2, s, t, y, m, d, dw - это длинные целочисленные переменные; c - это целое число.
  3. Далее вызывается функция getdate, которая получает текущую дату и сохраняет ее в переменных y, m, d, dw.
  4. Выводится сообщение о текущем дне недели.
  5. Затем в цикле повторяется генерация случайных чисел от 1 до 10 для i1 и i2.
  6. Цикл продолжается до тех пор, пока i1 меньше i2.
  7. Пользователю предлагается ввести сумму с части пароля (с i1 по i2 цифры) и текущего числа.
  8. Введенная сумма сравнивается с вычисленной суммой (t+3).
  9. Если суммы совпадают, выводится сообщение верно, иначе выводится сообщение не верно.

Оцени полезность:

5   голосов , оценка 4.4 из 5
Похожие ответы