Аленчик310805
18.09.2020 11:15

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

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

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

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

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

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

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

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

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

mon = []

tue = []

wed = []

th = []

fr = []

sat = []

sun = []

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

# Свой код пишите ниже

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 == "удалить":

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

Чу чуть доделать надо
НА ПИТОНЕ

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
yaritos
29.03.2020 00:51
1. Для цикла For есть решение выложенное выше  от Srzontmp.

2. Почти ничего не меня получим код для цикла while:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  while i <= n div 2 do begin
    if (n mod i) = 0 then k := i;
    i:=i+1;
    end;
  writeln('наибольший делитель ', n, ' = ', k);
end.

3. Аналогично для цикла Repeat:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  repeat
    if (n mod i) = 0 then k := i;
    i:=i+1;
  until i> n div 2;
  writeln('наибольший делитель ', n, ' = ', k);
end.
0,0(0 оценок)
Ответ:
denkashavcev
21.03.2020 18:53
Как ч понял сортировка по неубыванию это сортировка по возрастанию. То есть легкие элементы всплывают наверх, а тяжелые перемещаются вниз:

//Pascal
const m = 1000
var
    arr: array[1..m] of integer;
    n,i, j, k: integer;
begin
    readln(n);
    write ('Исходный массив: ');
    for i := 1 to n do begin
        readln(arr[i]);
    end;
//сортировка методом пузырька   
    for i := 1 to n-1 do
        for j := 1 to n-i do
            if arr[j] > arr[j+1] then begin
                k := arr[j];
                arr[j] := arr[j+1];
                arr[j+1] := k
            end;
 
    write ('Отсортированный массив: ');
    for i := 1 to n do
        write (arr[i]:4);
end.

Алгоритм сортировки на классическом языке программирования С

# define SWAP(A,B) {A=A^B;B=A^B;A=A^B;}
void bubblesort(int A[], int n)
 {
     int i, j;
     for(i = n-1 ; i > 0 ; i--)
          { for(j = 0 ; j < i ; j++)
               {
                   if( A[j] > A[j+1] ) SWAP(A[j],A[j+1]);
               }
           }
   }
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота