C#
String day = "понедельник";
String subject = "информатика";
Console.WriteLine(day+": "+subject);
я сделал самую изичную прогу, я мог бы сделать нейросеть которая сама писала когда какие уроки по ее настроению, но мне было лень.
Текстовый алгоритм
Есть снег для лепки снеговика?
Нет - выполнение невозможно.
Есть, то:
слепить три разновеликих шара;
установить шары друг на друга в порядке убывания;
сверху установить ведро дном вверх;
в центр верхнего шара установить морковь, над ней два уголька-глаза;
по бокам среднего шара вставить веточки-ручки.
Фигуры блок-схемы
Последовательность фигур может меняться в зависимости от требуемых условий и действий:
овал - обозначает начало блок-схемы и содержит само слово "начало" - ограничивающий символ;
параллелограмм - символ ввода-вывода данных;
прямоугольник обозначает действие - символ выполнения операции;
ромб - фигура, содержащая условие, после которой происходит ветвление алгоритма - символ принятия решения;
круг используется при разрыве записи блок-схемы;
прямоугольник с удвоенными боковыми сторонами обозначает применение подпрограммы - символ повторяемости процесса;
заканчивается запись блок-схемы всегда овалом, который содержит слово "конец".
Порядок выполнения действий указывается линиями.
Блок-схема создания снеговика
Алгоритм создан при идеальных условиях:
если снег есть, то возможно скатать шары для снеговика;
в наличии есть ведро-шапка, морковь-нос, угольки и подходящие веточки;
никто не разрушает созданные фигуры.
В ячейке a1 окажется формула = b1+1
в ячейке b1 окажется формула = c1+1
в ячейке c1 окажется формула = d1+1
в ячейке a2 окажется формула = b2+1
в ячейке b2 окажется формула = c2+1
в ячейке c2 окажется формула = d2+1
в ячейке a3 окажется формула = b3+1
в ячейке b3 окажется формула = c3+1
в ячейке c3 окажется формула = d3+1
если в ячейках d1 d2 d3 были нули то в результате получится такая табличка в ячейках <span>(A1:C3)</span>
3 2 1
3 2 1
3 2 1
<em>// PascalABC.NET 3.2, сборка 1345 от 24.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
1.To(ReadInteger('н=')).Println
end.
<u>Пример</u>
н= 13
1 2 3 4 5 6 7 8 9 10 11 12 13
Var y:real; i:integer;
begin
y:=1;
for i:=1 to 52 do
y:=y*(i*i*i)/(i*i+1);
writeln('y = ',y);
end.
Результат:
y = 2.23632650309607E+67
