Компьютерная модель решения задач

Попробуем написать несколько программ для решения определенных задач.
Используя язык программирования Паскаль, попробуем вывести на экран название дня недели по его номеру. Для того, чтобы решить задачу, нужно прибегнуть к оператору выбора case.
Оператор разрешает организовать ветвление, учитывая значения некоторых переменных, каждая из которых может предусмотреть выполнения различных действий.
Нужно отметить, если значением переменной не будет ни один из вариантов, то затем следует выполнение else- блока, в случае, если он есть. Не стоит забывать о том, что при перечислении всех вариантов оператора case необходимо записать оператор End.
Для возможности использования оператора case нужно ввести порядковый номер дня недели, как переменную i по типу byte, и по нему можно будет вывести название соответствующего дня. Именно с помощью else- блока, используемого в данной программе, можно будет предусмотреть информацию об ошибке, в случае, если номер будет введён неправильно.
Запишем текст программы:
1. program Week;
2. var
3. i: byte;
4. begin
5. readln(i);
6. case i of
7. 1: writeln('Monday');
8. 2: writeln('Tuesday');
9. 3: writeln('Wednesday');
10. 4: writeln('Thursday');
11. 5: writeln('Friday');
12. 6: writeln('Saturday');
13. 7: writeln('Sunday')
14. else writeln('This day of the week does not exist!')
15. end
16. end.
Нужно сказать о том, что в каждый вариант ветвления можно поместить составной оператор. В данном случае, описывая варианты, мы не использовали операторные скобки, поскольку здесь они повредили бы оформлению программного кода, который, как мы видим, является достаточно уместным.
Или другая задача: сгенерировать случайное число, вывести на экран это число, а также сумму и произведение его цифр.
Алгоритм решения задачи: 
random(900) генерирует случайное число от 0 до 899. Если прибавить к нему 100, то получится диапазон от 100 до 999 включительно, т. е. охватывает все трехзначные числа.
Чтобы извлечь из числа цифру сотен надо его разделить нацело на 100.
Для получения цифры десяток можно сначала разделить нацело на 10, а затем найти остаток от деления на 10.
Единицы извлекаются путем нахождения остатка от деления числа на 10.
Запишем текст программы:
Program one;
var
n: integer;
a,b,c: byte;
begin
randomize;
n := random(900) + 100;
writeln(n);
a := n div 100;
b := n div 10 mod 10;
c := n mod 10;
writeln('Сумма: ',a+b+c);
writeln('Произведение: ',a*b*c);
end.
Таким образом, программа выдала нам число 146; сумма – 11; произведение – 24.
Попробуем решить задачу, данную в учебном пособии для студентов колледжей

. Программа должна отобразить следующую запись: Ф.И.О., пол, год рождения, баллы на экзаменах (4 экзамена).
Результат обработки данных должен быть следующим: список студентов старше 18 лет и процент сдавших экзамены на 4 и 5.
Мы записали текст программы на языке программирования Си ++:
Dim st As stud
Dim i, k As Integer
Private Sub Command1_Click
god1 = 2004
st.fio = Text1.Text
st.pol = Text2.Text
st.god = Val(Text3.Text)
st.mat = Val(Text4.Text)
st.istor = Val(Text5.Text)
st.phiz = Val(Text6.Text)
st.inf = Val(Text7.Text)
i = i + 1
If ((god1 - st.god) 18) Then List1.AddItem(st.fio)
If (st.mat 3) And (st.istor 3) And (st.phiz 3) And (st.inf 3) Then k = k + 1
Text1.Text = ""
Text2.Text = "м"
Text3.Text = "1980"
Text4.Text = "5"
Text5.Text = "5"
Text6.Text = "5"
Text7.Text = "5"
End Sub
Private Sub Command2_Click()
Text8.Text = i
Text9.Text = k / i * 100
End Sub
Вот что выдала нам программа:
Напишем с помощью языка Basic программу, выполняющую над двумя числами арифметическую операцию. Числа и знак вводит пользователь. Программа должна завершаться, когда пользователь вводит символ '0' в качестве знака операции. Предусмотреть сообщения о невозможности деления на ноль и неверном введенном знаке операции.
В языке программирования C ++ существует проблема с вводом данных через функцию scanf(). Когда нажимается Enter, то символ перехода на новую строку сохраняется и присваивается переменной при следующем вызове scanf()