М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
elinakosogor30
elinakosogor30
03.12.2022 04:11 •  Информатика

Условие

Найти среднее арифметическое всех целых чисел от 1 до n. ответ представить в виде несокращенной смешанной дроби.

Формат входных данных

Вводится целое неотрицательное число n(1≤n≤1000).

Формат выходных данных

Вывести среднее арифметическое в виде смешанной дроби.

Примечания

"Площадку"между числителем и знаменателем в дробной части вывести длиной в 4 символа. Между целой и дробной частями числа находится пробел.

входные данные
5
6
выходные данные
3

3
3
6

👇
Открыть все ответы
Ответ:
//дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от -10 до 20.
 //Составьте программу, которая подсчитывает и выводит среднюю температуру по всем дням, 
//когда были заморозки. Гарантируется, что хотя бы в один день были заморозки

var i,x,y  : shortint;
    s      : real;
    t      : array [1..30] of shortint;
begin
  randomize;
  For i:=1 to 30 do
    begin
     t[i]:=random (31)-10; //заполняем таблицу случайным образом (в диапазоне от -10 до 20)
     writeln (i,'  ',t[i]); //строка не обязательная просто позволяет увидеть заполненный массив  
   end;
 for i:=1 to 30 do
   begin
     if t[i]<0 then
        begin
         x:=x+t[i];
         y:=y+1;
       end;
   end;
   s:=x/y;
   writeln ('Средняя температура по дням, когда были заморозки ',s:0:2);
end.
4,7(15 оценок)
Ответ:
madama1994
madama1994
03.12.2022

ответ:Яка властивість компонентів є основою для малювання? :У середовищі 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

4,6(32 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ