Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Ивангаййййййййй
18.04.2022 04:14 •
Информатика
Может кто заранее большое Может кто заранее большое Может кто заранее большое
👇
Увидеть ответ
Открыть все ответы
Ответ:
sasavotchel
18.04.2022
В 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;
4,4
(65 оценок)
Ответ:
опшщапоащпощшап
18.04.2022
#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
Для продолжения нажмите любую клавишу . . .
4,4
(21 оценок)
Это интересно:
О
Образование
06.01.2021
Клюква стоит 250 рублей за кг, а малина 200....
О
Образование
16.03.2023
Решить систему уравнений x2 + y2 + xy = 3...
О
Образование
05.08.2020
Решить систему уравнений x2 + xy +y2 = 13...
О
Образование
06.04.2022
В треугольнике АВС проведена биссектриса АК...
О
Образование
11.03.2020
Водитель ехал с постоянной скоростью из города А в город Б...
О
Образование
27.04.2022
Первые 300 км автомобиль ехал со скоростью 60 км/час...
О
Образование
02.06.2023
В треугольнике АВС точка D на стороне АВ...
О
Образование
21.07.2020
Из разных городов, расстояние между которыми 600 км...
О
Образование
29.01.2020
Из пункта А в пункт B, расстояние между которыми 84 км...
Х
Хобби-и-рукоделие
21.02.2021
Правила и техника игры в карточную игру Скорость...
Новые ответы от MOGZ: Информатика
Валерия1508
11.10.2021
Как из 2 системы счисления перевести в 16! на примере этого выражения 1001100110011100...
несахар1
14.06.2022
Количество информации в сообщении, содержащем 2048 символов, составляет 1 152 часть мегабайта. какова мощность алфавита, с которого записано сообщение?...
Marinap0385
22.12.2020
1.массив вводится с клавиатуры как округленные до целого числа градусов температуры в каждый день апреля. нужно вывести на экран максимум температуры во второй половине месяца (с 15...
DAVIDUIOP
25.12.2022
1.заполнить матрицу из 5 строк и 5 столбцов случайными числами 2.найти сумму элементов матрицы...
lexa123assasin
25.12.2022
Для данного целого х найти значение следующей функции f, принимающей значение целого типа: f(x)= 2*х, если х -2 или х 2, -3*х в противном случае...
bomjikvitaly
25.12.2022
Составить прграмму с командой while для решения : найти сумму 1+3+5+7++31....
ульянка37
17.11.2022
Сколько бит памяти занимает чёрно-белое изображение (без градаций серого) шириной 600 точек и высотой 200 точек?...
SashaPolishuk
22.04.2020
Каким будет тип результата у функции abs(x)?...
Simps0n
27.05.2022
С робота написать алгоритм для данной картинки заранее!...
nyragka
27.11.2021
Сілтеме сөзінне ссөзжұмбақ...
MOGZ ответил
Какая из наук изучает процесы произхождения в мировом океане...
Катеты мр и рк прямоугольного треугольника мрк равны соответсвенно 24см и 10см....
Составьте по рисунку ,которые будут решаться так: 10л+5л, 10л-5л, 10л-2л...
Начерти квадрат abcd длина стороны которого 7 сантиметров найди площадь и периметр...
Масса апельсина и яблока 370 г. масса апельсина и граната 700 г. масса граната и...
Найдите сумму первых десяти простых чисел...
Выражение 4/y-2/y-5+2y/25-y 2-10/y 2-25...
Составь и запиши предложения,в которых сказуемые выражены глаголами в времени светил,светила...
The toy soldier как прочитать эту песню на буквами...
Комплексный анализ рассказа тургенева маша...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
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;