Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
HICKOinc
04.04.2023 22:57 •
Информатика
Дан массив l(5,3).получить массив с(15),элементы которого вычисляются по правилу с(i)=корень 7-й степени l(i,j) ,распечатать элементы массива с. на языке qbasic,нужна блок-схема и программа
👇
Увидеть ответ
Открыть все ответы
Ответ:
Alphons145
04.04.2023
Var
a, b, c, p: real;
a1, b1, c1: real;
a2, b2, c2: real;
function SideLength(a1, a2, b1, b2: real): real;
begin
SideLength := sqrt(sqr(a1 - b1) + sqr(a2 - b2));
end;
begin
writeln('1.Найти сумму трех чисел');
readln(a, b, c);
writeln(a + b + c);
writeln('2.Катеты прямоугольного треугольника известны.Найти гипотенузу.');
readln(a, b);
writeln(sqrt(a * a + b * b));
writeln('3.Найти среднеарифметическое двух чисел.');
readln(a, b);
writeln((a + b) / 2);
writeln('4.Найти длину окружности,если известна площадь круга.');
readln(a);
writeln(sqrt(a / pi) * 2 * pi);
writeln('5.Какой процент составляет число а от числа b.');
readln(a, b);
writeln(a / b * 100);
writeln('6.Найдите площадь треугольника с формулы Герона.');
readln(a, b, c);
p := (a + b + c) / 2;
writeln(sqrt((p - a) * (p - b) * (p - c) * p));
writeln('7.Найдите площадь кольца,если его толщина I см,диаметр внутри круга d см.');
readln(a, b);
c := a + b;
writeln(pi * (c * c - b * b));
writeln('8.Вычислите площадь треугольника заданного координатами вершин.');
readln(a1, a2, b1, b2, c1, c2);
writeln(((a1 - c1) * (b2 - c2) - (a2 - c2) * (b1 - c1)) / 2);
writeln('9.Вычислить длинны сторон треугольника по заданным координатам его вершин.');
a := SideLength(a1, a2, b1, b2);
b := SideLength(c1, c2, b1, b2);
c := SideLength(a1, a2, c1, c2);
writeln(a, ' ', b, ' ', c);
end.
4,4
(90 оценок)
Ответ:
гуля429
04.04.2023
#include <cstdlib>#include <iostream> using namespace std; void MassNullEllement(int *Mass){ int KolEl = 0 ; for(int a=0;a<5;a++){ if(Mass[a]!=0){KolEl++;} } cout<<"amount element not equal zero = "<<KolEl<<"\n"; } int main(int argc, char *argv[]){ int Massiv[5]; for(int b=0;b<5;b++){ cout<<"Enter "<<b<<" element - ";
cin>>Massiv[b]; } MassNullEllement(Massiv); system("PAUSE"); return EXIT_SUCCESS;}
4,4
(17 оценок)
Это интересно:
Ф
Финансы-и-бизнес
25.01.2020
Как открыть счет в швейцарском банке: необходимые шаги и требования...
К
Компьютеры-и-электроника
19.04.2023
Как прекратить получение сообщений на Facebook...
С
Стиль-и-уход-за-собой
22.08.2021
Как эффективно удалить губную помаду?...
И
Искусство-и-развлечения
24.04.2022
Как танцевать под хаус-музыку: узнайте простые шаги и техники...
С
Стиль-и-уход-за-собой
08.03.2023
Как правильно подобрать галстук?...
И
Искусство-и-развлечения
08.01.2020
10 советов по тому, как стать хорошим хип-хоп танцором...
02.05.2023
Как избавиться от безответной любви...
В
Взаимоотношения
15.07.2022
Как отстаивать свои права в отношениях: 10 советов...
И
Искусство-и-развлечения
08.05.2020
Как стать режиссером: искусство создания киношедевров...
Д
Дом-и-сад
05.07.2021
Как без проблем удалить пятна краски с эмали?...
Новые ответы от MOGZ: Информатика
Сашазаикина
17.04.2023
Составь алгоритм решения логических задач. (Запиши цифры в правильном порядке). Выделить простые условия и обозначить их буквами. Изучить условие задачи. Составить конечную формулу....
cherbycorTaiga
20.07.2020
Для хранения текста в восьмибитовой кодировке требуется 1 Кбайт. Сколько страниц займет этот текст, если на странице размещается 2 строки по 32 символа в строке? (Единицы измерения...
Neznat13
02.07.2020
Ақпаратты шифрлау және құқығы арасындағы байланыс туралы эссе...
1LOSI1
01.02.2022
паскаль турбо дан массив a размерностью n (размерность вводит пользователь). организовать заполнение вручную целыми неповторяющимися значениями (использовать множество). написать...
V4SLA
19.09.2022
Разгоните память crucial cb8gu2400...
ssbina
14.07.2021
Написать программу на языке с++(со всеми объяснениями ) 1. написать функцию, которая принимает в качестве аргументов целочисленный массив и переменную. находит сумму четных и...
шкуренок46
05.05.2020
Дан целочисленный двумерный массив, размерности n х m. найти сумму и произведение четных элементов....
морган3
26.05.2023
Горничная каждое утро,убирая свой этаж,пилесосит ковровую жорожку . назовите исполнителей в этой . укажите их типы...
ОляХ1
02.03.2023
Решите все,пропустила месяц учебы и сразу проверочная(лг...
darth0
29.06.2021
Минформатикой, ! и обязательно с решением, во вложении...
MOGZ ответил
Корове в холодном коровнике нужно на сутки 40 кг корма,а в тёплом 36 кг.на...
Три седьмых кл. собр. 96кг макулатуры. причём 7б кл. собр. на 2кг больш.чем...
Потрібний твір на тему як я провів весняні канікули(чим по більший) 40пкт...
Придумать 10 сложных предложений с союзами на тему мои каникулы. , ,...
Вычислите объем ацетилена н.у полученного при взаимодействии 160 г технического...
Розвязати , склавши вираз. на 4 костюми витратили a метрів тканини. на пальто...
Свежий воздух.ясное весеннее утро.дышать.солнце.гулять.синее небо.поля и дороги.грачи....
5? 5? 5? 5? 5=550 где вместо вопросительного знака нужно поставить +,: ,*)чтобы...
Вклассе 20 парт за каждой из них не более 2 учииков.сколько может быть учеников...
Какова роль в пейзажных зарисовок в рассказе ? (рассказ жеребенок шолохов)...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
a, b, c, p: real;
a1, b1, c1: real;
a2, b2, c2: real;
function SideLength(a1, a2, b1, b2: real): real;
begin
SideLength := sqrt(sqr(a1 - b1) + sqr(a2 - b2));
end;
begin
writeln('1.Найти сумму трех чисел');
readln(a, b, c);
writeln(a + b + c);
writeln('2.Катеты прямоугольного треугольника известны.Найти гипотенузу.');
readln(a, b);
writeln(sqrt(a * a + b * b));
writeln('3.Найти среднеарифметическое двух чисел.');
readln(a, b);
writeln((a + b) / 2);
writeln('4.Найти длину окружности,если известна площадь круга.');
readln(a);
writeln(sqrt(a / pi) * 2 * pi);
writeln('5.Какой процент составляет число а от числа b.');
readln(a, b);
writeln(a / b * 100);
writeln('6.Найдите площадь треугольника с формулы Герона.');
readln(a, b, c);
p := (a + b + c) / 2;
writeln(sqrt((p - a) * (p - b) * (p - c) * p));
writeln('7.Найдите площадь кольца,если его толщина I см,диаметр внутри круга d см.');
readln(a, b);
c := a + b;
writeln(pi * (c * c - b * b));
writeln('8.Вычислите площадь треугольника заданного координатами вершин.');
readln(a1, a2, b1, b2, c1, c2);
writeln(((a1 - c1) * (b2 - c2) - (a2 - c2) * (b1 - c1)) / 2);
writeln('9.Вычислить длинны сторон треугольника по заданным координатам его вершин.');
a := SideLength(a1, a2, b1, b2);
b := SideLength(c1, c2, b1, b2);
c := SideLength(a1, a2, c1, c2);
writeln(a, ' ', b, ' ', c);
end.