На этот раз используя тот же принцип, что у чат-бота напишем свой электронный ежедневник на неделю. (Если забыли, то посмотрите домашнее задание на урок). Создадим списки для дней недели: Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday.
Для начала, на каждый день будем назначать одно дело.
1) Заполните список строками "нет дел" (подойдет цикл for)
2) Создайте команду "Изменить дело" (edit)
3) Создайте команду "Вывести календарь на неделю" (print
а - точка
б - три точки
в - четыре точки
г - г в другую сторону и точки с боку
д - солнышко
е - о точки с низу
ё - о точки с верху
ж - ~ ( значок пример если что))
з - з только в обратную сторону
и - палка
й- палка и точка
к- перечёркнутый круг
л - круг
м - знак равно
о - запятая
п - #
р - значок плотности
с - знак доллора $
т - "крыша домика" типо л только по длиннее и постранее
у - <>
ф- ><
х - две точки
ц - :;
ч - ;:
ш - перевернутая ш
щ - перевернутая ш точки снизу и с верху
ъ - (
ы - ()
ь - )
э - значок обьёма
ю -V точки с верху
я - V точки с низу
Const pupils = 20; subjects = 10;
Var marks: Array[1..pupils, 1..subjects] of Integer;
marks_average: Array[1..pupils] of Real;
i, j: Integer;
all_marks_average: Real;
Begin For i := 1 To pupils Do
Begin
WriteLn('Введите через пробел оценки ученика №', i);
For j := 1 To subjects Do
Read(marks[i, j]);
End;
For i := 1 To pupils Do
Begin
For j := 1 To subjects Do
marks_average[i] := marks_average[i] + marks[i, j];
marks_average[i] := marks_average[i] / subjects;
End; For i := 1 To pupils Do
all_marks_average := all_marks_average + marks_average[i];
all_marks_average := all_marks_average / pupils;
WriteLn('Результат: ', all_marks_average:2:2);
ReadLn;
End.