maximt025
22.10.2022 22:16

2. Задано чотири дійсних числа. Написати програму яка: 1) визначає найбільше та найменше число із введених та виводить
їх на екран із відповідними поясненнями;
2) знаходить модулі чисел, що знайдені у пункті 1);
3) знаходить середнє арифметичне та середнє геометричне чисел
(квадратний корінь із добутку двох чисел), що знайдені у пункті
2), та виводить їх на екран із відповідними поясненнями;
4) знаходить гіпотенузу прямокутного трикутника із катетами, що
знайдені в пункті 3). Значення гіпотенузи округлити до двох
знаків після десяткової крапки
крапки та вивести на екран із
відповідним поясненням;
5) знаходить площу круга з радіусом, який дорівнює довжині
гіпотенузи, що була виведена на екран у пункті 4).​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ryzhovaelena1
05.05.2023 14:21

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

2-Notepad — входит в состав Microsoft Windows. Notepad GNU — свободный, текстовый редактор с открытым исходным кодом для Windows, разработанный для программистов и обычных пользователей. Он базируется на компоненте SynEdit и рас под лицензией GNU GPL. Notepad++ — основан на том же движке, что и SciTE.

3-Наиболее известными примерами текстовых процессоров являются Microsoft Word и OpenOffice.org Writer.

4-Возможность создавать новый документ, используя при этом шаблоны. ...

Возможность одновременно открывать и работать не с одним числом документов.

Автоматически проверять орфографию, стилистику и грамматику при вводе текста в документ.

5-Выберите Файл > Сохранить как.

-Выберите OneDrive, чтобы обеспечить удаленный доступ к документу.

-Введите название и нажмите кнопку Сохранить.

6-S-блок (или блок подстановок, англ. s-box от substitution-box) — функция в коде программы или аппаратная система, принимающая на входе n бит, преобразующая их по определённому алгоритму и возвращающая на выходе m бит.

7-абзац

8-выделить, нажать правую кнопку миши, выбрать "вырезать".

9-Совет: Если в документе есть только одна строка, которую нужно удалить, или Вы хотите удалить весь текст, то нажмите сочетание клавиш Ctrl+A, чтобы выделить всё. Затем нажмите Delete, и все строки удаляться.

10-Заливка

А отдел панели Абзац

11-С инструмента заливка во вкладке вставка

0,0(0 оценок)
Ответ:
usb55991
13.08.2020 17:42
Program MagicSquares; 

{Построение магических квадратов} 

Uses CRT; 
Type a_type=array[1..50,1..50] of integer; 
Var i,j,n:integer; 
a:a_type; 
t:boolean; 
{логическая переменная true (правда) или false (ложь)} 
x,y:integer; 
Label 1; 
{метка} 
Procedure Print(n:integer; a:a_type); 
{процедура вывода} 
Var i,j:integer; 
Begin 
for i:=1 to n do begin 
for j:=1 to n do write(a[i,j]:4); 
writeln(''); 
end; 
end; 
Procedure WinSh(x1,y1,x2,y2,col1,col2:word); 
{процедура вывода окна} 
Begin 
TextBackGround(black); 
Window (x1+1,y1+1,x2+1,y2+1); 
{тень - черный прямоугольник} 
ClrScr; 
TextBackGround(col1); 
Window(x1,y1,x2,y2); 
ClrScr; 
TextColor(col2); 
{рисование рамки} 
GotoXY(2, 1); write('г'); 
for i:=1 to x2-x1-2 do write('='); 
GotoXY(x2-x1,1); write('='); 
GotoXY(2,y2-y1+1); 
write('L'); for i:=1 to x2-x1-2 do write('='); 
GotoXY(x2-x1,y2-y1+1); write('-'); 
for j:=2 to y2-y1 do begin 
GotoXY(2,j); write('¦'); 
GotoXY(x2-x1,j); write('¦'); 
end; 
End; 
Procedure OddMagic(n:integer; var a:a_type); 
{Процедура формирования магического квадрата при нечетном n. Описание алгоритма в сопроводительной записке } 
Var 
i,j,k:integer; 
p,l:integer; 
Begin 
for i:=1 to n do 
for j:=1 to n do a[i,j]:=0; 
j:=n div 2 +1; p:=sqr(n); i:=1; a[i,j]:=1; 
for l:=2 to p do begin 
i:=i-1; 
j:=j+1; 
if (i=0) and (j<>n+1) then i:=n; 
if (j=n+1) and (i<>0) then j:=1; 
if ((i=0) and (j=n+1)) or (a[i,j]<>0) then 
{важен порядок условий!} 
begin 
i:=i+2; 
j:=j-1; 
end; 
a[i,j]:=l; 
end; 
end; 
Procedure Two (n:integer; var a:a_type); 
{Процедура построения квадрата при n обычной четности: n=6,10,14,18...} 
Var 
u,i,j,k,m,z:integer; 
b:a_type; 
Begin 
u:= n div 2; 
m:=(u-1) div 2; 
OddMagic(u,b); 
{вызов процедуры построения квадрата при нечет-ном u} 
k:=u*u; 
for i:=1 to n do 
for j:=1 to n do begin 
if (i>=1) and (i<=u) and (j>=1) and (j<=u) then a[i,j]:=b[i,j]; 
if (i>=u+1) and (i<=n) and (j>=u+1) and (j<=n) then a[i,j]:=b[i-u,j-u]+k; 
if (i>=1) and (i<=u) and (j>=u+1) and (j<=n) then a[i,j]:=b[i,j-u]+2*k; 
if (i>=u+1) and (i<=n) and (j>=1) and (j<=u) then a[i,j]:=b[i-u,j]+3*k; 
end; 
for i:=1 to u do 
if i=u div 2+1 then begin 
j:= u div 2+1; 
for k:=1 to m do begin 
z:=a[i,j]; 
{обмен данными} 
a[i,j]:=a[i+u,j]; 
a[i+u,j]:=z; 
j:=j-1 
end; 
end 
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота