Идею электронных таблиц впервые сформулировал американский учёный австрийского происхождения Рихард Маттезих, опубликовав в 1961 г. исследование под названием «Budgeting Models and System Simulation». Концепцию дополнили в 1970 г. Пардо и Ландау, подавшие заявку на соответствующий патент. Патентное ведомство отклонило заявку, но авторы через суд добились отмены этого решения.Общепризнанным родоначальником электронных таблиц как отдельного класса ПО является Дэн Бриклин, который совместно с Бобом Фрэнкстоном разработал программу VisiCalc в 1979 г. Эта электронная таблица для компьютера AppleII стала очень популярной, превратив персональный компьютер из игрушки для технофилов в массовый инструмент для бизнеса.
Начало программыНачинается цикл for i:=0 to 3 do всё что внутри него будет повторено 4 раза пока i не больше 3 (0, 1, 2, 3)Начинается цикл repeat ... until e=0; если к концу выполнения команд, которые находятся внутри цикла переменная e будет равна нулю, то цикл закончится и не будет повторятся снова Вывод Write(Chr(Ord('a')+i),': '); функция Ord преобразует символ (в данном случае символ "a" англ. алфавита) в кодировку Unicode. (В unicode символы пронумерованы в алфавитном порядке. То есть +1 к коду означает сдвиг по алфавиту вправо на 1 позицию). Затем к коду символа "a" прибавляется значение i. Затем функция Chr преобразует новый код в символ.Ввод переменной sФункция Val преобразует строку s в число и записывает в переменную t. Если преобразование удалось, то переменная e равняется нулю, если нет, то переменная e больше нуля.Условие - Если e не равняется нулю, то вывести сообщение "Это не целое число, повторите ввод"Цикл со вводом числа не повторяется если e = 0Условие - Если t чётное, то функция Inc прибавляет к переменной k единицу.Вывод логического значения выражения k >= 2 (True если истина и False, если ложь)Конец программы :)
i - Счётчик количества чисел
e - Вывод ошибки
t - Введённое число (преобразованная строка)
k - Счётчик количества чётных чисел
s - Введённое число в виде строки
Начало программыНачинается цикл for i:=0 to 3 do всё что внутри него будет повторено 4 раза пока i не больше 3 (0, 1, 2, 3)Начинается цикл repeat ... until e=0; если к концу выполнения команд, которые находятся внутри цикла переменная e будет равна нулю, то цикл закончится и не будет повторятся снова Вывод Write(Chr(Ord('a')+i),': '); функция Ord преобразует символ (в данном случае символ "a" англ. алфавита) в кодировку Unicode. (В unicode символы пронумерованы в алфавитном порядке. То есть +1 к коду означает сдвиг по алфавиту вправо на 1 позицию). Затем к коду символа "a" прибавляется значение i. Затем функция Chr преобразует новый код в символ.Ввод переменной sФункция Val преобразует строку s в число и записывает в переменную t. Если преобразование удалось, то переменная e равняется нулю, если нет, то переменная e больше нуля.Условие - Если e не равняется нулю, то вывести сообщение "Это не целое число, повторите ввод"Цикл со вводом числа не повторяется если e = 0Условие - Если t чётное, то функция Inc прибавляет к переменной k единицу.Вывод логического значения выражения k >= 2 (True если истина и False, если ложь)Конец программы :)