9 клас. Масиви. Візуалізація табличних величин.

Pie

Rectangle

Polyline

TextOut

lb: array[1..5] of String;

sh: array[1 .. 5] of Integer;

sh: array[1 .. 5] of TShape;

lb: array[1..5] of TLabel;

Standart

Additional

Dialogs

  System

circle

rectangle

height

width

var a:array[0..4] of Tshape;

var a:array[0..5] of Tshap

var a:array[1..4] of Tshap

var a:array[0..6] of Tshap

округлення

масштабування

подвоєння

зміна висоти

var d:array[1..5] of real;

var d:array[1..5] of integer;

var d:array[1..5] of TShape;

var d:array[1..5] of string;

так

ні

змінними алгоритмічного типу

змінними будь якого типу

змінними логічного типу

40

56

30

13

Різнотипні величини, що мають спільне ім’я

  Сукупність рядків і стовпців

 Пронумерована сукупність значень, що мають спільне ім’я і тип

  Великий обсяг інформації

Для редагування багаторядкового тексту

Для відображення малюнків

Для відображення заголовків, підписів інших елементів керування

  Для введення даних

програмні

числові

рядкові

символьні 

істина

хибність

програма

var A: array[1..25] of Integer

type mas = array[1..25] of Integer;

var A: mas

var A: array[1..25] of Real

var A: Integer

Оцінки учня з інформатики, які він отримав протягом семестру

Список учнів

Корені квадратного рівняння

Тематична оцінка

Знаходження суми додатних елементів масиву

Визначення кількості додатних елементів масиву

Визначення найбільшого елемента масиву

Подвоєння значень елементів масиву

Знаходження суми додатних елементів масиву

Заміна від’ємних елементів масиву нулем

Визначення найбільшого елемента масиву

Подвоєння значень елементів масиву

 За зростанням

За прискоренням

  За неспаданням

 За спаданням

Memo1.Lines 

Memo1.Clear

Memo1.Lines.Count

Memo1.Add

Real

Integer

String

array[1..30] of String

For i := 1 to 10 do If A[i]<0 Then S := S + A[i]

К := 0; For i := 1 to 10 do If A[i]<0 Then К := К + 1

For i := 1 to 10 do If A[i]<0 Then ListBox1.Items.Add (IntToStr(A[i]))

For i := 1 to 10 do If A[i]<0 Then А[i]:= 0