Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Ljjr6958der8cox45
05.09.2020 23:14 •
Информатика
написать программу решающую задачу на языке VBA Определить высоту треугольника, если его площадь равна S, а основание больше высоты на величину А.
Показать ответ
Ответ:
leonkrotovv
31.01.2020 16:31
#include <stdio.h>
#include <iostream>
#include <malloc.h>
const int N = 10;
int main()
{
setlocale(LC_ALL, "RUS");
int i, j=0, n=0;
int array[N];
int *a;
puts("Исходный массив:");
for (i=0; i<N; i++) {
printf("Введите %d элемент:", i);
scanf("%d", &array[i]);
}
system("cls");
puts("Исходный массив:");
for (i=0; i<N; i++) {
printf("%d ", array[i]);
}
printf("\n");
for (i=0; i<N; i++)
if (array[i] == 0)
n++;
printf("Новый массив:\n");
a = (int *)malloc(n*sizeof(int));
for (i=0; i<N; i++)
if (array[i] == 0) {
a[j] = i;
printf("%d ", a[j]);
j++;
}
free(a);
printf("\n");
system("pause");
return 0;
}
Тестовое решение:
Исходный массив:
5 0 3 6 0 0 2 1 0 5
Новый массив:
1 4 5 8
Для продолжения нажмите любую клавишу . . .
0,0
(0 оценок)
Ответ:
evgen90079
02.07.2021 11:14
В PascalABC.Net
var
x:real;
begin
Writeln(' x y');
x:=-1;
while x<=1 do
begin Writeln(x:4:1,10-cos(Pi*x):10:5); x:=x+0.1 end
end.
Результат выполнения программы:
x y
-1.0 11.00000
-0.9 10.95106
-0.8 10.80902
-0.7 10.58779
-0.6 10.30902
-0.5 10.00000
-0.4 9.69098
-0.3 9.41221
-0.2 9.19098
-0.1 9.04894
0.0 9.00000
0.1 9.04894
0.2 9.19098
0.3 9.41221
0.4 9.69098
0.5 10.00000
0.6 10.30902
0.7 10.58779
0.8 10.80902
0.9 10.95106
1.0 11.00000
Замечание: В PascalABC константа Pi предопределена. В других версиях, если транслятор напишет сообщение о том, что переменная Pi не описана, в начале программы добавьте const Pi=3.14159265;
0,0
(0 оценок)
Популярные вопросы: Информатика
mixon2
11.07.2022 14:14
Определить является ли точка с координатами x,y точкой пересечения диагоналей квадрата со стороной r ,одна вершина которого расположена в начале координат на языке с...
chiprianv1
11.07.2022 14:14
Текущее показание электронных часов: m часов (0 ≤ h ≤ 23) n минут (0 ≤ m ≤ 59) k секунд (0≤ k ≤ 59). какое время будут показывать часы через r секунд в с++...
lakatoshnika1
29.09.2020 08:53
Дан одномерный массив а, состоящий из целых чисел.определить,сколько раз в массиве соблюдается равенство 2*a[i]=a[i-1]+a[i+1]. вывести результат на экран...
Tima66666666
29.09.2020 08:53
Вчем сходство и различие между гусем,уткой,индюком и курицей?...
AnnaLOVEannaLOVEanna
07.11.2020 14:21
Написать программу в паскале 1. выведите на экран 10 раз фразу you are welcome! 2. выведите на экран n раз фразу silence is golden . число n вводит пользователь....
VarLen20005
04.10.2022 14:51
Составить программу паскаль. вывести на экран название операции сравнения, соответствующей введенному с клавиатуры символу: , ,=. ответ записать в виде: была введена операция...
учченица
04.10.2022 14:51
Вшколе 3 этажа: на первом этаже y кабинетов на 2 и з этаажах по z кабинетов. определить количество кабинетов в школе. y=10 z=14 информатика...
лера2127
10.04.2022 15:15
Написать программу на питоне. даны два целых числа a и b (при этом a≤b). выведите все числа от a до b включительно. входные данные вводятся два целых числа. выходные данные...
JICNX
13.02.2020 14:33
(pascal abc)вывести на экран тремя используя операторы цикла for, while, repeat) кубы всех целых чисел из диапазона от a до b (a =b) в обратном порядке...
kushtueva
26.08.2020 01:23
Спрограммкой миша любил рисовать треугольники, но делал он это необычным сначала рисовал произвольный треугольник, потом каждую сторону делил на n равных частей и проводил...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
#include <iostream>
#include <malloc.h>
const int N = 10;
int main()
{
setlocale(LC_ALL, "RUS");
int i, j=0, n=0;
int array[N];
int *a;
puts("Исходный массив:");
for (i=0; i<N; i++) {
printf("Введите %d элемент:", i);
scanf("%d", &array[i]);
}
system("cls");
puts("Исходный массив:");
for (i=0; i<N; i++) {
printf("%d ", array[i]);
}
printf("\n");
for (i=0; i<N; i++)
if (array[i] == 0)
n++;
printf("Новый массив:\n");
a = (int *)malloc(n*sizeof(int));
for (i=0; i<N; i++)
if (array[i] == 0) {
a[j] = i;
printf("%d ", a[j]);
j++;
}
free(a);
printf("\n");
system("pause");
return 0;
}
Тестовое решение:
Исходный массив:
5 0 3 6 0 0 2 1 0 5
Новый массив:
1 4 5 8
Для продолжения нажмите любую клавишу . . .
var
x:real;
begin
Writeln(' x y');
x:=-1;
while x<=1 do
begin Writeln(x:4:1,10-cos(Pi*x):10:5); x:=x+0.1 end
end.
Результат выполнения программы:
x y
-1.0 11.00000
-0.9 10.95106
-0.8 10.80902
-0.7 10.58779
-0.6 10.30902
-0.5 10.00000
-0.4 9.69098
-0.3 9.41221
-0.2 9.19098
-0.1 9.04894
0.0 9.00000
0.1 9.04894
0.2 9.19098
0.3 9.41221
0.4 9.69098
0.5 10.00000
0.6 10.30902
0.7 10.58779
0.8 10.80902
0.9 10.95106
1.0 11.00000
Замечание: В PascalABC константа Pi предопределена. В других версиях, если транслятор напишет сообщение о том, что переменная Pi не описана, в начале программы добавьте const Pi=3.14159265;