#include "stdafx.h" #include "malloc.h" #include <iostream> using namespace std;
int _tmain(int argc, _TCHAR* argv[]) { // Вводим исходные данные. int m; int n; printf ("Введите количество столбцов? m = "); cin >> m; printf ("Введите количество строк? n = "); cin >> n;
// Инициализируем другие переменные. int xMin = 0, // левая граница спирали xMax = m, // правая граница спирали (не включая ее, поэтому ниже будет использоваться xMax - 1) yMin = 0, // верхняя граница спирали yMax = n, // нижняя граница спирали (не включая ее, поэтому ниже будет использоваться yMax - 1) i = 0, // текущее число x, y; // расходный материал.
// Бесконечный цикл, пока не заполним матрицу. while (1) { // Заполняем верхний ряд слева направо. for (x = xMin; x < xMax; x++) pMatrix[x + yMin * m] = i++; // Заполнили весь верхний ряд. Подвигаем вниз верхнюю границу. yMin ++; // Если верхняя граница совпала с нижней, то заканчиваем цикл. if (yMin == yMax) break;
// Заполняем правый ряд сверху вниз. for (y = yMin; y < yMax; y++) pMatrix[xMax - 1 + y * m] = i++; // Заполнили весь правый ряд. Подвигаем налево правую границу. xMax --; // Если правая граница совпала с левой, то заканчиваем цикл. if (xMax == xMin) break;
// Заполняем нижний ряд справа налево. for (x = xMax - 1; x >= xMin; x--) pMatrix[x + (yMax - 1) * m] = i++; // Заполнили весь нижний ряд. Подвигаем вверх нижнюю границу. yMax --; // Если верхняя граница совпала с нижней, то заканчиваем цикл. if (yMin == yMax) break;
// Заполняем левый ряд снизу вверх. for (y = yMax - 1; y >= yMin; y--) pMatrix[xMin + y * m] = i++; // Заполнили весь левый ряд. Подвигаем направо левую границу. xMin ++; // Если правая граница совпала с левой, то заканчиваем цикл. if (xMax == xMin) break; // если мы все еще здесь, значит идем на очередной виток спирали.. . }
// Есть предположение, что спираль заполнена. Напечатаем ее, посмотреть.. . for (y = 0; y < n; y++) { // Печатаем строку. for (x = 0; x < m; x++) printf ("i, ", pMatrix[x + y * m]); // Переходим на другую строку. printf ("\r\n"); }
// Освобождаем память и выходим. free (pMatrix); pMatrix = 0; }
Заранее огромное Вычислить среднее арифметическое тангенсов трех вещественных чисел.
Входные данные:
Во входном потоке в первой строке задано три вещественных числа. Значения чисел по модулю не превышают 1 000 000 000.
Выходные данные:В выходной поток вывести одно вещественное число с точностью пять знаков после запятой.
0
Лучшие ответы (1)
Сообщение: #3619519
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.10.2012, 19:48
ответы с готовыми решениями:
Вычислить среднее арифметическое тангенсов трех вещественных чисел
Вычислить среднее арифметическое тангенсов трех вещественных чисел. Входные данные: Во входном...
Найти среднее арифметическое трех вещественных чисел, заданных с клавиатуры
найти среднее арифметическое трех вещественных чисел, заданных с клавиатуры
Вычислить среднее арифметическое двух заданных вещественных чисел
Вычислить среднее арифметическое двух заданных вещественных чисел. Входные данные: Во входном...
Вывести массив из 50 вещественных чисел от 20 до 40, вычислить среднее арифметическое , посчитать количество элементов.
Добрый день.Задали задание, в паскале я только начинающий. Ничего не могу понять, как и что...
2
CodeR
Фрилансер
3402 / 2799 / 3000
Регистрация: 08.02.2012
Сообщений: 7,606
Записей в блоге: 1
28.10.2012, 08:55 2
Лучший ответ Сообщение было отмечено Cкорпион как решение
Решение
PascalВыделить код
1
2
y:=sin(a)/cos(a)+sin(b)/cos(b)+sin(c)/cos(c);
writeln(y/3:0:5);
так как в Паскале Abc нет стандартной функции tg поэтому выражаем через sin and cos
1
Cкорпион
1 / 1 / 5
Регистрация: 27.10.2012
Сообщений: 46
28.10.2012, 08:58 [ТС] 3
Цитата Сообщение от Artem7 Посмотреть сообщение
PascalВыделить код
1
2
y:=sin(a)/cos(a)+sin(b)/cos(b)+sin(c)/cos(c);
writeln(y/3:0:5);
так как в Паскале Abc нет стандартной функции tg поэтому выражаем через Думаю, если с тангенсами (как и с синусами и косинусами в паскале) разобраться, то ничего трудного в них не будет.
0
28.10.2012, 08:58
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.10.2012, 08:58
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.
Определить среднее арифметическое вещественных чисел
Даны натуральное число п и вещественные числа а1, а2, ..., а10 . Определить среднее арифме-тическое...
Дан файл вещественных чисел. Найти среднее арифметическое его элементов
Дан файл вещественных чисел. Найти среднее арифметическое его элементов.
Даны вещественные числа а1, а2, ..., а10. Определить среднее арифметическое вещественных чисел
1)Вычислить приближенно площадь фигуры, об¬разованной кривой у == 0,3(х — l)2+4, осью абс¬цисс и...
Дан файл вещественных чисел. Найти среднее арифметическое его элементов
дан файл вещественных чисел. найти среднее арифметическое его элементов.
#include "malloc.h"
#include <iostream>
using namespace std;
int _tmain(int argc, _TCHAR* argv[])
{
// Вводим исходные данные.
int m;
int n;
printf ("Введите количество столбцов? m = ");
cin >> m;
printf ("Введите количество строк? n = ");
cin >> n;
// Создаем матрицу.
int* pMatrix = (int*) malloc (m * n * sizeof (int));
// Инициализируем другие переменные.
int xMin = 0, // левая граница спирали
xMax = m, // правая граница спирали (не включая ее, поэтому ниже будет использоваться xMax - 1)
yMin = 0, // верхняя граница спирали
yMax = n, // нижняя граница спирали (не включая ее, поэтому ниже будет использоваться yMax - 1)
i = 0, // текущее число
x, y; // расходный материал.
// Бесконечный цикл, пока не заполним матрицу.
while (1)
{
// Заполняем верхний ряд слева направо.
for (x = xMin; x < xMax; x++)
pMatrix[x + yMin * m] = i++;
// Заполнили весь верхний ряд. Подвигаем вниз верхнюю границу.
yMin ++;
// Если верхняя граница совпала с нижней, то заканчиваем цикл.
if (yMin == yMax)
break;
// Заполняем правый ряд сверху вниз.
for (y = yMin; y < yMax; y++)
pMatrix[xMax - 1 + y * m] = i++;
// Заполнили весь правый ряд. Подвигаем налево правую границу.
xMax --;
// Если правая граница совпала с левой, то заканчиваем цикл.
if (xMax == xMin)
break;
// Заполняем нижний ряд справа налево.
for (x = xMax - 1; x >= xMin; x--)
pMatrix[x + (yMax - 1) * m] = i++;
// Заполнили весь нижний ряд. Подвигаем вверх нижнюю границу.
yMax --;
// Если верхняя граница совпала с нижней, то заканчиваем цикл.
if (yMin == yMax)
break;
// Заполняем левый ряд снизу вверх.
for (y = yMax - 1; y >= yMin; y--)
pMatrix[xMin + y * m] = i++;
// Заполнили весь левый ряд. Подвигаем направо левую границу.
xMin ++;
// Если правая граница совпала с левой, то заканчиваем цикл.
if (xMax == xMin)
break;
// если мы все еще здесь, значит идем на очередной виток спирали.. .
}
// Есть предположение, что спираль заполнена. Напечатаем ее, посмотреть.. .
for (y = 0; y < n; y++)
{
// Печатаем строку.
for (x = 0; x < m; x++)
printf ("i, ", pMatrix[x + y * m]);
// Переходим на другую строку.
printf ("\r\n");
}
// Освобождаем память и выходим.
free (pMatrix);
pMatrix = 0;
}
Казалось бы легкие задачи, а не получается...
Заранее огромное Вычислить среднее арифметическое тангенсов трех вещественных чисел.
Входные данные:
Во входном потоке в первой строке задано три вещественных числа. Значения чисел по модулю не превышают 1 000 000 000.
Выходные данные:В выходной поток вывести одно вещественное число с точностью пять знаков после запятой.
0
Лучшие ответы (1)
Сообщение: #3619519
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.10.2012, 19:48
ответы с готовыми решениями:
Вычислить среднее арифметическое тангенсов трех вещественных чисел
Вычислить среднее арифметическое тангенсов трех вещественных чисел. Входные данные: Во входном...
Найти среднее арифметическое трех вещественных чисел, заданных с клавиатуры
найти среднее арифметическое трех вещественных чисел, заданных с клавиатуры
Вычислить среднее арифметическое двух заданных вещественных чисел
Вычислить среднее арифметическое двух заданных вещественных чисел. Входные данные: Во входном...
Вывести массив из 50 вещественных чисел от 20 до 40, вычислить среднее арифметическое , посчитать количество элементов.
Добрый день.Задали задание, в паскале я только начинающий. Ничего не могу понять, как и что...
2
CodeR
Фрилансер
3402 / 2799 / 3000
Регистрация: 08.02.2012
Сообщений: 7,606
Записей в блоге: 1
28.10.2012, 08:55 2
Лучший ответ Сообщение было отмечено Cкорпион как решение
Решение
PascalВыделить код
1
2
y:=sin(a)/cos(a)+sin(b)/cos(b)+sin(c)/cos(c);
writeln(y/3:0:5);
так как в Паскале Abc нет стандартной функции tg поэтому выражаем через sin and cos
1
Cкорпион
1 / 1 / 5
Регистрация: 27.10.2012
Сообщений: 46
28.10.2012, 08:58 [ТС] 3
Цитата Сообщение от Artem7 Посмотреть сообщение
PascalВыделить код
1
2
y:=sin(a)/cos(a)+sin(b)/cos(b)+sin(c)/cos(c);
writeln(y/3:0:5);
так как в Паскале Abc нет стандартной функции tg поэтому выражаем через Думаю, если с тангенсами (как и с синусами и косинусами в паскале) разобраться, то ничего трудного в них не будет.
0
28.10.2012, 08:58
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.10.2012, 08:58
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.
Определить среднее арифметическое вещественных чисел
Даны натуральное число п и вещественные числа а1, а2, ..., а10 . Определить среднее арифме-тическое...
Дан файл вещественных чисел. Найти среднее арифметическое его элементов
Дан файл вещественных чисел. Найти среднее арифметическое его элементов.
Даны вещественные числа а1, а2, ..., а10. Определить среднее арифметическое вещественных чисел
1)Вычислить приближенно площадь фигуры, об¬разованной кривой у == 0,3(х — l)2+4, осью абс¬цисс и...
Дан файл вещественных чисел. Найти среднее арифметическое его элементов
дан файл вещественных чисел. найти среднее арифметическое его элементов.
Искать еще темы с ответами
Или воспользуйтесь поиском по форуму:
3
ответ Создать тему
Объяснение: