Ежедневник, которым мы пользуемся для записи своих дел, тоже является таблицей данных.

Давайте напишем для себя электронный ежедневник.

В программе есть таблица journal, она содержит в себе 7 строк - для каждого дня недели. На каждый день мы сможем назначать одно дело.

С начала, заполните каждый элемент таблицы строкой “нет дел” с цикла for.

А дальше, создайте бесконечный цикл while True, в котором наша программа будет выполнять команды, которые вводит пользователь:

1) Выводить ежедневник (команда: вывести)

2) Изменять дело на день (команда: изменить)

3) Удалять дело из ежедневника (команда: удалить)

4) Выводить список команд (команда )

5) Останавливать работу цикла (команда: выйти)

Исходный код:(Всё почти готово просто нужно доработать:)

mon = ['нет дел']
tue = ['нет дел']
wed = ['нет дел']
th = ['нет дел']
fr = ['нет дел']
sat = ['нет дел']
sun = ['нет дел']

journal = [mon, tue, wed, th, fr, sat, sun]

print("Список команд , вывести, удалить, изменить, выйти.")

while True:

vopros = input("Введите команду:")

if vopros == "выйти":
break

if vopros == " ":
print("Список команд , вывести, удалить, изменить, выйти:")

if vopros == "вывести":
print(journal)

if vopros == "изменить":

Показать ответ

Ответ:

ZEROBONE

18.09.2022 09:41

В неделе семь дней, поэтому решение выполняется на основе нахождения остатка целочисленного деления от номера дня на 7. Такой остаток находится в пределах от 0 до 6, а для нашей нумерации нужны значения от 1 до 7, поэтому полученный остаток будем увеличивать на единицу. Если 1 января вторник, то есть день недели с номером 2, то первым понедельником будет 7 января, вторым 14 января и т.д. 1 января (k=1) при делении на 7 даст в остатке 1 и при сдвиге остатка на 1 (см. выше), получим 2 (вторник). 7 января даст остаток 0 и после сдвига получим 1 (понедельник), что и требовалось.

1. Современное короткое, эффективное, но требующее определенных знаний решение

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var d:='Понедельник Вторник Среда Четверг Пятница Суббота Воскресенье'.ToWords;
Writeln(d[ReadInteger('Введите номер дня') mod 7])
end.

Примеры
Введите номер дня 215
Суббота

Введите номер дня 14
Понедельник

2. Более близкое к приведенному выше алгоритму решение

begin
var n:=ReadInteger('Введите номер дня');
n:=n mod 7+1;
case n of
0:Writeln('Воскресенье');
1:Writeln('Понедельник');
2:Writeln('Вторник');
3:Writeln('Среда');
4:Writeln('Четверг');
5:Writeln('Пятница');
6:Writeln('Суббота')
end
end.

3. Типовое школьное решение

var
n:integer;
begin
Write('Введите номер дня');
Read(n);
n:=n mod 7+1;
case n of
0:Writeln('Воскресенье');
1:Writeln('Понедельник');
2:Writeln('Вторник');
3:Writeln('Среда');
4:Writeln('Четверг');
5:Writeln('Пятница');
6:Writeln('Суббота')
end
end.

0,0(0 оценок)

Ответ: