Врешении на паскаль вычислить с оператора цикла сумму и произведение последовательности чисел. 2/3, 3/5, 4//9

===== PascalABC.NET =====

begin

 var (s1, s2) := (0, 0);   // нули для сумм

 var p1, p2: int64;

 (p1, p2) := (1, 1);    // единицы для произведений

 for var i := 2 to 10 do

 begin

   s1 += i;

   p1 *= i;

   s2 += 2 * i - 1;

   p2 *= 2 * i - 1

 end;

 Writeln('Сумма равна ', s1, '/', s2, ' = ', s1 / s2);

 Writeln('Произведение равно ', p1, '/', p2, ' = ', p1 / p2);

end.

Объяснение:

Прежде всепго, надо найти формулу для общего члена последовательности. После 2/3 следует 3/5, затем 4/7.

Видно, что числитель увеличивается на 1, знаменатель - на 2.

Конечный элемент 10/9 портит всю картину, он явно неверен. Если считать по числителям, в последовательности должно быть (10 - 2) + 1 = 9 членов. Тогда и в знаменателе должно быть не 9, а девятое нечетное число, начиная с 3, т.е. 19. Вся ясно, опечатка, пропущена 1.

Итак, можно написать цикл с параметром i, меняющимся от 2 до 10, а каждый член последовательности будет иметь вид i / (2×i-1).

Ну а сумма и произведение накапливаются в этом же цикле стандартным

Чтобы не терять точности вычислений, отдельно вычислим значения суммы и произведения в числителе и знаменателе, а затем выполним деление - единственную операцию, в которой можно потерять точность, если результат непредставим десятичной дробью с количеством цифр, не превыщающих 15 (это точность стандартной арифметики с плавающей точкой на компьютере).

При расчете произведения нужно понимать, что диапазон представления целых чисел в компьютере ограничен типом целочисленной переменной, выбранной для хранения произведения. Оценим максимальную величину произведения чисел по знаменателю, поскольку там значения больше. Будет вычисляться произведение 3×5×7×...×19. Грубо оценим по "серединке" значения этого ряда. (3+19)/2 = 11 и таких значений 9. 11⁹ > 10⁹ и опасно приближается к верхнему порогу допустимых значений 2.1×10⁹ для целщго типа integer, хранящегося у современных паскалей в 4-х байтах (а у старого ТурбоПаскаль вообше в двух). Поэтому для произведения лучше выбрать восьмибайтовое представление данных int64.

Получив ответ, мы видим, что на самом деле произведение равно 654729075, т.е. не превышает допустимого для integer порога. Но это мы теперь можем поумничать, зная результат.

ответ:Яка властивість компонентів є основою для малювання? :У середовищі Delphi є широкий спектр стандартних компонентів, які мають найрізноманітніше призначення. Багато з них орієнтовані на ті чи інші графічні задачі. Розглянемо ті компоненти, що призначені для креслення графічних примітивів.

Графічні примітиви це най ші геометричні фігури, такі як окружність, еліпс, прямокутник або квадрат, також закруглений прямокутник або квадрат.

На палітрі компонентів, що містить великий набір об’єктів, які можна додавати на форму проекту, нам потрібно знайти вкладку Additional, вона містить основні графічні компоненти, такі як Image, Shape і Chart. Для графічних примітивів нам підходить компонент TShape. Графічні компоненти дозволяють швидко намалювати зображення, тому що це виконується автоматично по заданим параметрам.

Компонент TShape дозволяє нам виводити най ші геометричні фігури на поверхні форми без застосування методів Canvas. Клас TShape є прямим нащадком класу TGraphControl, тому він поводиться як звичайний компонент управління. Але у нього є неуспадковані властивості: Shape, Pen і Brush.

Share. Ця властивість є основною для креслення примітивів і вона дозволяє визначити тип геометричної фігури, яка вписана в прямокутну область компонента.

Можливі такі її значення:

· stCircle – окружність;

· stEllipse – еліпс;

· stRectangle - прямокутник;

· stRoundRect – прямокутник зі закругленими кутами;

· stSquare – квадрат;

· stRoundSquare – квадрат зі закругленими кутами.

Pen. Ця властивість уявляє собою олівець, що встановлю б малювання границь фігури, тобто колір і вид границь.

Brush. Властивість, що відповідає за пензлик, який визнача б заливання області фігури, тобто колір і вид заповнення об’єкта.

Ці властивості можна змінювати як у процесі дизайну, так и у час виконання програми.

При накресленні фігура займає весь р компонента, який було встановлено на форму. Але якщо задано квадрат або коло, а розміри по горизонталі та вертикалі відрізняються, то фігуру буде накреслено з розміром меншого виміру.

На яікій вкладці знаходиться елемент TShape:Опишите порядок создания массива автофигур типа TShape.

Откройте среду Lazarus, создайте новый проект, в котором будут отображаться в виде линейчатой диаграммы данные из таблицы.

Разработайте интерфейс программы согласно скриншоту.

На форму добавьте компонент Panel как контейнер для компонентов Image и Shape. Разместите на панели компонент Image и 4 компонента Shape (по количеству элементов в массиве). Для создания легенды диаграммы на форму добавим 4 компонента Label.

Объекты TShape принадлежат к типу данных TShape. В разделе описания глобальных переменных опишем следующим образом.

var

Form1: TForm1;

sh: array [1..4] of TShape; // массив типа TShape

implementation

Теперь можно работать с автофигурами, обращаясь к ним, как к элементам массива sh [i]. Аналогично создадим массив типа TLabel для объектов Label.

var

Form1: TForm1;

sh: array [1..4] of TShape; // массив типа TShape

lb: array [1..4] of TLabel; // массив типа TLabel

implementation

Заполнение массивов будет происходить при создании формы.

procedure TForm1.FormCreate (Sender: TObject);

begin

ответ: 1.Поначалу, все эти аббревиатуры вводят в ступор и отнимают речь, но сейчас все встанет на свои места.

2.Форматы графических файлов различаются представления данных изображения (в пиксельном или векторном виде) и поддерживают разные методы сжатия и функции Photoshop. Чтобы сохранить все возможности Photoshop (слои, эффекты, маски, и т. д.), сохраните экземпляр изображения в формате Photoshop (PSD).

3.Как и большинство форматов файлов, формат PSD поддерживает файлы размером до 2 ГБ. Файлы, размер которых превышает 2 ГБ, необходимо сохранять в формате Large Document Format (PSB), Photoshop Raw (только для сведенных изображений), TIFF (до 4 ГБ) или DICOM.

Стандартная битовая глубина изображений составляет 8 битов на канал. Использование следующих форматов позволяет обеспечить больший динамический диапазон для 16-или 32-битных изображений

4.Формат графического файла определяет хранения графической информации в файле (растровый или векторный), а также форму хранения информации (используемый алгоритм сжатия для уменьшения объёма файла). Растровые форматы используются для хранения растровых данных.

5.Векторная графика не теряет качество изображения при увеличении изображения или уменьшения, а растровая при таких манипуляциях теряет свое качество. Поэтому для плакатов и эмблем применяют чаще всего векторную графику. А растровая больше подходит для редактирования фотографии. Удачи!

Подробнее - на -