Блок 1 - Кодирование

• условие Фано

• кодирование текстовой информации  - проверочная работа

• кодирование графики

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

• кодирование звука

Практические работы в PascalAbc с графическим модулем 

Блок 2 - Программирование

В рамках элективного курса по "финансовой грамотности" учащиеся перед разработкой программ, связанных с работой биржи, с акциями, с дивидендами отработали эти навыки в игровой форме. На следующем занятии уже шла разработка программы с ООП по организации биржи. После получения готового продукта учащиеся вводили стартовые данные с официального сайта мосбиржи, параллельно наблюдая за обновлением котировок по акциям на сайте и в своей программе.

Блок 1 - Кодирование

• условие Фано

• кодирование текстовой информации

• комбинаторика

• кодирование графики

• кодирование звука

Графика в PascalABC

Program Dom;

uses Graphabc; //подключение модуля GraphABC

begin

  SetWindowWidth(800); //ширина окна программы

  SetWindowHeight(600); //высота окна программы

  SetPenWidth(3); //толщина пера

  SetFontSize(18); //размер шрифта

  SetFontColor(clRed); //цвет шрифта

  SetFontStyle(fsBold); //жирный стиль шрифта

  Rectangle(200, 300, 600,600); //прямоугольник, задается верхний левый и правый нижний углы

  Circle(400,225, 40); //круг, задается центр и радиус

  SetBrushColor(clAqua); //цвет заливки окна

  FillRect(300, 400,500,500); //процедура заливки окна

  rectangle(300,400,500,500); //окно

  Line(400,400,400,500); // линия для окна

  Line(300,450,500,450); //линия для окна

  Line(200,300,400,150); //крыша

  Line(400,150,600,300); //крыша

end.

Задание - нарисовать снеговика с носом, нос залить

Одномерные массивы. Общие сведения.

Как правило, мы оперируем наборами данных. Их можно расположить на хранение во внешней памяти (на дисках), но для оперативной обработки они помещаются в оперативную память. Один из вариантов организации данных в оперативной памяти - МАССИВ.

Массив - это структурированный тип для резервирования в памяти места под большое количество однородных элементов. Структура массива может быть линейной, табличной или, в общем случае, n-мерной. Единственное ограничение - общий размер этой структуры не должен превышать 64Kбайт (размер сегмента данных). Оперировать можно как с отдельными элементами массива, так и с массивом в целом. Следует четко различать значения элемента массива и индексы элемента, т.е. его n-мерный номер в структуре.

Описание массива:

var  <имя массива>ARRAY[<список индексных типов>] of <тип элементов  массива>;

Например  var y: array[1:10] of real;

При обьявлении этого массива в памяти резервируется 10*×SizeOf(real) байтов (10×*(количество байтов для элемента этого типа)). Размерность массива может быть любой. Тип элементов массива - любой тип Турбо-Паскаля. В качестве индексного типа можно использовать любой порядковый тип, кроме типа LONGINT.

            В памяти элементы массива следуют друг за другом так, что при переходе от младших адресов к старшим наиболее быстро меняется самый правый индекс массива.

            Как правило, тип индексов объявляется как диапазон.

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

Элемент из массива выделяется указанием рядом с именем массива индекса элемента, т.е. его n-мерного номера в структуре.

            Для массивов идентичных типов определена операция присваивания над массивами. Например, для:

var A,B: array[1:10] of real;

https://docs.google.com/forms/d/e/1FAIpQLSdt03L4HMgcpXNKI_G2n2toA6urYj4-CLv6hJPNwmFA020JdQ/viewform?usp=sf_link

Задача "Палиндром": Определить, палиндром ли слово, введенное с клавиатуры (палиндром читается одинаково слева направо и справа налево). 

Задача: Найти делители введенного с клавиатуры числа N.

Идея решения: необходимо воспользоваться формулой n mod i=0 (проверить - равен ли остаток от деления нулю). 

Задача: Проверить - простое ли число, введенное с клавиатуры. 

program prime;

var n,i,k: integer;

begin

 writeln ('введите число');

 readln (n);

 k:=0;

 for i:=1 to n div 2 do

 if n mod i=0 then k:=k+1;

 if k=2 then writeln ('число простое')

   else writeln ('число составное');

end.