//PascalABC.NET
uses GraphABC;
var c: integer;
begin
window.IsFixedSize := true;//запрет изменения размера экрана
window.Clear(cllightblue);//очистка экрана синим цветом
pen.Color := clred;//меняем цвет пера на красный
for var i := 0 to 19 do//цикл для отрисовки линий
begin
c := (window.Height div 19) * i;//сдвиг линнии по y
line(0, 0 + c, window.Width, window.Height - c);//рисуем линию
end;
end.
Объяснение:
uses graphabc;
begin
circle(50,50,50);
circle(50,50,20);
circle(150,50,50);
circle(150,50,20);
circle(250,50,50);
circle(250,50,20);
circle(350,50,50);
circle(350,50,20);
circle(450,50,50);
circle(450,50,20);
circle(550,50,50);
circle(550,50,20);
end.
Структура программы в Pascal
Итак, на предыдущей странице мы определились со следующими понятиями: program, integer, real, const, var, begin, end, write, writeln, read, readln. Давайте напишем программы на Паскале с их использованием. Но сначала выясним, из каких частей состоит программа на Паскале.
Любая программа на языке программирования Pascal имеет три составляющие: 1) заголовок; 2) раздел описаний; 3) тело программы.
✎ 1) Заголовок – это слово Program , после которого идет название программы латиницей и точка с запятой в конце. Название не может начинаться с цифры, не должно совпадать с зарезервированными словами (begin, end, integer и т.п.) или с названиями переменных из раздела описаний (см. ниже), а также недопустимо использование каких бы то ни было символов (‘@’, ‘%’, ‘&’ и т.п.), кроме подчеркивания. Название желательно давать со смыслом, которое отображало бы суть самой программы. Но заголовок писать не обязательно.
✎ 2) Раздел описаний – Поскольку сначала мы будем рассматривать задачи, то у нас во втором разделе будет находиться или описание констант, или переменных (см. пп. 4 и 5 статьи Введение в Pascal).
✎ 3) Тело программы – блок операторов, в котором записываются команды для выполнения. Начинается этот блок словом begin («начало»), а заканчивается словом end. («конец») с точкой в конце(пп. 6, 7 той же статьи).
Таким образом, в общем случае программа на Паскале выглядит следующим образом:
Код Pascal
1
2
3
4
5
6
7
8
9
10
Program <название программы>;
<раздел описаний>
begin
<оператор 1>;
<оператор 2>;
. . . . . . .
<оператор N>;
end.
При решении задач ограничимся сначала целыми числами. Перед тем как начать программировать, укажем действия над числами в Паскале: «+» − сложение, «-» − вычитание, «*» − умножение, «/» − деление. Как видим, в программировании и математике элементарные действия над числами обозначаются одинаково. Решим следующую задачу:
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
1.рассчитайте объем видеопамяти, необходимой для хранения графического изображения занимающего весь экран монитора с разрешением 1280x720 и палитрой из 32768 цветов. 2.размер сканируемого изображения 15x15 см.разрешающая сканера 1200x1200 dpi, глубина цвета i-32 бита.определить информационный объем файла с отсканированным изображением. 3.несжатое растровое изображение размером 256x256 пикселей занимает 64кбайта памяти.каково максимальное возможное число цветов в палитре изображения?
Задача 1
I = K * i (I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)
K = 1280 * 720 = 921600 пикселей
По формуле или
(N - кол-во цветов в палитре, i - глубина цвета)
Глубина цвета бит
I = K * i = 921600 * 15 = 13824000 бит
13824000.0 бит = 1728000.0 байт = 1687.5 Кбайт = 1.64794921875 Мбайт = 0.0016093254089355469 Гбайт = 1.57160684466362e-06 Tбайт
13824000.0 бит = 13500.0 Кбит = 13.18359375 Мбит = 0.012874603271484375 Гбит = 1.257285475730896e-05 Tбит
ответ: 13824000
Задача 2
Размеры:
1 дюйм = 2.45 см
Если появляются дробные части, то округляем в большую сторону
15 * 1200 / 2.54 = 7087
15 * 1200 / 2.54 = 7087
I = K * i (I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)
K = 7087 * 7087 = 50225569 пикселей
i = 32 бит
I = K * i = 50225569 * 32 = 1607218208 бит
1607218208.0 бит = 200902276.0 байт = 196193.62890625 Кбайт = 191.59534072875977 Мбайт = 0.18710482493042946 Гбайт = 0.00018271955559612252 Tбайт
1607218208.0 бит = 1569549.03125 Кбит = 1532.7627258300781 Мбит = 1.4968385994434357 Гбит = 0.0014617564447689801 Tбит
ответ: 1607218208
Задача 3
I = K * i (I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)
i = I / K
K = 256 * 256 = 65536 пикселей
I = 64 Kb = 64 * 1024 * 8 бит = 524288 бит
Глубина цвета бит
Кол-во цветов в палитре цветов
ответ: 256.0
________________________________________________
- Считаем что 1 Гбайт = 2^30 = 1 073 741 824 байт
- '/' - разделить
- '*' - умножить